excel导入access遇到问题

Question

Private   Sub   ExportExcelSheetToAccess1(sSheetName   As   String,   sExcelPath   As   String,   sAccessTable   As   String,   sAccessDBPath   As   String) 
Dim   SQL           As   String 
Dim   conn           As   ADODB.Connection 
Set   conn   =   New   ADODB.Connection 
Dim   Constr           As   String 
Constr   =   "PROVIDER       =       Microsoft.Jet.OLEDB.4.0;   "   &   "Data   Source=   "   &   sAccessDBPath 
conn.Open   Constr 
SQL   =   "select   *   into   "   &   sAccessTable   &   "   from   [excel       8.0;database=   "   &   sExcelPath   &   "].[   "   &   sSheetName   &   "$]   " 
conn.Execute   SQL 
conn.Close 
Set   conn   =   Nothing 
End   Sub 
这是网上的一段代码 
我修改后运行如下运行，提示“类型不匹配” 
Private   Sub   Command1_Click() 
Call   ExportExcelSheetToAccess1([sheet1$],   "   D:\ssq.xls",   "CompareBase",   "D:\MHT_Data.mdb") 
End   Sub 
如果将参数[sheet1$]改为"sheet1"又提示无效括号名称，请哪位大哥指点一下，谢谢了

Answer 1

Sub ImportToAccess()conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\6cp-10\全序交付\TDSJ.MDB;" & _
   "Jet OLEDB:Engine Type=4"
   
'conn.Execute ("delete * from CPJF")
sqlString = "INSERT INTO [CPJF] SELECT * FROM [Excel 8.0;DATABASE=" & _
ThisWorkbook.FullName & ";HDR=YES].[系统倒入$];"
conn.Execute sqlString
MsgBox "" & gg & "日数据系统倒入成功!", vbInformation, "交付日报"
conn.Close
Set conn = Nothing
End Sub
EXCEL-VBA中