ich muss mehrere hundert Lotus 1-2-3 Dateien (Version 9) in Excel 97 konvertieren. Dabei möchte ich natürlich den Weg "zu Fuss" - also jede Datei in 1-2-3 öffnen und dann im XL-Format speichern - umgehen. Ich habe aus verschiedenen Beiträgen und Hilfe-Screens ein wenig VBA-Code zusammengeräubert, bin allerdings noch blutiger Anfänger in VBA. (Erwartungsgemäß) läuft die Sache nicht. Ich habe bisher weder hier noch in anderen Foren eine Lösung finden können. Hat jemand eine Idee, oder kann mir den entscheidenden Tip bzgl. des VBA-Codes geben?
Sub imp123()
Dim pfad As String
pfad = InputBox("Bitte den Pfad angeben:", vbOKOnly)
Set dateiSuche = Application.FileSearch
With dateiSuche
.LookIn = pfad
.SearchSubFolders = True
.FileName = "*.123"
If .Execute() > 0 Then
MsgBox "Es wurde(n) " & .FoundFiles.Count & _
" Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
dname = Application.GetOpenFilename("Lotus 1-2-3-Dateien (*.123), *.123")
If dname = False Then Exit Sub
Workbooks.Open dname
ActiveSheet.UsedRange.Select
Selection.Columns.AutoFit
sbPath = ActiveWorkbook.Name
sbPath = Left(sbPath, Len(sbPath) - 3) & "xls"
Neuname = "C:\tmp\" & sbPath
ActiveWorkbook.SaveAs FileName:=Neuname, FileFormat:=xlNormal
Next i
Else
MsgBox "In " & pfad & " wurden keine Dateien gefunden."
End If
End With
Debug.Print pfad
End Sub