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

巫瘋子 2017-10-25 發(fā)布于浙江

展開(kāi)全文

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

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買(mǎi)等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自：巫瘋子 > 《VBA》

舉報(bào)/認(rèn)領(lǐng)