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 ") ''調(diào) 試 使 用 
    Set TableNew = Db.CreateTableDef("TestTMP") '''臨 時 的 新 表 名 
     
    For i = 0 To DataEXCEL.Recordset.Fields.Count - 1 '''通 過 循 環(huán) 獲 得 字 短 名 ， 類 型 ， 長 度 等 
     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 '''通 過 這 樣 的 循 環(huán) 才 能 保 證 類 型 ， 長 度 匹 配 ， 否 則 很 難 控 制 錯 誤 
     Rs(n) = DataEXCEL.Recordset(n) 
     Next 
     .Update 
     End With 
     DataEXCEL.Recordset.MoveNext 
    Next 
    Set Db = Nothing 
    Set TableNew = Nothing 
    End Sub 
<END>