Jeg har et andet program der importerer en txt-fil, hvorefter jeg ønsker at brugeren skal blive bedt om at gemme filen som en xls automatisk (der skal i dialogboksen ske forvalg af filtype xls).
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
Public Sub GemSom() fileTosave = ActiveWorkbook.Name Flt = "Excel mappe(*.xls),*.xls," Titel = "Gem Som!" Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel) If fileTosave <> False Then ActiveWorkbook.SaveAs Filnavn End If End Sub
Public Sub GemSom() fileTosave = ActiveWorkbook.Name Flt = "Excel mappe(*.xls),*.xls," Titel = "Gem Som!" filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel) If filnavn <> False Then ActiveWorkbook.SaveAs Filnavn End If End Sub
Public Sub GemSom() fileTosave = Split(ActiveWorkbook.Name, ".")(0) Flt = "Excel mappe(*.xls),*.xls," Titel = "Gem Som!" filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel) If filnavn <> False Then ActiveWorkbook.SaveAs Filnavn End If End Sub
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.
