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