AW: VBA Dateien öffnen, editieren, speichern
26.08.2014 14:44:12
fcs
Hallo Tim,
hier ein entsprechendes Makro mit Dialog zur Auswahl des Ordners/Verzeichnisses.
Gruß
Franz
Sub CSV_laden_formatieren_speichern()
Dim wkb As Workbook
Dim varName As String, intC As Integer
Dim varVerzeichnis, strDatei As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte Verzeichnis mit den CSV-Dateien auswählen"
If .Show = -1 Then
varVerzeichnis = .SelectedItems(1)
Else
GoTo Beenden
End If
End With
varName = Dir(varVerzeichnis & "\*.csv")
With Application
.ScreenUpdating = False
End With
Do Until varName = ""
intC = intC + 1
Application.StatusBar = "Datei Nr. " & intC & " (" & varName & ") wird bearbeitet"
varName = varVerzeichnis & "\" & varName
Set wkb = Application.Workbooks.Open(Filename:=varName, ReadOnly:=True, Local:=True) _
'Local:=True wenn Trennzeichen = ";" und Dezimal-, 1000er-Zeichen wie Systemeinstellung
'Local:=False wenn Trennzeichen = ",", Deziamlzeichen und 1000er wie USA
Call prcFormatieren
Application.DisplayAlerts = False
wkb.SaveAs Filename:=varVerzeichnis & "\" & ActiveSheet.Range("B5").Text, _
FileFormat:=-4143 '-4143 = xlWorkbookNormal (xls), 51 = xlOpenXMLWorkbook (xlsx)
wkb.Close savechanges:=False
Application.DisplayAlerts = True
varName = Dir
Loop
Beenden:
With Application
.ScreenUpdating = True
.StatusBar = False
End With
End Sub