急救~......详看内容

Question

VB调用EXCEL问题：
我在WIN2000+VB6.0编写程序如下,并且运行正常:
dim myExcel as Excel.Application
dim myBook as Excel.Workbook
sub command1_click()
Set myExcel = CreateObject("Excel.Application")'在98下此处报错
Set myBook = myExcel.Workbooks.Open(App.Path & "\print1.xls")
myBook.PrintOut
myBook.Close
myExcel.Quit
Set myExcel = Nothing
end sub
同样代码,WIN98+vb6.0却一直报错(好像是不支持自动化).
请问该怎么处理?(前提必须调用EXCEL打印)
万分火急,先在这里谢谢了.

Answer 1

呵呵……你编译好之后在 Windows 98 + Office（无需 Visual Basic）即可运行。编译为本机代码……

Answer 2

对，楼上的说得很对！很有可能没有excel对象，所以Set myExcel = CreateObject("Excel.Application")出错！

Answer 3

dim myExcel as NEW Excel.Application'换一种绑定方式试试，如果不行，再换一台机器试试，怀疑是机器的问题
dim myBook as Excel.Workbook
sub command1_click()Set myBook = myExcel.Workbooks.Open(App.Path & "\print1.xls")
myBook.PrintOut
myBook.Close
myExcel.Quit
Set myExcel = Nothing
end sub换一台机子试试，程序应该没有问题

Answer 4

dim myExcel as Excel.Application
dim myBook as Excel.Workbook你怎么将这两句写在过程外面呢,那么过程内如何使用这两个对象?应该写在过程内,或将dim改为private 或public.