打开多个EXCEL报表

打开一个报表传输数据我已经编写实验完毕，如果打开了两个或者两个以上的报表怎么办呢？打开EXCEL报表为人工的，怎么将不同变量传输到指定的报表中呢？!
程序如下：
On Error Resume Next 
 Dim objExcelAPP,xlbook,xlsname,isOpen
 xlsname="D:shengchanjiluR2012R2012-baobiao.xls"                    
   Set objExcelAPP=GetObject(,"Excel.Application")    objExcelAPP.Visible=True
 
 If Typename(objExcelAPP)="Application" Then     
    For Each xlbook In objExcelAPP.Workbooks
        If xlbook.FullName=xlsname Then
           isOpen=True
           Exit for
        End if
    Next
 End If
 
If isOpen=1 Then

objExcelAPP.Cells(14,8).Value = Time

Else
End If

佳答案

实际上每个打开的Excel都是一个单独的进程，会有一个专属的对象名字。
 可以通过变量 xlsname="D:shengchanjiluR2012R2012-baobiao.xls"指定不同的名字的表进行读写。
程序已经有判断表格是否打开的代码，可以用if或select case 进行判断，指定向不同的表写不同的变量。

下面的是一段两个打开的excel交互的简单实验，可以参考一下。
这里用了两个Excel.Application对象，比较简单直观的办法，如果不能确定是几个表进行交互，可以用一个对象，用分支赋值之后再做。

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)                         

Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = 1
objExcelApp.Workbooks.Open "D:1.xls"

Dim objExcelApp1
Set objExcelApp1 = CreateObject("Excel.Application")
objExcelApp1.Visible = 1
objExcelApp1.Workbooks.Open "D:2.xls"

MsgBox "两个进程都准备好！"
Dim rowNum
Dim rangeNum
rowNum = 9
rangeNum = 9
MsgBox "两个进程都准备好！"

Dim i
Dim j
For i = 1 To rowNum 
     For j = 1 To rangeNum
  objExcelApp1.Cells(i,j).Value = objExcelApp.Cells(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  "" 退出
End Sub