|
Hallo Ömer
Beim Debuggen sieht man es. VBA verirrt sich zwischen den Workbooks. Deshalb habe ich sie explizit deklariert. Ich bin davon ausgegangen, dass der Code in ASCII-Import-Gasspot.xlsm steht. Wenn nicht, bitte melden.
Bitte teste und hab einen schönen Abend
Heiko
Sub getDatei()
Dim wkb As Excel.Workbook
Dim varFile As Variant
Dim intDatei As Integer
varFile = Application.GetOpenFilename(, , "Wählen Sie bitte die zu konvertierenden Dateien aus.", , True)
If TypeName(varFile) Like "Boolean" Then
MsgBox "Keine Datei ausgewählt!", vbInformation
Exit Sub
Else
For intDatei = 1 To UBound(varFile)
Application.Workbooks.Open (varFile(intDatei)), Local:=True
Set wkb = ActiveWorkbook
wkb.Sheets(1).Cells.Copy Destination:=ThisWorkbook.Sheets(1).Range("A1")
Application.DisplayAlerts = False
ThisWorkbook.Sheets(1).SaveAs Filename:=Environ("UserProfile") & "\Desktop\" & intDatei & ".csv", FileFormat:=Excel.xlCSV, Local:=True
Application.DisplayAlerts = True
wkb.Close True
Next intDatei
Set wkb = Nothing
MsgBox ("ASCII Umwandlung abgeschlossen, Dateien wurden abgesichert.")
End If
End Sub
|