hjælp til genm
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4294
Udskrevet den: 03.Maj.2024 kl. 12:34
Emne: hjælp til genm
Besked fra: jesper ld
Emne: hjælp til genm
Posteringsdato: 09.Jun.2020 kl. 14:03
|
jeg har i et årstid brugt denne kode til at gemme ark, men pludselig virker det ikke mere, er der nogle kloge her der kan hjælpe ? Sub saveInvwithneName() Dim NewFN As String 'copy Invoice to a new workbook ActiveSheet.Copy NewFN = "E:\Dokumenter\1-kartoteker\service 2018\excel\" & Range("f15") & " - " & Range("b5") & " - " & Range("c15") & " - " & Range("f10") & " - " & Range("f11") & " - " & Range("f12").Value & " .xlsx " ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close nextInvoice End Sub |
Svar:
Besked fra: fiajakt
Posteringsdato: 11.Jun.2020 kl. 07:47
|
Hej Nextinvoice kan ikke stå alene enten mangler der noget, eller kalder den en funktion. , jeg har fjernet Nexinvoice og nu gemmer programmet filen til disk. Sub saveInvwithneName() Dim NewFN As String 'copy Invoice to a new workbook ActiveSheet.Copy NewFN = "E:\Dokumenter\1-kartoteker\service 2018\excel\" & Range("f15") & " - " & Range("b5") & " - " & Range("c15") & " - " & Range("f10") & " - " & Range("f11") & " - " & Range("f12").Value & " .xlsx " ActiveWorkbook.SaveAs NewFN, FileFormat:=51 ActiveWorkbook.Close 'nextInvoice End Sub |
Besked fra: jesper ld
Posteringsdato: 11.Jun.2020 kl. 09:06
Super det virker 
|
Besked fra: fiajakt
Posteringsdato: 11.Jun.2020 kl. 09:33
Det var så lidt
|