VBA代碼將每日更改的.csv文件復制並粘貼到Excel中

Question

因此，我有一個.csv文件，該文件每天都會導出到我的文件中，其格式為：“ FILENAME03_28_2017-14_45_01”，因此它隨日期每天都會更改。 我試圖能夠將文件中的所有內容復制並粘貼到另一個Excel工作表中，但是由於文件名每天都在變化，因此我無法弄清楚如何編寫代碼以查看日期中的某個單元格並進行連接使用基本的FILENAME打開它。 我有一個代碼可以打開該文件夾中的最新文件，但是我將其粘貼在粘貼部分。

您不能只做類似的事情（其中C15包含當前日期）？

Windows("C:\Users\ME\Desktop\FOLDERS\FILENAME" & Range("C15")&".csv").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("EXCELFILE.xlsm").Activate
Sheets("SHEET1").Select
Range("T1").Select
ActiveSheet.Paste`

謝謝！

Answer 1

您可以使用以下vba代碼捕獲日期：

format(date, "mm_dd_yyyy") 'returns "03_28_2017"

日期是Excel VBA中的關鍵字，它以mm / dd / yyyy格式提供今天的日期。 但是，您可以使用上面編寫的Format函數將其轉換為多種格式。 結果輸出是字符串，而不是日期-因此您可以在動態文件名中使用它。