VB6.0调用EXCEL 提示：对象变量或with块变量未设置，请问怎么回事啊？

Private Sub Form_Load()
Dim objwork As Excel.Workbook
Dim objexcel As Excel.Application
Set objexcel = objwork.Workbooks.Opening("D:\qq.xls") '就是这句总是报那个错
objexcel.Sheets("Sheet1").Select
End Sub
我已经解决了，是没创建对象，不是OPEN的问题

Private Sub Form_Load()
Dim objwork As Excel.Workbook
Dim objexcel As new Excel.Application
Set objwork= objexcel.Workbooks.Open("D:\qq.xls") '就是这句总是报那个错
objwork.Sheets("Sheet1").Select
End Sub

dim xlapp as excel.application dim xlbook as excel.workbook dim xlsheet as excel.worksheet set xlapp = createobject("excel.application") dim ss as string commondialog1.showopen ain = commondialog1.filename if ain = "" then exit sub ain = "d:\a.xls" set xlbook = xlapp.application.workbooks.open(ain) set xlsheet = xlbook.worksheets(1) max = 0 g = val(text1.text) redim b(g, 3) redim preserve strc(g, 5) redim strd(g) str = xlsheet.cells(i, 2)