日本不卡视频在线,国产精品91在线播放

VBA-局域網(wǎng) 讀取代碼參考

2017.10.25 浙江

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") '打開局域網(wǎng)中電腦共享文件夾下的文件，id和文件名你自己改
Set xlbook2 = xlapp2.Workbooks.Open("d:\test2.xls") '打開你自己電腦中的文件
Set xlsheet1 = xlbook1.Worksheets(1) '給工作表對象變量賦值（局域網(wǎng)共享的）
Set xlsheet2 = xlbook2.Worksheets(1) '給工作表對象變量賦值（你自己的的）
xlsheet2.Cells(1, 1) = xlsheet1.Cells(3, 1) '把局域網(wǎng)共享中的文件的數(shù)據(jù)提取到自己的工作表中
xlapp2.Quit '退出自己的工作簿
Set xlapp2 = Nothing
xlapp1.Quit '退出共享工作簿
Set xlapp1 = Nothing
End Sub

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。

免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版