Question

vb6.0怎么把excel的数据导入到access中？

vb6.0怎么把excel的数据导入到access中？
手动导入我会，想用程序来实现。从网上找了好多资料，可能没有实现得了。
希望能给我一段能用的代码，多谢！
mdb数据库和里面的表已经设计好了，并有了几条记录，想把一张EXCEL表里的记录也加进来。就是追加记录。

Answer 1

如果你是标准的行列表的话，请试试：

Option Explicit

Sub change()

Dim fileToOpen
Dim Filename

fileToOpen = Application _
.GetOpenFilename("excel Files (*.xls), *.xls")
If fileToOpen <> False Then
Workbooks.Open (fileToOpen)
Else
End
End If
With ActiveSheet

ActiveWorkbook.SaveAs Filename:=1, FileFormat:=xlDBF4

Application.DisplayAlerts = False

Application.Quit

End With
End Sub

Answer 2

怎么解决的啊！告诉下，我也在找。。。谢谢了！