22. oktober 2005 - 08:55Der er
3 kommentarer og 1 løsning
Gem som i Excel
Hej Jeg har et lille problem med en skabelon. Det jeg ønsker er at, min skabelon finder frem til en bestemt mappe når jeg klikker på gem. jeg ved at jeg kan ændre hvorder gemmes som standart under indstillinger, men det er kun denne skabelon jeg vil have til at gemme i en bestemt mappe. Er der nogen der ved noget om dette? Hvis ja så er der 30 stive på højkant.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.EnableEvents = False Makro1 Cancel = True Application.EnableEvents = True End Sub
i et modul
Sub Makro1() Dim SaveName As String ChDir "C:\Dokumenter\Excel" Flt = "Excel(*.xls),*.xls" Titel = "Gem som!" SaveName = Application.GetSaveAsFilename(, Flt, 1, Titel) ThisWorkbook.SaveAs SaveName
Sub Makro1() Dim SaveName As String ChDir "C:\Dokumenter\Excel" Flt = "Excel(*.xls),*.xls" Titel = "Gem som!" SaveName = Application.GetSaveAsFilename(, Flt, 1, Titel) If Not SaveName = "False" Then ThisWorkbook.SaveAs SaveName End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.