ÏëÓà vbʵÏÖexcel±í¸ñµ¼ÈëaccessÊý¾Ý¿â¡£

Private Sub Command1_Click()
If Combo1.Text = "" Then
    MsgBox "ÇëÑ¡Ôñµ¼ÈëÊý¾Ý£¡", vbInformation, "Ìáʾ"
Else
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & App.Path & "\dm.mdb;Persist " & "Security Info=False;Jet OLEDB"
    cn.Execute "SELECT * INTO sbjbztb from [Sheet1$] IN IN " & Combo1.Text & "into sbjbztb"" ""EXCEL 8.0;"""
end if

End Sub

Ö´Ðкó×ÜÊÇ cn.Execute "SELECT * INTO sbjbztb from [Sheet1$] IN IN " & Combo1.Text & "into sbjbztb"" ""EXCEL 8.0;"""
Õâ¾ä³ö´í.´íÎóÊÇfrom×Ó¾äÓï·¨´íÎó¡£

---

¶à¸öIN

---

Óï·¨Ô­ÐÍÊÇ£º
sql = "SELECT * INTO sbjbztb from [Sheet1$] IN ""d:\youXls.xls"" ""EXCEL 8.0;"""
ÄãÏÖÔÚIN×Ó¾äÖл¹ÓÐinto£¬²»ÖªµÀÄãʲôÒâ˼£¬ÏëʵÏÖʲô£¿

---

cn.Execute "SELECT * INTO sbjbztb from [Sheet1$] IN " & Combo1.Text & """ ""EXCEL12.0;"""

ÎÒµÄÔ­¾äÊÇÕâÑùµÄ£¬ÉÏÃæÄǸöÊÇÕ³µÄʱºòÕ³´íÁË

---

ÓÑÇéUP

---

try:
cn.Execute "SELECT * INTO sbjbztb from [Sheet1$] IN """ & Combo