电竞比分网-中国电竞赛事及体育赛事平台

搜索
分享

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

 巫瘋子 2017-10-25 發(fā)布于浙江
  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")  '打開局域網(wǎng)中電腦共享文件夾下的文件，id和文件名你自己改
  11.     Set xlbook2 = xlapp2.Workbooks.Open("d:\test2.xls")                              '打開你自己電腦中的文件
  12.     Set xlsheet1 = xlbook1.Worksheets(1)                                              '給工作表對象變量賦值（局域網(wǎng)共享的）
  13.     Set xlsheet2 = xlbook2.Worksheets(1)                                                '給工作表對象變量賦值（你自己的的）
  14.     xlsheet2.Cells(1, 1) = xlsheet1.Cells(3, 1)                                       '把局域網(wǎng)共享中的文件的數(shù)據(jù)提取到自己的工作表中
  15.     xlapp2.Quit                                                                       '退出自己的工作簿
  16.     Set xlapp2 = Nothing
  17.     xlapp1.Quit                                                                        '退出共享工作簿
  18.     Set xlapp1 = Nothing
  19. End Sub

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

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多