Herbers Excel/VBA-Archiv

Fehler 424 bei der Open-Methode

• Fehler 424 bei der Open-Methode von Emil Jakob vom 14.09.2020 08:50:50
• AW: Fehler 424 bei der Open-Methode - von Nepumuk am 14.09.2020 09:10:17
• AW: Fehler 424 bei der Open-Methode - von fcs am 14.09.2020 09:24:08

Betrifft: Fehler 424 bei der Open-Methode von: Emil Jakob
Geschrieben am: 14.09.2020 08:50:50

Hallo zusammen,

mein heutiges Problem ist das Offnen einer zuvor gespeicherten CSV Datei. Jedes Mal wenn ich das das ausführen möchte zeigt er mir den Fehler "424", Objekt erforderlich, an.


Ich bin darauf angewiesen, dass der Pfad und Name in Variablen gespeichert sind :-(.

Bitte helft mir:



with NewBook
.SaveAs Filename:=ordnerpfad & "\" & csvdatname & ".csv", FileFormat:=6, ReadOnlyRecommended:=False, CreateBackup:=False

.Close False

end with
openpara = ordnerpfad & "\" & csvdatname & ".csv"

Wookbooks.Open (openpara), Local:=True

Dazu sei gesagt, dass ordnerpfad = C:\CSVDateien14.09.2020 und csvdatname =Reinsbeker Straße 7 sind.

Vielen Dank für eure Hilfe
Emil

  

Betrifft: AW: Fehler 424 bei der Open-Methode
von: Nepumuk
Geschrieben am: 14.09.2020 09:10:17

Hallo Emil,

lass die Klammer weg,

Wookbooks.Open Filename:=openpara, Local:=True

Gruß
Nepumuk

  

Betrifft: AW: Fehler 424 bei der Open-Methode
von: fcs
Geschrieben am: 14.09.2020 09:24:08

HAllo Emil,

du hast einen Tippfehler in der letzten Zeile.

Wookbooks statt Workbooks

Damit schliessen und öffnen sauber funktioniert musst du beim Speichern auch den Parameter Local auf True setzen.

LG
Franz

Sub Speichern_NewBook_undOeffnen()
'Testzeilen Start
  Dim NewBook As Workbook
  Dim ordnerpfad
  Dim csvdatname
  Dim openpara
  Dim wkbActive As Workbook

  ordnerpfad = "C:\users\Public\Test\Neuer Ordner"
  csvdatname = "Reinsbeker Straße 7"
  Set wkbActive = ActiveWorkbook
  wkbActive.Worksheets(1).Copy
'Testzeilen Ende
  
  Set NewBook = ActiveWorkbook
  
  With NewBook
    
    .SaveAs Filename:=ordnerpfad & "\" & csvdatname & ".csv", FileFormat:=6, _
        ReadOnlyRecommended:=False, CreateBackup:=False, Local:=True
  
    .Close False
  
  End With
  
  openpara = ordnerpfad & "\" & csvdatname & ".csv"
  
  Workbooks.Open (openpara), Local:=True
End Sub

Beiträge aus dem Excel-Forum zum Thema "Fehler 424 bei der Open-Methode"