数据导入ACCESS问题

ty_1029

搜索了半天,发现很多代码都是直接导入设定好的路径和文件名.

我现在的问题想要做个按纽,点击后出现对话选择框,由用户自己选择路径和需要导入的文件,当然,文件格式最好是可以选择的,如果不可以选择,那就指定仅为TXT文件,而导入的ACCESS表是指定的,不需要用户再选择.

其实简单的说呢,就是想很多软件一样,打开按纽,自己选择,然后确定后,即完成数据的导入功能,有点自定义的感觉~

各位帮忙了~~

Grant

Public Function GetFolder() As String
Set dlg = Application.FileDialog(1)
With dlg
.AllowMultiSelect = False
.Show
End With
If dlg.SelectedItems.Count > 0 Then
GetFolder = dlg.SelectedItems(1)
Else
GetFolder = ""
End If
Set dlg = Nothing
End Function

Sub Test()
Debug.Print GetFolder
End Sub

ACMAIN_CHM

学习了，才知道 FileDialog 这个对象，以前还一直找 commondialog之类的，原来叫这个名字。

ty_1029

呵呵,我也找到了帮助文件,学习学习下~~

ty_1029

测试了一下Grant 的代码,也看了帮助,问题那只是返回一个和指定路径中文件夹相对应的 Folder 对象,
那导入数据的代码呢,呵呵~
各位,帮忙帮到底吧~~先拜托各位了~

Grant

Set dlg = Application.FileDialog(4) 文件夹

ty_1029

Set dlg = Application.FileDialog(4) 文件夹
Grant 发表于 2009-2-3 14:50

老大,这撒意思啊,楞是没看明白,放什么地方,就这个代码,似乎也不是导入数据的啊

Grant

老大,这撒意思啊,楞是没看明白,放什么地方,就这个代码,似乎也不是导入数据的啊
ty_1029 发表于 2009-2-3 15:07

晕倒,我以为你要获得文件夹路径

ACMAIN_CHM

请在ACCESS的VBA帮助中查看

TransferText 方法
TransferSpreadsheet 方法

IN 子句
标识出外部数据库中的表，例如dBASE或Paradox数据库，或Microsoft Jet外部数据库，Microsoft Jet数据库引擎能够与之相连。


论坛中应该有许多贴子讨论过如何倒入数据的功能了。

Grant

http://www.office-cn.net/forum.p ... hlight=%B5%BC%C8%EB
看看此帖,有详解有时候用一下搜索会来得比较快