Notifikationer

Markér alle som læst Log ud

tvc Seniormester

15. august 2006 - 13:04 Der er 5 kommentarer og
1 løsning

SaveAs - Problemer med at få forvalg af xlNormal i dialogboks

Hej

Jeg har nedenstående program:

Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False

ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

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).

TVC

Synes godt om

kabbak Professor

15. august 2006 - 21:01 #1

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

Synes godt om

kabbak Professor

15. august 2006 - 21:06 #2

en rettelse

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

Synes godt om

tvc Seniormester

16. august 2006 - 08:06 #3

Hej Kabbak

Det virker helt som det skal.

ActiveWorkbook.Name tager også .txt med i navnet, er det muligt at undlade .txt.

Filen hedder oprindeligt 1001.txt og skal blive til 1001.xls.

Smider du også et svar?

TVC

Synes godt om

tvc Seniormester

16. august 2006 - 14:56 #4

det virker når jeg ikke har filer med navne som 1001-2005.txt. I det eksempel foreslår Excel at filen gemmes som "1001-2005.txt".

Synes godt om

kabbak Professor

16. august 2006 - 15:31 #5

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

Synes godt om

kabbak Professor

16. august 2006 - 15:31 #6

Og et svar ;-))

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan Excel selv beregne alder? Af leahcim i Excel	4	I dag 10:24	I dag 12:26
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	16	17/08/202615:14	27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel	13	24/07/202611:08	03/08/202618:42

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS