非标准文件扩展名的 MS Access VBA 数据导入答案

【问题标题】：MS Access VBA Data import for non-std file extensions非标准文件扩展名的 MS Access VBA 数据导入
【发布时间】：2016-04-04 18:59:50
【问题描述】：

我正在努力寻找将文件导入访问表所需的代码。

这是一个直接的文本文件导入，但是源文件来自第三方系统，因此文件扩展名不是通常的 .txt 文件扩展名。

文件显示为“.ZZ;1”

这意味着为了导入 access，我必须在执行导入之前手动更改文件扩展名。

我想知道是否有办法导入具有给定扩展名的文件（使用 VBA）？

或者也许有一段代码可以让我在运行导入脚本之前将文件扩展名更改为访问可以读取的内容。

任何帮助或指导将不胜感激。

【问题讨论】：

【解决方案1】：

在导入文件之前，您可以通过将文件重命名为标准扩展名（.txt 或 .csv）来省去一些麻烦。

要重命名：使用Name Statement

例如

strNewName = Replace(strPathFile, ".ZZ;1", ".txt")
Name strPathFile As strNewName

或者如果您不想更改原始文件，请使用FileCopy Function 或FileSystem.CopyFile

【讨论】：