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

【问题标题】：How to import part of a file name to a field如何将文件名的一部分导入字段
【发布时间】：2014-02-18 23:29:07
【问题描述】：

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

“20140211_agent_statistics.csv”

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

【问题讨论】：

标签： vba import ms-access-2007 filenames

【解决方案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 "_"

【讨论】：