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

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

“20140211_agent_statistics.csv”

---

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

在一些假设上工作：

您正在通过代码导入此文件，以便它拾取文件名？ 数字是日期，所以可能总是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 "_"