获取不打开工作薄数据

yfxfsj

如何获取此类不打开工作薄数据？详见附件

杨建营

无法进行下一步了

yfxfsj

杨建营 发表于 2025-4-2 10:39
无法进行下一步了

密码：1234

yfxfsj

不好意思，忘记去除密码，密码1234

ykcbf1100

报送时间分表中没有的，总表中原数据要清空吗？

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()   '//2025.4.2
   
2.     Application.ScreenUpdating = False
   
3.     Set Sh = ThisWorkbook.ActiveSheet
   
4.     With Application.FileDialog(msoFileDialogFilePicker)
   
5.         .InitialFileName = ThisWorkbook.Path & ""
   
6.         .Title = "请选择对应Excel文件"
   
7.         .AllowMultiSelect = False
   
8.         .Filters.Clear
   
9.         .Filters.Add "Excel文件", "*.xls*"
   
10.         If .Show Then f = .SelectedItems(1) Else Exit Sub
    
11.     End With
    
12.     a = [{99,3,1,4,99,99,5,6,99,99,7,8}]
    
13.     ReDim brr(1 To 10 ^ 4, 1 To 100)
    
14.     Set wb = Workbooks.Open(f, 0)
    
15.     arr = wb.Sheets(1).UsedRange
    
16.     wb.Close 0
    
17.     On Error Resume Next
    
18.     For i = 2 To UBound(arr)
    
19.         If arr(i, 2) <> Empty Then
    
20.             m = m + 1
    
21.             For x = 1 To UBound(a)
    
22.                 brr(m, x) = arr(i, a(x))
    
23.             Next
    
24.         End If
    
25.     Next
    
26.     With Sh
    
27.         .UsedRange.Offset(5) = Empty
    
28.         .Cells(6, 1).Resize(m, UBound(a)) = brr
    
29.     End With
    
30.     Application.ScreenUpdating = True
    
31.     MsgBox "OK！"
    
32. End Sub
    

复制代码

yfxfsj

ykcbf1100 发表于 2025-4-2 12:56

谢谢老师，可能是我没说清，就是每点一次这个“导入数据”，就会在“合并企业”表里原来数据基础上增加“导出表”工作薄中导出表里的这些数据，比如导出表里有10行数据，点一次“导入数据”，就会在“合并企业”表里增加着10行数据，再点一次，在“合并企业”表里又会再增加10行数据，类推。

yfxfsj

ykcbf1100 发表于 2025-4-2 12:43
报送时间分表中没有的，总表中原数据要清空吗？

不要清空原数据，时间自己手动填写。此表是累计写入数据，不断增加行数的

ykcbf1100

yfxfsj 发表于 2025-4-2 14:45
谢谢老师，可能是我没说清，就是每点一次这个“导入数据”，就会在“合并企业”表里原来数据基础上增加“ ...

改一下吧。