2017-04-01から1ヶ月間の記事一覧
Sub test() '説明 指定フォルダ内のCSVをすべて結合して、保存するプロシージャ CRFILE = ActiveWorkbook.Path & "\test.csv" '1* Dim obj As Object Dim arg As String arg = ActiveWorkbook.Path & "\downloads\*.csv " '2* Set obj = Nothing Call Shell(…
Sub test() '説明 指定フォルダ内のCSVをすべて結合して、保存するプロシージャ CRFILE = ActiveWorkbook.Path & "\test.csv" '1* Dim obj As Object Dim arg As String arg = ActiveWorkbook.Path & "\downloads\*.csv " '2* Set obj = Nothing Call Shell(…