Excel über VBa ansteuern
06.03.2013 15:11:45
Ken
ich steuer ein Excelblatt über VBA Access. In einem Modul steuere ich den ersten Tab (Test) an - siehe code:
Dim xlApp As Excel.Application
Dim xlwrkbk As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim exelsheet As Object
Dim strfilename As String
strfilename = "C:\test.xlsx"
Set xlwrkbk = xlApp.Workbooks.Open(strfilename)
Set xlsheet = xlApp.Application.ActiveWorkbook.Sheets("Test")
Sheets("Test").Select
xlApp.Visible = True
xlApp.DisplayAlerts = False
xlsheet.Delete
Sheets.Add.Name = "Test"
Range("7:7").Select
xlApp.ActiveWindow.FreezePanes = True
Funktioniert auch alles prima, wenn ich dann aber in einem zweiten Modul das andere Tab (Test2) von gleichen Excelblatt ansteuern will - siehe Code:
Dim xlApp As Excel.Application
Dim xlwrkbk As Excel.WorkbookDim
xlsheet As Excel.Worksheet
Sheets("Test2").Select
xlApp.Visible = True
xlApp.DisplayAlerts = False
xlsheet.Delete
Sheets.Add.Name = "Test2"
Range("7:7").SelectxlApp.ActiveWindow.FreezePanes = True
bekomme ich die Fehlermeldung:
Laufzeitfehler 91 in den Zeilen wo xlApp. oder xlsheet vorkommt.
Objektvariable oder With-Blockvariable nicht festgelegt
Kann mir jemand bitte helfen und sagen was ich dort falsch mache?
Vielen Dank!