vba取局域网电脑共享文件夹下的Excel文件

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