Dim xlapp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet'Set xlapp = New Excel.Application
Set xlapp = CreateObject("excel.application")
Set xlBook = xlapp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
xlapp.Visible = True
xlSheet.Cells(1, 1) = "yang"
Set xlapp = Nothing
-----------------------------
当我关闭book1(注意不是直接关闭整个excel,只是按book1右上方的关闭按钮),系统就会提示出错,但office2000下一切正常,请问大家遇到过这类问题吗?
---------
还有使用Set xlapp = New Excel.Application或
Set xlapp = CreateObject("excel.application")效果是否一样,他们有无不同之处.
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet'Set xlapp = New Excel.Application
Set xlapp = CreateObject("excel.application")
Set xlBook = xlapp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
xlapp.Visible = True
xlSheet.Cells(1, 1) = "yang"
Set xlapp = Nothing
-----------------------------
当我关闭book1(注意不是直接关闭整个excel,只是按book1右上方的关闭按钮),系统就会提示出错,但office2000下一切正常,请问大家遇到过这类问题吗?
---------
还有使用Set xlapp = New Excel.Application或
Set xlapp = CreateObject("excel.application")效果是否一样,他们有无不同之处.
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet'Set xlapp = New Excel.Application
Set xlapp = CreateObject("excel.application")
Set xlBook = xlapp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
xlapp.Visible = True
xlSheet.Cells(1, 1) = "yang"xlapp.quit '不要set = nothing?
通过visible=true,让用户自己修改excel内容,选择是打印还是保存.
如果那样的话我就不能直接使用QUIT了,如果我QUIT的话,客户还得再重新打开一次excel,而且你还要告诉用户文件的路径.