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
vba取局域网电脑共享文件夹下的Excel文件
猜你喜欢
转载自www.cnblogs.com/shida-liu/p/9452617.html
今日推荐
周排行