发布于 2011-07-21 09:12:34
11楼
在调用EXCEl函数过程中,如果用户打开EXCEl是有可能导致错误的。我遇到过,处理不了,
后来想到了一个办法,就是先存放在Access表中,然后一次性转换成EXCEl表。这样因为调用EXCEl函数的时间非常短,就解决问题了
具体代码我是用VB写的,我给你Access转EXCEl的那部分吧:
str2 = "e:\" + name + ".xls"
strReportPath = str2
DataPath = App.Path + "\数据库_excel.mdb"
Set accP1 = GetObject(DataPath, "Access.Application")
accP1.DoCmd.OutputTo acOutputTable, "冰箱1",acFormatXLS,strReportPath '"D:\11.xls"
年经就是一种态度