Sub 錄入資料()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim db_dir As String
Dim s1 As String, pt$, jh$, cl%
Dim arr()
arr = Range("b2:d3").Value
Set conn = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")
db_dir = "provider = microsoft.ace.oledb.12.0;data source =" & ThisWorkbook.Path & "\Database1.accdb"
conn.Open db_dir
For i = 2 To 4
s1 = "insert into 生產資料(平臺,井號,時間)" & _
"SELECT * FROM [sheet1$]"
conn.Execute s1
Next i
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/86622.html
上一篇：大佬救救我吧，看了一天了
下一篇：python scrapy問題