Sharepoint: Open exportfile For Output - Error
06.05.2009 11:42:07
Bernhard
das folgende Makro (ausgeführt Before_Close) liefert mir einen Fehler "Runtime error 52 - Bad Filename or Number".
Die Originaldatei liegt auf einem Sharepoint Server und das Ergebnis soll auch auf dem Sharepoint Server abgelegt werden
(Hintergrund ist, dass wir das csv mit Semikolon anstelle mit Komma benötigen - SaveAs CSV aber immer mit Komma speichert).
Kann mir wer helfen, wie ich das Makro auf Sharepoint anpassen kann oder wie ich ein csv mit Semikolons aus VBA heraus erzeugen kann?
Vielen Dank,
Bernhard
exportfile as string = "http://sharepoint.avnet.eu/corporate/training/ExamplePublishingSite/SubExampPubSite/LibraryPS/WAN_European_Connectivity.csv"
Sub csvSpeichern(exportfile As String)
Dim str_Delimiter, Dateinummer, w, z, s, ln
str_Delimiter = ";"
Set w = ActiveWorkbook.Worksheets(1)
Dateinummer = FreeFile
Open exportfile For Output As #Dateinummer
For z = 1 To w.UsedRange.Rows.Count
If Cells(z, 1) = "EndOfList" Then Exit For
If Cells(z, 4) "" Then 'only lines with content
ln = ""
For Each s In Array(4, 5, 10, 11, 3)
ln = ln & CStr(w.Cells(z, s).Text) & str_Delimiter
Next s
ln = Left(ln, Len(ln) - 1)
Print #Dateinummer, ln
End If
Next z
Close #Dateinummer
End Sub
Anzeige