Excel VBA 读取局域网上另外一台电脑Excel数据如何操作？

南宫夏荷

Excel  VBA  读取局域网上另外一台电脑Excel数据如何操作？
需要把另外一台电脑excel放在共享文件夹下面吗？

qh8600

是的，要建局域网共享，分别设置权限

南宫夏荷

qh8600 发表于 2014-5-31 08:50
是的，要建局域网共享，分别设置权限

求代码和详细设置。

qh8600

南宫夏荷 发表于 2014-5-31 10:11
求代码和详细设置。

一般公司都有局域网的，设置吗，百度一下，我们公司是请人搞的

南宫夏荷

qh8600 发表于 2014-5-31 10:17
一般公司都有局域网的，设置吗，百度一下，我们公司是请人搞的

局域网我们公司有，VBA读取代码怎么写？

qh8600

南宫夏荷 发表于 2014-5-31 10:24
局域网我们公司有，VBA读取代码怎么写？

你参考一下

1. Private Sub CommandButton1_Click()
   
2.     Dim xlapp1 As Excel.Application
   
3.     Dim xlbook1 As Excel.Workbook
   
4.     Dim xlsheet1 As Excel.Worksheet
   
5.     Dim xlapp2 As Excel.Application
   
6.     Dim xlbook2 As Excel.Workbook
   
7.     Dim xlsheet2 As Excel.Worksheet
   
8.     Set xlapp1 = CreateObject("Excel.Application")
   
9.     Set xlapp2 = CreateObject("Excel.Application")
   
10.     Set xlbook1 = xlapp1.Workbooks.Open("\\192.168.0.200\My Webs\isosheets\035.xls")  '打开局域网中电脑共享文件夹下的文件，id和文件名你自己改
    
11.     Set xlbook2 = xlapp2.Workbooks.Open("d:\test2.xls")                              '打开你自己电脑中的文件
    
12.     Set xlsheet1 = xlbook1.Worksheets(1)                                              '给工作表对象变量赋值（局域网共享的）
    
13.     Set xlsheet2 = xlbook2.Worksheets(1)                                                '给工作表对象变量赋值（你自己的的）
    
14.     xlsheet2.Cells(1, 1) = xlsheet1.Cells(3, 1)                                       '把局域网共享中的文件的数据提取到自己的工作表中
    
15.     xlapp2.Quit                                                                       '退出自己的工作簿
    
16.     Set xlapp2 = Nothing
    
17.     xlapp1.Quit                                                                        '退出共享工作簿
    
18.     Set xlapp1 = Nothing
    
19. End Sub
    

复制代码

南宫夏荷

谢谢，我试一下。