关键一步

dragonszr

前面请教了诸位高手很多文件查找功能，现在找到这个文件后，可以让它在文本框里显示，问题是现在如何对该文件操作，例如将excel文件作为一个表导入数据库中，如何实现呢，再次请各位高手指点

[此贴子已经被作者于2003-10-23 16:07:40编辑过]

ADAM

1.不用代碼,用"文件"菜單上的匯入功能
2.用代碼:
DOCMD.TransferSpreadsheet acImport ,acSpreadsheetTypeExcel8 ,"匯入存放的表名","匯入檔案全名含路徑"

dragonszr

那段代码要已知文件路径，不是我所要的
我的目的是在通过文件浏览选定该文件，然后对刚选定的这个文件进行导入

ADAM

把剛選定文件的全名,賦值給一個變量
再用TransferSpreadsheet命令啊.....

dragonszr

我把数据库发上来，帮我改一下代码，我实在是不会，好么？？

ADAM

把你里面的代碼改成這個樣子

Private Sub ok_click()
  Dim aa As String
  aa = Me.txt5.Value
  DoCmd.TransferSpreadsheet acImport, 5, "survey", aa, True
   
End Sub

這上是比較基本的,建議先看看相關入門書籍,
那樣子做起來比較容易,

dragonszr

谢谢，我终于知道了，好，我去看看入门书籍，能给个推荐么

ADAM

我從來沒看過,
都是從幫助文件上學來的
你不妨也去看看
對基礎命令了解后.
寫起來才比較順手.

seaload

这个相对简单了。
如果导入的excel有多个表，而且导入时表头不允许，那又该如何呢？
而且比较常见的！