关于VB操作EXCEL的问题

显示全部楼层 · 2009-3-9 12:01:34

小弟碰到个问题：我做了个计算平衡的小程序，当最后要把数据分多次逐条输出到EXCEL时，或者重新计算另一套方案后输出到EXCEL时，EXCEL会重复打开而不能在同一张表格上进行操作。下面是链接代码，请高手指点，在线等！急急急
Set xlApp = Excel.Application '创建EXCEL应用类
Set xlBook = xlApp.Workbooks.Open("" & App.Path & "\容器尺寸.xls")
xlApp.Visible = True '设置EXCEL可见
Set xlsheet = Excel.Application
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
按tigerdong的方法还是和我原来的一样，点一次输出就会新开一个表格。

千问 · 2009-3-9 12:01:34

你把xapp.Visible = True 放在最后面×××××××xsheet.Activate ‘显示单前sheet ----------------------------------------------- Dim xapp As Excel.Application Dim xbook As Excel.Workbook Dim xsheet As Excel.Worksheet Set xapp = CreateObject("excel.Application") Set xbook = xlApp.Workbooks.Open("" & App.Path & "\容器尺寸.xls") ...

千问 · 2009-3-9 12:01:34

前加判断名，如果找开则直接输入，如果没打开则打开就没问题了...

千问 · 2009-3-9 12:01:34

高人啊，不懂ING！！掩面啊...