SQL语句提取数据内容到相同名的工作表中

如云家家

请帮看一下，有一个【卷带生产】的工作表要提取部分内容 ，其它工作表要提取数据库相同表名的全部内容，不知道SDL语句怎么写，请老师们帮写一下，谢谢！

opiona

http://club.excelhome.net/thread-859194-1-1.html

opel-wong

水平有限，先凑个数，
如下，供参考：

opel-wong

代码如下，供参考：

1. Sub 获取数据()
   
2.     Application.ScreenUpdating = False
   
3.     Dim SQL As String, sht As Worksheet
   
4.     Dim Cnn As Object: Set Cnn = CreateObject("ADODB.Connection")
   
5.     Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\生产数据库.accdb"
   
6.     Dim mRst As Object: Set mRst = CreateObject("Adodb.RecordSet")
   
7.     SQL = "Select 序号,日期,产品编码,LOTNO,卷带数量 From 卷带生产"
   
8.     Set mRst = Cnn.Execute(SQL)
   
9.     With Worksheets("卷带生产")
   
10.         .Activate
    
11.         .Rows("2:1048576").ClearContents
    
12.         .Range("A2").CopyFromRecordset mRst
    
13.     End With
    
14.     ' ----
    
15.     For Each sht In Sheets
    
16.         If sht.Name <> "卷带生产" And sht.Name <> "录入" Then
    
17.             SQL = "Select * From " & sht.Name
    
18.             Set mRst = Cnn.Execute(SQL)
    
19.             With sht
    
20.                 .Activate
    
21.                 .Rows("2:1048576").ClearContents
    
22.                 .Range("A2").CopyFromRecordset mRst
    
23.             End With
    
24.         End If
    
25.     Next
    
26.     Cnn.Close: Set Cnn = Nothing: Set mRst = Nothing
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "ok"
    
29. End Sub
    

复制代码

如云家家

opel-wong 发表于 2020-9-16 17:29
代码如下，供参考：

谢谢您的帮忙。