一个问题，在线等，急

Question

请问各位，vb中怎样把excel数据表里的数据导入到access中？
最好能做成接口例如 ImportFiles(String Filename,int type).
filename 是excel文件名，type是转换类型(类似于1就导入1.mdb,2就导入2.mdb）
急，在线等待~~
高分相送~~

Answer 1

Private Sub Command1_Click() 
    '''' 在FROM 中添加DATA控件 
    ''''使DATA NAME ： DATA1EXCEL 
    '''' CONNECT： Excel 8.0; 
    '''' 打开相应的文件的表 
    Dim Db As Database, Rs As Recordset '定义为公用变量 
    Dim TableNew As TableDef 
    Dim SQLstring, SQLfield, SQLvalue As String 
    Dim i, n As Integer 
     
    Set Db = Workspaces(0).OpenDatabase("C:\BROW\TEST.MDB") '''MDB 正确的文件路径 
    Db.Execute ("DROP TABLE TestTMP ") ''调试使用 
    Set TableNew = Db.CreateTableDef("TestTMP") '''临时的新表名 
     
    For i = 0 To DataEXCEL.Recordset.Fields.Count - 1 '''通过循环获得字短名，类型，长度等 
     With TableNew 
     .Fields.Append .CreateField(DataEXCEL.Recordset(i).Name, _ 
     DataEXCEL.Recordset(i).Type, DataEXCEL.Recordset(i).Size) 
     End With 
    Next 
     
    Db.TableDefs.Append TableNew 
     
    Set Rs = Db.OpenRecordset("testtmp", dbOpenDynaset) 
    DataEXCEL.Recordset.MoveFirst 
    For i = 1 To DataEXCEL.Recordset.RecordCount 
     With Rs 
     .AddNew 
     For n = 0 To DataEXCEL.Recordset.Fields.Count - 1 '''通过这样的循环才能保证类型，长度匹配，否则很难控制错误 
     Rs(n) = DataEXCEL.Recordset(n) 
     Next 
     .Update 
     End With 
     DataEXCEL.Recordset.MoveNext 
    Next 
    Set Db = Nothing 
    Set TableNew = Nothing 
    End Sub 也可以使用ADO实现
用SQL语句select into语句，注意连接字符串的写法

Answer 2

那能不能指定excel中的一个字段对应access中的某一个字段呢