25. september 2025 - 12:25Der 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
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
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
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
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.
Synes godt om
Ny brugerNybegynder
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.
