Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1672to1676
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
Inhaltsverzeichnis

Datei auf Server speichern

Datei auf Server speichern
07.02.2019 13:08:04
Herbert
Hi,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei auf Server speichern
07.02.2019 13:20:21
Rudi
Hallo Herbert,
das ist kein Problem.
Gruß
Rudi
AW: Datei auf Server speichern
07.02.2019 13:21:38
Herbert
Danke "Rudi"!
Servus
Anzeige

178 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige