如何将部分文件名导入字段

Question

我有一个导入到 access 2007 中的文件，我想知道我是否可以获取该文件名的一部分并将其放入 Access 中的字段中？例如，下面是文件名的一个示例：

"20140211_agent_statistics.csv"

我对此做了一些研究，但当数字一直在变化时，似乎找不到答案。我只需要抓住这个文件名上的数字。但是，这些数字一直在变化。有人对此有解决方案吗？提前谢谢你。非常感谢任何帮助和代码，我对 vba 很陌生。

Answer 1

基于一些假设：

您正在通过代码导入它，以便它选取文件名？数字是日期，所以可能总是 8 个字符长？

如果通过代码导入，则将文件名分配给变量，如果不这样做，请按照以下步骤操作：

Dim strFileO as String, strFileLoc as String
strFileLoc = "C:YourFolder" ' Folder where file is saved
strFileO = Dir(strFileLoc & "*.csv")

上面将拾取文件夹中的任何.csv文件，您应该在导入后移动它们

一旦你有了strFileo，然后得到日期：

Dim lDate as Long
lDate = Left(strFileO,8)
'Or if the numbers aren't always 8 characters:
lDate = Left(strFileO. InStr(strFileO,"_") - 1) ' Assumes numbers followed by "_"