進口數據會議某些標準這下面的代碼,我有:VBA來自所有電子表格中的一個目錄
Public Function Import_Multi_Excel_Files()
Dim InputFile As String
Dim InputPath As String
InputPath = "L:\Directory\To\Project\Data\"
InputFile = Dir(InputPath & "*.xls*")
worksheetName = "WorksheetThatHasData!A:H"
Do While InputFile <> ""
DoCmd.TransferSpreadsheet acImport, , "Table_1", InputPath & InputFile, -1, worksheetName, True '< The true is for column headers
InputFile = Dir
Loop
End Function
上述代碼在每個工作簿中抓住所有的數據從一個特定的工作表(其是好)並將其導入MS Access。但是我注意到,儘管報告是針對當月的日期,但我們的報告始終包含當前月份和上個月。每個文件名都具有報告 - YYYYMM格式。我正在踢的想法是看文件名的YYYYMM部分,只抓取具有相應日期的數據。
編輯和增加以下
Actuarial_Report-201705
Enrollment_Report-201705
高級-DATA-201705
上面的每個報告包括從五月和四月的信息。但是前幾個月的報告將明確包括4月份以及3月份的數據等等。發生的情況是,我輸入的所有數據都計入了兩次註冊,保費和精算信息。我只想從201705年的報告中提取201705年的數據,並讓代碼忽略2017年的信息。
請提供一些示例文件名(+擴展名)。此外,讓你的問題更加明確。在隔離月份和年份後,你想要做什麼? –
你正在踢的想法是一個好主意。發佈您嘗試實現該想法的代碼,並簡要說明卡住的位置和錯誤行爲(例如錯誤消息)。 –
@ErikvonAsmuth我向底部添加了我的問題。如果報告的文件名中包含201705年的日期,我只希望從2017-05年複製信息。文件名全部具有格式爲YYYYMM的日期,並且在工作簿中,列B具有格式爲YYYY-MM的日期。 – emka