Datei speichern
11.06.2009 10:42:30
bully
mit dem unten stehenden Code speichere ich eine Datei im CSV-Format ab. Ich möchte nun, sozusagen als Backup, die Datei in der gleichen VBA-Prodzedur unter einem zweiten Namen abspeichern (im gleichen Verzeichnis, mit gleichem Dateinamen + Datum).
Ich habe schon verschiedene Versuche gestartet, bin aber noch nicht zum Ziel gekommen. Kann mir jemand den Code ergänzen, oder einen Tipp geben wie ich es angehen kann?
Gruss bully
Sub export7()
Dim strSep As String, strDat As String, _
iCol As Byte, iRow As Integer, _
iR As Integer, iC As Byte, strTxt As String, _
strMldg As String
iRow = ActiveSheet.UsedRange.Rows.Count
iCol = ActiveSheet.UsedRange.Columns.Count
strSep = """;"""
DateiName:
strDat = InputBox("Dateiname?", "DateiName", ThisWorkbook.Path & ("\dbmobil_vorgaenge") & ". _
csv")
If strDat = "" Then Exit Sub
If InStr(strDat, ":\") = 0 Then
strDat = ThisWorkbook.Path & "\" & 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 = 8 To iRow
strTxt = """"
For iC = 1 To iCol
If (iC >= 1 Or iR "" Then Print #1, strTxt
Next iR
Close #1
MsgBox ("Die Datei " & strDat & " wurde angelegt.")
Exit Sub
DateiFehler:
MsgBox ("Fehler in Dateinamen!")
Resume DateiName
End Sub