파일 이름의 일부를 필드로 가져 오는 방법

Question

나는 2007 년에 가져 오는 파일이 있는데 그 파일 이름에 참여하여 액세스 할 수 있는지 궁금합니다. 예를 들어 여기에 파일 이름의 한 예입니다 :

나는이에 대한 몇 가지 연구를했지만 캔트 숫자는 모든 시간을 변경할 때 답을 찾을 수가 "20140211_agent_statistics.csv". 이 파일 이름에있는 번호를 붙잡기 만하면됩니다. 그러나이 숫자는 항상 바뀝니다. 누구든지이 솔루션을 가지고 있습니까? 미리 감사드립니다. 어떤 도움과 코드를 많이 주시면 감사하겠습니다.

Answer 1

몇 가정에서 작업 :이 파일 이름을 집어 들고, 그래서 당신은 코드에 의해이 가져

? 숫자는 날짜이므로 항상 8 자입니다.

당신이 코드로 가져 오는 경우 당신은 당신이하지 않는 경우, 변수에 파일 이름을 지정합니다입니다 방법에 대해

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

위 폴더에있는 .csv 파일을 선택합니다, 당신

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

: 당신이 날짜를 얻기 위해 다음 strFileo이 있으면 그들에게 한 번

수입 이동해야합니다