表格数据提取VBa实现

fzxba

1. Sub test1()
   
2.   Dim Conn As Object, SQL As String, strConn As String
   
3.   
   
4.   Set Conn = CreateObject("ADODB.Connection")
   
5.   strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=no';Data Source="
   
6.   Conn.Open strConn & ThisWorkbook.FullName
   
7.   
   
8.   SQL = "SELECT a.* FROM [1$] a RIGHT JOIN [2$] b ON a.F1=b.F1"
   
9.   
   
10.   With Worksheets("3")
    
11.     .UsedRange.ClearContents
    
12.     .Range("A1").CopyFromRecordset Conn.Execute(SQL)
    
13.   End With
    
14.   
    
15.   Conn.Close
    
16.   Set Conn = Nothing
    
17. End Sub

复制代码

97115038a

3190496160 发表于 2023-1-22 09:25
看了楼主的几个帖子，都是没有附件的，呵呵

我不知道可以模拟附件，现在我知道了，谢谢哥哥

97115038a

3190496160 发表于 2023-1-22 09:25
看了楼主的几个帖子，都是没有附件的，呵呵

提取关键字（王）过程中只提取到第三行，第一行和第二行没有提取到

明天会更好zj

楼主的表达能力令人担忧。