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

Question

我有一个文件，我导入到访问2007年，我想知道如果我可以参与该文件名的一部分，并将其放入访问字段？例如，以下是文件名的一个例子：

“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 "_"