Datei öffnen
31.05.2005 14:20:08
Holger
habe folgenden Code:
Sub Dateien_oeffnen()
'Holger Meinert
Dim TmpDatei As String, Pfad As String
Dim LRow1 As Integer, LRow2 As Integer
Dim wsMaster As Worksheet
Set wsMaster = ThisWorkbook.Sheets("Tabelle1")
ChDrive "g"
ChDir "G:\tempdir\"
TmpDatei = Dir(Range("E1"))'test.xls
Application.ScreenUpdating = False
Do While TmpDatei <> ""
LRow1 = wsMaster.Cells(Rows.Count, 1).End(xlUp).Row
Workbooks.Open TmpDatei
LRow2 = Workbooks(TmpDatei).Sheets("Tabelle").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks(TmpDatei).Sheets("Tabelle").Rows("1:" & LRow2).Copy wsMaster.Cells(LRow1 + 1, 1)
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
TmpDatei = Dir()
Loop
Application.ScreenUpdating = True
End Sub
Die Arbeitmappe " Test.xls" beinhaltet zwei Tabellenblätter (Namen: 1."Tabelle" /2."Diagramm"),da diese Datei automatisch geschrieben wird und immer das Tabellenblatt "Diagramm" in Vordergrund steht muss das Makro aber die
Daten aus dem Tabellenblatt "Tabelle" bearbeitet, muss im Makro darauf hingewiesen werden.
Wie sage ich dem Makro das es in "Tabelle" wechselt ?
Vielen Dank für die Hilfe
mfg
Holger
Anzeige