[求助]为什么导入的是第一个表的数据?

chul72

Private Sub Command0_Click()

On Error Resume Next

Dim myXLS As Object

Dim myFile

myFile = "f:\123.xls"

Set myXLS = GetObject(myFile)

Dim w As Worksheet

For Each w In myXLS.Worksheets

    CurrentDb.Execute "DROP TABLE " & w.Name



Next



For Each w In myXLS.Worksheets



    DoCmd.TransferSpreadsheet acImport, 8, w.Name, myFile, True, ""



Next

Set myXLS = Nothing



End Sub

以上代码运行后可以将f:\123.xls中所有的SHEET导入,并生成与SHEET名相对应的表名.但问题是所有表的内容都是一样,就是f:\123.xls中第一个SHEET中的内容.为什么会这样呢?

quanli

  可以搜索一下本论坛的,从excel大批量导入例子看一看.