Excel-Makro soll andere Excel Mappe öffnen
André
ich habe ein Code geschrieben der sieht in etwa so aus:
Pfad = Tabelle1.Cells(3, 2)
Datei = Tabelle1.Cells(4, 2)
Anzahl_Spalten = Tabelle1.Cells(5, 2)
PfaduDatei = Pfad + "\" + Datei
Set Excel1 = CreateObject("Excel.Application")
Excel1.EnableEvents = False
Excel1.Workbooks.Open PfaduDatei
For i = 1 To Anzahl_Spalten
Tut nichts zur Sache
Next i
For u = 1 To Anzahl_Spalten
Tut nichts zur Sache
Next u
Excel1.ActiveWorkbook.Close savechanges:=False
Excel1.Quit
Kann mal bitte jemand kontrollieren ob das auch in Ordnung ist? Es wäre für mich sehr ärgerlich, wenn ich die andere Datei irgend wann mal zerschiessen würde.
Viele Dank im voraus
Anzeige