可是,为什么,下面的代码: Dim xlApp As Excel.Application Dim strDestination As String Dim xlbook As Excel.Workbook Dim xlsheet As Excel.WorksheetPrivate Sub Command1_Click() Set xlApp = New Excel.Application Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True strDestination = App.Path + "\book.xls" Set xlbook = xlApp.Workbooks.Open(strDestination, , False) Set xlsheet = xlbook.Worksheets("sheet3") xlbook.Worksheets("sheet3").Select xlbook.PrintPreview xlbook.Save End SubSet xlApp = New Excel.Application出了问题:加载DLL错误
Dim xlApp As Excel.Application
Dim strDestination As String
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.WorksheetPrivate Sub Command1_Click()
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
strDestination = App.Path + "\book.xls"
Set xlbook = xlApp.Workbooks.Open(strDestination, , False)
Set xlsheet = xlbook.Worksheets("sheet3")
xlbook.Worksheets("sheet3").Select
xlbook.PrintPreview
xlbook.Save
End SubSet xlApp = New Excel.Application出了问题:加载DLL错误
office97不行吗?
一句就够了:set xlbook=getobject(filename)
或者用createobject,再用workbooks.open方法。
总之,别定义的那么复杂!!")