ms-access - Access 2003，需要代码导入文件，运行spec转换为文本，然后重命名文件

Question

我在这方面遇到了很大的困难——有人可以帮忙吗？我需要用于导入文件的命令按钮的代码（文件每次都会不同，但始终是 txt. 或 csv），运行将所有数据类型转换为文本的导入规范（该规范称为 SpecsTest），然后调用表“Scrubbed”（不是原始文件名）。我也无法创建一个有效的宏——挑战是每次运行时原始文件名都会不同。

Answer 1

没有用过 Access，但是用 Excel 做了很多。尝试这个：

Dim ds As FileDialog
Set ds = Application.FileDialog(msoFileDialogOpen)
ds.Show
Dim path as String
path = ds.SelectedItems(1)

您必须添加一些检查以确保选择了文件等，但这应该让您走上正确的轨道。顺便说一句，您可以在 FileDialog 中配置默认​​目录、过滤器等，因此您应该能够限制用户搞砸导入的倾向，但您永远无法分辨。