Hallo zusammen,
bei folgendem Code (kursiv) stoppt der jedesmal an beim Mod. CSVAuslesen (Text ist in rot geschrieben) und gibt mir den Laufzeitfehler 75 zurück. Der bezieht sich auf den Pfad unter mod. CSVOpen. Was mache ich falsch??
Laut dem was ich im Internet finden konnte definiert man so einen Variabelen Pfad!?
Viele Grüße
Option Explicit
Public CSVDatei As String
Sub CSVOpen()
Dim doc As Document
Set doc = ActiveDocument
Dim Path As String
Path = "\SCHRIFTWECHSEL\PY\CSV\*.CSV"
CSVAuslesen CSVDatei
End Sub
Sub CSVAuslesen(CSVDatei As String)
Dim FNr As Integer
Dim Felder() As String
Dim import As String
FNr = FreeFile
Open CSVDatei For Input As #FNr
Do Until EOF(FNr) = True
Line Input #FNr, import
.....
bei folgendem Code (kursiv) stoppt der jedesmal an beim Mod. CSVAuslesen (Text ist in rot geschrieben) und gibt mir den Laufzeitfehler 75 zurück. Der bezieht sich auf den Pfad unter mod. CSVOpen. Was mache ich falsch??
Laut dem was ich im Internet finden konnte definiert man so einen Variabelen Pfad!?
Viele Grüße
Option Explicit
Public CSVDatei As String
Sub CSVOpen()
Dim doc As Document
Set doc = ActiveDocument
Dim Path As String
Path = "\SCHRIFTWECHSEL\PY\CSV\*.CSV"
CSVAuslesen CSVDatei
End Sub
Sub CSVAuslesen(CSVDatei As String)
Dim FNr As Integer
Dim Felder() As String
Dim import As String
FNr = FreeFile
Open CSVDatei For Input As #FNr
Do Until EOF(FNr) = True
Line Input #FNr, import
.....