如何導入文件名的一部分到一個字段

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