Dim cn1 As New ADODB.Connection
cn1.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & path & "半成品出入库表.xlsm" & ";extended properties=""excel 12.0 Xml;HDR=YES; IMEX=0"""
strsql = "insert into [原始记录账$] (日期,编码,物料名称,规格型号,单位,当日出库数量,备注,年,月,日) values (now,'" & rs("物料号") & "', '" & rs("物料描述") & "', '" & rs("规格型号") & "', '" & rs("单位") & "', " & Me.数量 & ", ""系统销售出库"",year(now),month(now),day(now))"
cn1.Execute strsql
简单暴力！