execl问题,清高手们帮帮忙!急啊!50分

Question

xlApp.Visible = True '设置EXCEL可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp\canshu.xls") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
     '激活工作表
 
    xlsheet.Activate '激活工作表
xlsheet.cells(1,1)="dd"
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏   Else
    MsgBox ("EXCEL已打开")
  End If
请问怎么改这个程序!谢谢!

Answer 1

我要往局域网内其他机器上的一个EXECL表导数据!我往自己机器EXECL表导数据的程序这样的!If Dir(App.Path & "\Temp\excel.bz") = "" Then '判断EXCEL是否打开
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = True '设置EXCEL可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp\canshu.xls") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
     '激活工作表
 
    xlsheet.Activate '激活工作表
xlsheet.cells(1,1)="dd"
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏   Else
    MsgBox ("EXCEL已打开")
  End If
请问怎么改这个程序!谢谢!

Answer 2

局域网内其他机器上的文件不是和本地操作一样吗？把App.Path换成"\\192.168.0.2\temp\canshu.xls"不行吗？