also ich habe noch immer das problem mit dem öffnen mehere datein aus einem verzeichnis, diese sollte nacheinander einzelt geöffnet werden bzw. auch gespeichert werden.
ich dachte an sowas was mir der recorder ausgespuckt hat,
ChDir "C:\zz"
Workbooks.Open Filename:="C:\Brutto\yx.dbf"
ActiveWorkbook.SaveAs Filename:="C:\zz\yx.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
~f~
wie kann man die yx in eine var benennen, der vom einlesen hat?
Ich hab hier nochwas aus unseren alten PP makro gefunden.
~f~
Dim Dateien(1 To 999, 1 To 2)
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch
With fs
.LookIn = Pfad
.FileName = "*.dbf"
.SearchSubFolders = True
If .Execute(SortBy:=msoSortByFileDate, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Dateien(i, 1) = .FoundFiles(i)
Anzahl = .FoundFiles.Count
werner = Dateien(i, 1)
Name = fs2.GetBaseName(werner)
Dateien(i, 2) = Name
NEXT i