vb操作文件夹多电子表格 添加数据到数据库

Private Sub 批量文件夹导入_Click()

If MsgBox(" 1程序文件夹内必须有 五险一金 文件夹. 2五险一金里面表格名称开头前六位格式必须是 202401 202512 的日期格式 3表格里面字段名称必须和数据库字段相同 4必须是 A列工号 B列姓名 D列身份证 …顺序 ！ 5程序启动后不动鼠标 “, vbYesNo + 64, “强烈提示！”) = vbNo Then GoTo l
Dim xlApp As New Excel.Application '定义并创建EXCEL对象
Dim I As Integer
Dim zd3 As Object
Set zd3 = CreateObject(“scripting.dictionary”)
Dim ger As New Excel.Workbook '创建工作簿
STRSQL = “Select * From xjsdb where 序号=1”
RST.Open STRSQL, CNN, 1, 3
For I = 0 To RST.Fields.Count - 1
huwei1 = RST.Fields(I).Name
If Not zd3.Exists(huwei1) Then
zd3.Add huwei1, huwei1
End If
Next I
RST.Close
Dim sfzh, gjz As String
xlApp.DisplayAlerts = False
'xlApp.Visible = True '让Excel可见
Dim fso As Object, fd As Object, f As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set fd = fso.GetFolder(App