如何自动复制pdf某个区域内的文字并且拷贝到xls中

townyee

交个作业，哈哈

1. Sub 多sheet汇总Test()
   
2.     Dim sht As Worksheet
   
3.     Dim n As Integer
   
4.     Dim arr()
   
5.     For Each sht In ThisWorkbook.Worksheets
   
6.         If sht.Name <> "汇总数据" Then
   
7.             n = n + 1
   
8.             ReDim Preserve arr(1 To n)
   
9.             arr(n) = sht.Range("A3")
   
10.         End If
    
11.     Next
    
12.         
    
13.     Sheet1.Range("a2").Resize(n) = Application.Transpose(arr())
    
14.    
    
15.     MsgBox "完成，共" & n & "个表单！"
    
16. End Sub
    

复制代码

多sheet汇总Test.zip (19.72 KB, 下载次数: 7)

2021-5-21 10:27 上传

点击文件名下载附件

longkui1990

townyee 发表于 2021-5-21 10:27
交个作业，哈哈！

信手拈来
不是一般的NX
拜谢大神

townyee

longkui1990 发表于 2021-5-21 11:14
信手拈来
不是一般的NX
拜谢大神

过夸了，我真的是个小白，比起论坛里的其他大神们差远了
只是刚好前段时间做过类似的案例，遇到过PDF提取的问题
刚刚的代码临时有事儿，没写完，哈哈，
现在补上，表单和提取内容一一对应
----===我现在也在论坛里向大神们学习~~~~~~

1. Sub 多sheet汇总Test()
   
2.     Dim sht As Worksheet
   
3.     Dim n As Integer
   
4.     Dim arr()
   
5.     For Each sht In ThisWorkbook.Worksheets
   
6.         If sht.Name <> "汇总数据" Then
   
7.             n = n + 1
   
8.             ReDim Preserve arr(1 To 2, 1 To n)
   
9.             arr(1, n) = sht.Name
   
10.             arr(2, n) = sht.Range("A3")
    
11.         End If
    
12.     Next
    
13.     Sheet1.Range("a2").Resize(n, 2) = Application.Transpose(arr())
    
14.     MsgBox "完成，共" & n & "个表单！"
    
15. End Sub

复制代码

longkui1990

townyee 发表于 2021-5-21 11:20
过夸了，我真的是个小白，比起论坛里的其他大神们差远了
只是刚好前段时间做过类似的案例，遇到 ...

之前那天10分全评完了
一下就拖到了现在。。

大神你已经相当的厉害了
感谢感谢，佩服之至