Avatar billede UPS igen Novice
25. september 2025 - 12:25 Der er 2 kommentarer og
1 løsning

Fejl Runtime error 424

Hej
Jeg kan ikke få denne VBA kode til at gemme (gem som)

Jeg har en anden makro der fint finder en mappe i en mappe på et andet drev, makroen kopiere mappen med indhold, og giver den et nyt navn. I den kopierede mappe skal der åbnes en fil, hvor data læses ind, så fint så godt.
Problemet kommer når jeg ønsker at gemme filen med et nyt navn

Sub Udfyld_FIL()

Dim stfolder As String

Dim Safe As String


Sheets("Ark1").Activate
stfolder = Range("A3").Value
Kunde = Range("A2").Value
SO = Range("C2").Value
'Name = Range("C23").Value
Safe = Range("B16").Value


ChDir _
        "\\192.168.1.4\Produktions pc stepping\Ordre igangværende\" & stfolder
    Workbooks.Open Filename:=Sheets("ark1").Range("B19")
   
        Sheets("Ordrespecifikation").Range("S1").Select
   
        ActiveCell.Value = Kunde
   
        Sheets("Ordrespecifikation").Range("S13").Select
        ActiveCell.Value = SO
   
    ChDir _
        "\\192.168.1.4\Produktions pc stepping\Ordre igangværende\" & stfolder
   
    wbtarget.SaveAs Filename:=Safe
    ActiveWorkbook.Close

Det nye navn, og stien der skal bruges ifm at gemme er fx denne:
\\192.168.1.4\Produktions pc stepping\Ordre igangværende\3465 Agilent Technologies Denmark ApS SO14250\3465 Agilent Technologies Denmark ApS SO14250.xlsm

Håber en af jeg måske kan gennemskue hvad det er der går galt
PFT
Avatar billede Dan Elgaard Ekspert
25. september 2025 - 16:11 #1
Du har ikke sat variablen 'wbTarget' nogensteder.
Avatar billede UPS igen Novice
26. september 2025 - 09:01 #2
Hej Dan
Mange tak for at du kiggede på problemet. Jeg fik læst mig frem til et råd der sagde at det kunne være en fordel at bruge wbtarget, i stedet for ActiveWorkbook. Troede bare wbtarget stod for det samme.

Jeg har fundet en løsning der virker så jeg lukker spørgsmålet nu

Sub Udfyld_FIL()

Dim stfolder As String

Dim Safe As String


Sheets("Ark1").Activate
stfolder = Range("A3").Value
Kunde = Range("A2").Value
SO = Range("C2").Value
Name = Range("B17").Value
Safe = Range("B17").Value

ChDir _
        "\\192.168.1.4\Produktions pc stepping\Ordre igangværende\" & stfolder
    Workbooks.Open Filename:=Sheets("ark1").Range("B19")
   
        Sheets("Ordrespecifikation").Range("S1").Select
   
        ActiveCell.Value = Kunde
       
        Sheets("Ordrespecifikation").Range("S13").Select
        ActiveCell.Value = SO
   
    With Workbooks("200 linjer.xlsm")
    .SaveAs Filename:=Safe
    End With
   
ActiveWorkbook.Close
   

End Sub
Avatar billede Dan Elgaard Ekspert
27. september 2025 - 22:01 #3
Det _ER_ en fordel, at benytte workbook som et objekt, men du havde bare ikke gjort det - den kode der er potentielt farligt - der skal ikke meget til før det går galt - min løsning var den rigtige.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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