Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfadangabe

Pfadangabe
09.10.2007 16:58:00
Ralf
Hallo zusammen,
wie kann ich hier einen zusätzlich direkten Pfad angegeben. Ohne Angabe wird der aktiver Woorkbook-Pfad vewrwendet. Ich falle hier momentan immer auf die Schnauze ;-(
strDat = "Train-Import_" & Format(Date, "YYYY-MM-DD") & "_2.csv"
Gruß Ralf

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfadangabe
09.10.2007 17:01:06
Renee
Hi Ralf,
Ein bisschen allzu mager Deine Info... Du fällst sicher nicht auf die Schnauze und wenn der Compiler eine Fehlermeldung gibt, teil sie uns doch auch mit, bzw. zeig mal wo du oder wer auch immer auf die Schnauze fällt und was für Verletzungen sich wie zeigen...
GreetZ Renee

AW: Pfadangabe
09.10.2007 17:04:39
Ralf
Hi Renne,
strDat ist der Dateiname. Ich möchte hierzu einfach den Pfad angeben wo die Datei abgelegt werden soll.
Das hatte ich z.B: ausprobiert
strDat = x:\OTM\ & "Train-Import_" & Format(Date, "YYYY-MM-DD") & "_2.csv"
Gruß Ralf

"x:\OTM\" & ... owT
09.10.2007 17:07:23
Renee

Anzeige
AW: "x:\OTM\" & ... owT
09.10.2007 17:17:19
Ralf
hi Renee,
geht auch nicht. Da kommt die MsG-Box "Fehler im Datreinamen"
strDat = "Train-Import_" & Format(Date, "YYYY-MM-DD") & "_2.csv"
If strDat = "" Then Exit Sub
If InStr(strDat, ":\") = 0 Then
strDat = "X:\OTM\Sped07\CSV_TRAIN\200710\" & strDat
End If
If Dir(strDat) <> "" Then
strMldg = MsgBox("Datei bereits vorhanden. Überschreiben?", vbYesNo)
If strMldg = vbNo Then GoTo DateiName
End If
On Error GoTo DateiFehler
Open strDat For Output As #1
For iR = 1 To iRow
strTxt = ""
For iC = 1 To iCol
strTxt = strTxt & Cells(iR, iC) & strSep
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
Print #1, strTxt
Next iR
Close #1
MsgBox ("Die Datei " & strDat & " wurde angelegt.")
Exit Sub
DateiFehler:
MsgBox ("Fehler in Dateinamen!")
Resume DateiName
End Sub
Gruß Ralf

Anzeige
AW: "x:\OTM\" & ... owT
09.10.2007 17:58:00
Renee
Hi Ralf,
Sorry aber dieser Code ist ziemlich wirr.
Wenn Du alles richtig geschrieben hast, der Drive und die Verzeichnisse existieren
, dann sollte der Code trotz allem funktionieren. Wo und wann Deine Fehlermeldung zum Zug kommt, prüfst du am besten, indem du die On Error Anweisung mal kommentierst.
GreetZ Renee

AW: Pfadangabe
09.10.2007 17:07:56
Andi
Hi,
alles was keine Variable ist, muss in Anführungszeichen:
strDat = "x:\OTM\" & "Train-Import_" & Format(Date, "YYYY-MM-DD") & "_2.csv"
Schönen Gruß,
Andi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige