|
后两个问题要求不明,第一个问题请参考:
Sub EXCEL表向数据库追加重复记录()
Dim cnn As New ADODB.Connection
Dim SQL As String
Dim arr, i&, s$
arr = Range("A1").CurrentRegion
For i = 2 To UBound(arr, 2)
s = s & ",A.[" & arr(1, i) & "]"
Next
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\休假管理.accdb"
SQL = "INSERT INTO 休假记录 SELECT " & Mid(s, 2) & " FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[休假记录$B1:M" & Range("A1").CurrentRegion.Rows.Count _
& "] A LEFT JOIN 休假记录 B ON A.员工编号=B.员工编号 WHERE B.员工编号 IS NULL"
cnn.Execute SQL
MsgBox "ok"
cnn.Close
Set cnn = Nothing
End Sub
|
评分
-
1
查看全部评分
-
|