打开多个excel报表

《打开多个excel报表》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、打开多个EXCEL报表　　打开一个报表传输数据我已经编写实验完毕，如果打开了两个或者两个以上的报表怎么办呢？打开EXCEL报表为人工的，怎么将不同变量传输到指定的报表中呢？!　　程序如下：　　OnErrorResumeNext　　DimobjExcelAPP,xlbook,xlsname,isOpen　　xlsname=“D:shengchanjiluR2012R2012-baobiao.xls”　　SetobjExcelAPP=GetObject(,”Excel.Applica打开多个EXCEL报表

2、　　打开一个报表传输数据我已经编写实验完毕，如果打开了两个或者两个以上的报表怎么办呢？打开EXCEL报表为人工的，怎么将不同变量传输到指定的报表中呢？!　　程序如下：　　OnErrorResumeNext　　DimobjExcelAPP,xlbook,xlsname,isOpen　　xlsname=“D:shengchanjiluR2012R2012-baobiao.xls”　　SetobjExcelAPP=GetObject(,”Excel.Application”)objExcelAPP.Visi

3、ble=True　　　　IfTypename(objExcelAPP)=“Application”Then　　ForEachxlbookInobjExcelAPP.Workbooks　　Ifxlbook.FullName=xlsnameThen　　isOpen=True　　Exitfor　　Endif　　Next　　EndIf　　　　IfisOpen=1Then　　objExcelAPP.Cells(14,8).Value=Time　　Else　　EndIf　　　　　　最佳答案　　　　　　　　　　　　

4、　　　　　　　　实际上每个打开的Excel都是一个单独的进程，会有一个专属的对象名字。　　可以通过变量xlsname=“D:shengchanjiluR2012R2012-baobiao.xls”指定不同的名字的表进行读写。　　程序已经有判断表格是否打开的代码，可以用if或selectcase进行判断，指定向不同的表写不同的变量。　　下面的是一段两个打开的excel交互的简单实验，可以参考一下。　　这里用了两个Excel.Application对象，比较简单直观的办法，如果不能确定是几个表进行交互，可

5、以用一个对象，用分支赋值之后再做。　　SubOnLButtonDown(ByValItem,ByValFlags,ByValx,ByValy)　　DimobjExcelApp　　SetobjExcelApp=CreateObject(“Excel.Application”)　　objExcelApp.Visible=1　　objExcelApp.Workbooks.Open”D:1.xls”　　DimobjExcelApp1　　SetobjExcelApp1=CreateObject(“Excel.A

6、pplication”)　　objExcelApp1.Visible=1　　objExcelApp1.Workbooks.Open”D:2.xls”　　MsgBox”两个进程都准备好！”　　DimrowNum　　DimrangeNum　　rowNum=9　　rangeNum=9　　MsgBox”两个进程都准备好！”　　Dimi　　Dimj　　Fori=1TorowNum　　Forj=1TorangeNum　　objExcelApp1.Cells(i,j).Value=objExcelApp.Cells

7、(i,j).Value　　Next　　Next　　　　MsgBox”读写完了！”　　objExcelApp.Workbooks(1).Save”“保存工作表　　objExcelApp.Workbooks(1).Close”“关闭工作表　　objExcelApp.Quit”“退出　　objExcelApp1.Workbooks(1).Save”“保存工作表　　objExcelApp1.Workbooks(1).Close”“关闭工作表　　objExcelApp1.Quit”“退出　　EndSub