Office中国论坛/Access中国论坛

标题: [求助]为什么导入的是第一个表的数据? [打印本页]

作者: chul72 时间: 2005-8-1 08:38
标题: [求助]为什么导入的是第一个表的数据?
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 时间: 2005-8-1 15:10
可以搜索一下本论坛的,从excel大批量导入例子看一看.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)