Microsoft Excel

Herbers Excel/VBA-Archiv

Dat-Dateien in Excel umformen

    Betrifft: Dat-Dateien in Excel umformen von: Roberto
    Geschrieben am: 28.08.2003 15:45:23

    Hallo,
    habe das Problem wenn ich eine DAT-Datei nach der anderen in eine Excelarbeitsblatt konvertieren will zeigt er mir die Bedingungen zum konvertieren als Fehler an, habe sie mit Macrorekorder aufgezeichnet(Origin:=xlWindows, StartRow:=2, DataType:=xlFixedWidth, FieldInfo:= _ ...).
    Wenn ich in der Zeile darüber Workbooks.Open in Workbooks.OpenText ändere zeigt der Makro mir keinen Fehler mehr an aber das Makro funktioniert nicht bzw. es erzeugt kein Ergebnis, wer kann mir helfen bin verzweifelt,bitte genaue Anleitung bin Anfänger, vielen dank schon im vorraus.
    Gruss Roberto




    mein Ansatz:

    Sub Makro1()
    '
    ' Makro1 Makro
    ' Makro am 26.08.2003 von Lager2 aufgezeichnet
    '
    
    
    Sub Dateiliste_Öffnen()
        Dim strVerzeichnis As String
        Dim StrDatei As String
        Dim I As Integer
        Dim StrTyp As String
        Dim Dateiname As String
        Dim Aktuell_Datei As String
        Dim Aktuell_Register As String
        
    '    Liste erstellen
        Aktuell_Datei = ActiveWorkbook.Name
        Aktuell_Register = ActiveSheet.Name
        strVerzeichnis = "C:\Kunddat\"
        StrTyp = "*.DAT"
        Dateiname = Dir(strVerzeichnis & StrTyp)
        I = 3
        Do While Dateiname <> ""
            Cells(I, 1).Value = strVerzeichnis & Dateiname
            I = I + 1
            Dateiname = Dir
        Loop
    '    Öffnen
        For I = 3 To Cells(Rows.Count, 1).End(xlUp).Row
          Workbooks.Open Filename:=Workbooks(Aktuell_Datei).Worksheets  (Aktuell_Register).Cells(I, 1) 
        Origin:=xlWindows, StartRow:=2, DataType:=xlFixedWidth, FieldInfo:= _
            Array(Array(0, 9), Array(5, 1), Array(9, 9), Array(36, 1), Array(41, 9), Array(68, 9)), _
            DecimalSeparator:=".", ThousandsSeparator:=" "
        Range("B1:B21").Select
        Range("B21").Activate
        ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)"
        Range("A21").Select
        ActiveCell.FormulaR1C1 = "=R[-20]C"
        Pfad = "C:\Kunddat"
        Dasteiname = Cells(1, 1).Value
        Datei = Pfad + Trim(Dateiname)+".XLS"
        ActiveWorkbook.SaveAs FileName:=Datei,FileFormat_
        :=xlNormal, Password:="", WriteResPassword:="",_
        ReadOnlyRecommended:= False, CreateBackup:=False
        With Application
        .DisplayAlerts = False
        .DisplayStatusBar = True
        .StatusBar = "Änderung an der Datei " _
        & ActiveWorkbook.Name & _
        "werden nicht gespeichert!"
        .Wait (Now + TimeValue("0:00:01"))
        .StatusBar = False
        End With
        ActiveWorkbook.Close
        Next I
    End Sub
    

     

    Beiträge aus den Excel-Beispielen zum Thema " Dat-Dateien in Excel umformen"