vb+access，利用宏导入excel格式数据，估计是老问题了

     问题这样的，一个按钮，功能是，在窗体的目录框中选中一个excel文件后，点击按钮，将excel中的信息按照一定步骤导入到mdb文件的表tb中。
     不知道这么实现，我的思路是：
     在access中单独导入excel文件之后有个保存导入步骤，我想，能不能把这个步骤（跟宏有关系么？）赋值给按钮的点击事件，把excel的文件名也设置为变量，选中那个就导入那个文件？
      --------------------编程问答-------------------- ’经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
    'access导出到excel
    Dim db As New ADODB.Connection
    Dim sPath As String

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb Persist Security Info=False"

    sPath = App.Path + "\backup.xls"
    If Dir(sPath) <> "" Then
        Kill sPath
    Else

    Call db.Execute("select * into Sheet1  In '" & sPath & "' 'excel 8.0;' from 表1")
        MsgBox "导出成功", vbOKOnly, "提示"
    End If

    db.Close
    Set db = Nothing
End Sub

Private Sub Command2_Click()
    '从excel导出到 access
   Dim db As New ADODB.Connection
    Dim sPath As String

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb;Persist Security Info=False"

    sPath = App.Path + "\backup.xls"
    Call db.Execute("select * into Table4 From [Sheet1$]  In '" & sPath & "' 'excel 8.0;'")

    db.Close
    Set db = Nothing
End Sub
--------------------编程问答-------------------- --------------------编程问答-------------------- TO worldy

如果说导出EXCEL的时候按行来导入的话应该怎么实现呢`。
   就是说，写入一行数据就导出一行。写入的时间为不定时。 --------------------编程问答-------------------- 如果每行有个唯一标示，加个where语句限定？没测试过 --------------------编程问答-------------------- 能给下注释么？要excel导入access的就可以，谢谢啦~

引用 1 楼的回复:

’经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
    'access导出到excel
    Dim db As New ADODB.Connection
    Dim sPath As String

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0……

--------------------编程问答-------------------- 提示连接串或者 IN 子句中，未指定数据库是怎么回事啊？

引用 1 楼的回复:

’经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
  'access导出到excel
  Dim db As New ADODB.Connection
  Dim sPath As String

  db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Sour……

--------------------编程问答-------------------- 有个问题，我是想把这些数据全部追加到数据库里，这个代码怎么修改才能把excel名字用一个变量来表示？还有，怎么将这些excel数据追加到同一个表中呢？

引用 1 楼的回复:

’经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
    'access导出到excel
    Dim db As New ADODB.Connection
    Dim sPath As String

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0……

补充：VB ,  数据库(包含打印，安装，报表)