如何将excel表转换为access.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

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 
<END>