mit dem nachfolgenden Code speichere ich eine CSV-Datei auf einem lokalen Verzeichnis:
Sub SaveCSV()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim sSammelString$, sDateiname$, sTrennzeichen$, sDatum$
sDateiname = "D:\...\" & [AuftragsNr] & "-" & [AnlBez] & "-" & [Auswahl_Serie] & ".csv"
sTrennzeichen = ";"
Set Bereich = Tab_07_CSV.UsedRange
Open sDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
sSammelString = sSammelString & """" & CStr(Zelle.Text) & """" & sTrennzeichen
Next
If Right(sSammelString, 1) = sTrennzeichen Then
sSammelString = Left(sSammelString, Len(sSammelString) - 1)
End If
Print #1, sSammelString
sSammelString = ""
Next
Close #1
Set Bereich = Nothing
Beep
End Sub
Das funktioniert sehr gut. Nun möchte ich diese CSV-Datei aber auf ein Server-LW speichern. Hierzu habe ich den folgenden Code erstellt. Da ich aber keinen Server hier habe, kann ich es nicht testen. Könnt ihr mir bitte sagen, ob das damit klappen wird?Sub SaveCSV()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim sSammelString$, sDateiname$, sTrennzeichen$, sDatum$
sDateiname = "\\SERVERNAME\Data\" & [AuftragsNr] & "-" & [AnlBez] & "-" & [Auswahl_Serie] & " _
.csv"
sTrennzeichen = ";"
Set Bereich = Tab_07_CSV.UsedRange
Open sDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
sSammelString = sSammelString & """" & CStr(Zelle.Text) & """" & sTrennzeichen
Next
If Right(sSammelString, 1) = sTrennzeichen Then
sSammelString = Left(sSammelString, Len(sSammelString) - 1)
End If
Print #1, sSammelString
sSammelString = ""
Next
Close #1
Set Bereich = Nothing
Beep
End Sub
Vielen Dank im Voraus!Servus