高手看一下,关于VB调用Execel的问题。
我用VB调用Execel生成报表,在2000、xp下面都没有问题,但是到了98下面出现问题了。执行程序后,我发现能够通过程序打开我的模板文件,但是上面没有写数据,我在98下面分步调试的时候,往execel中写数据的代码也执行了,但是就是没有数据,急呀。
下面是我的调用execel的代码:
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook '定义Excel工作簿对象
Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
Set VBExcel = CreateObject("excel.application")
VBExcel.Visible = True
'根据操作人员是否需要见到Excel此处可设为TRUE 或FALSE
Dim strPath As String
strPath_s = App.Path & "\xls\mod_d.xls"
strPath_d = App.Path & "\xls\temp.xls"
'On Error Resume Next
FileCopy strPath_s, strPath_d
Set xlbook = VBExcel.Workbooks.Open(strPath_d)
'ExcelFile为事先设计好的Excel模板文件 (包括路径)
Set xlsheet = xlbook.Worksheets("test1")
'Salary 为Excel模板工作表的名字
xlsheet.Activate
下面是部分写数据的代码:
xlsheet.Cells(7, 4) = CSng(rs_f("wgdl4")) + CSng(rs_f("wgdl5"))
xlsheet.Cells(7, 5) = CSng(rs_f_s("wgdl4_s")) + CSng(rs_f_s("wgdl5_s"))
xlsheet.Cells(8, 4) = CSng(rs_f("gf4")) + CSng(rs_f("gf5"))
xlsheet.Cells(8, 5) = CSng(rs_f_s("gf4_s")) + CSng(rs_f_s("gf5_s"))
xlsheet.Cells(9, 4) = CSng(rs_f("dg4")) + CSng(rs_f("dg5"))
xlsheet.Cells(9, 5) = CSng(rs_f_s("dg4_s")) + CSng(rs_f_s("dg5_s"))
xlsheet.Cells(10, 4) = CSng(rs_f("pd4")) + CSng(rs_f("pd5"))
xlsheet.Cells(10, 5) = CSng(rs_f_s("pd4_s")) + CSng(rs_f_s("pd5_s"))
xlsheet.Cells(11, 4) = fdl1 - CSng(rs_b("gycb4")) - CSng(rs_b("gycb5"))
xlsheet.Cells(11, 5) = fdl2 - CSng(rs_b_s("gycb4_s")) - CSng(rs_b_s("gycb5_s"))
请高手帮帮忙呀。