Dateien öffnen
22.10.2007 10:11:00
Gromminger
Folgende Code habe ich geschrieben:
Sub test()
Dim wbk As Workbook
Dim wsh As Worksheet
Dim zeile As Integer
Dim bool As Boolean
Dim pfad As String
Set wbk = ThisWorkbook
Set wsh = wbk.Worksheets("Sheet1")
zeile = 4
Do
bool = wsh.Cells(zeile, 4).Value
If bool = True Then
pfad = wsh.Cells(zeile, 6).Value
Workbooks.Open Filename:=pfad
report = ActiveWorkbook.Name
MsgBox report
ActiveWorkbook.Close
End If
wsh.Activate
zeile = zeile + 1
Loop While wsh.Cells(zeile, 4).Value ""
End Sub
Das Öffnen der jeweiligen Excel-Datei, deren Pfad in der Variable "pfad" hinterlegt ist,
funktioniert. Allerdings übergibt der Code nicht den Namen des Workbooks, gibt ihn via Messagebox aus und schließt das Dokument wieder.
Dementsprechend habe ich auch Knopfdruck direkt mehrere Excel-Files geöffnet.
Es soll aber so sein, dass ein File geöffnet, der Name ausgegeben, das File wieder geschlossen wird.
Dies soll sich entsprechend der Tabelle x fach wiederholen.
Was mache ich falsch?
Bitte um Unterstützung!
Vielen Dank.
Gromminger