求助大神，如何提取同个局域网指定文件夹下的数据

dnvjfdeuff

提取在同一局域网指定文件下的数据，并写入主程序，同时主程序工作名要与所提取工作名一致的信息

约定的童话

直接open 局域网路径+文件

lihaosh

1. Sub test()
   
2.     Dim folderPath As String
   
3.     folderPath = "...\主程序\在同个局域网指定文件夹"
   
4.     Dim wbData As Workbook
   
5.     Set wbData = Workbooks.Open(folderPath & "资料.xlsx")
   
6.     Dim wsData As Worksheet
   
7.     Set wsData = wbData.Worksheets("数据源")
   
8.     Dim lastDataRow As Long
   
9.     lastDataRow = wsData.Cells(Rows.Count, 1).End(xlUp).Row
   
10. /////////////
    
11.     ReDim newDataArr(1 To newDataRowCount, 1 To 8)
    
12.     Dim i As Long, j As Long
    
13.     Dim duplicate As Boolean
    
14.     Dim newRow As Long
    
15.     newRow = lastMainRow + 1
    
16.     For i = 1 To newDataRowCount
    
17.         duplicate = False
    
18.         For j = 1 To UBound(mainArr, 1)
    
19.             If dataArr(i, 1) = mainArr(j, 1) Then
    
20.                 duplicate = True
    
21.                 Exit For
    
22.             End If
    
23.         Next j
    
24.         If Not duplicate Then
    
25.             For j = 1 To 8
    
26.                 newDataArr(i, j) = dataArr(i, j)
    
27.             Next j
    
28.             For j = 1 To 8
    
29.                ////
    
30.             Next j
    
31.             newRow = newRow + 1
    
32.         End If
    
33.     Next i
    
34.     wbData.Close
    
35. End Sub
    

复制代码

dnvjfdeuff

lihaosh 发表于 2023-4-11 19:43

大神///////////是什么意思

opiona

参考: https://club.excelhome.net/thread-1409141-1-1.html

opiona

参考: https://club.excelhome.net/thread-1409141-1-1.html

fanyoulin

dnvjfdeuff 发表于 2023-4-13 07:54
大神///////////是什么意思

网络服务器地址是以//开头的，比如：//192.168.1.1这样子的；
打开本地文件是：.open("c\数据明细\123.xlsx")
打开网络文件是：.open("\\192.168.1.1\数据明细\123.xlsx")
说白了，就是你用网络服务器的地址换掉本地目录就完事了；
你可能会有疑问：我怎么知道网络服务器的地址是什么？
用资源管理器打开你在网络上存储文件的目录，再把鼠标点到最上面的输入行，输入行上显示的结果就是你的网络目录地址；

dnvjfdeuff

fanyoulin 发表于 2023-4-13 15:38
网络服务器地址是以//开头的，比如：//192.168.1.1这样子的；
打开本地文件是：.open("c\数据明细\123.x ...

谢谢大神的帮助