I am trying to open up a specific workbook labeled below: I can get the application to open but not the specific workbook/spreadsheet. Please help what am I missing?
Private Sub Command2_Click( )
Dim ExcelApp As Object
Dim ExcelBook As Object
Dim ExcelSheet As Object
Set ExcelApp = CreateObject("E xcel.Applicatio n")
Set objExcel = New Excel.Applicati on
objExcel.Visibl e = True
objExcel.Book.O pen "c:\KevinSPCToo l.xls", , , True
End Sub
Private Sub Command2_Click( )
Dim ExcelApp As Object
Dim ExcelBook As Object
Dim ExcelSheet As Object
Set ExcelApp = CreateObject("E xcel.Applicatio n")
Set objExcel = New Excel.Applicati on
objExcel.Visibl e = True
objExcel.Book.O pen "c:\KevinSPCToo l.xls", , , True
End Sub
Comment