將CSV文件合併爲一個主文件並將文件名保留在列2中

Question

我有很多CSV。我想合併成一個大的，進一步的文件，我還需要保持文件名中的列2

我的CSV文件的內容

文件名ABNK102455

Column A 
12/215425 
12/125485 
12/215435 

文件名ABNK102456

Column A 
12/215425 
12/125485 
12/215435 

結果

Combined.CSV

Column A 
12/215425 ABNK102455 
12/125485 ABNK102455 
12/215435 ABNK102455 
12/215425 ABNK102456 
12/125485 ABNK102456 
12/215435 ABNK102456 

這是可能的，以及如何？

Answer 1

@ECHO OFF 
SETLOCAL 
SET "sourcedir=U:\sourcedir" 
SET "mask=q*.csv" 
SET "headerlinegenerated=" 
(
FOR /f "delims=" %%a IN ('dir /a-d /b "%sourcedir%\%mask%"') DO (
    SET "headerline=" 
    FOR /f "usebackqdelims=" %%m IN ("%sourcedir%\%%~nxa") DO (
    IF NOT DEFINED headerlinegenerated SET "headerlinegenerated=Y"&ECHO %%m 
    IF DEFINED headerline ECHO %%m %%~na 
    SET headerline=Y 
) 
) 
)>newfile.txt 
GOTO :EOF 

你需要改變的sourcedir設置，以滿足您的具體情況。

我使用了一個名爲q26135599-1.csv和q26135599-2.csv的文件，其中包含我的測試數據。您需要調整mask的設置以適應。

主要生產newfile.txt

最好不要嘗試在源目錄中創建newfile.txt爲.csv，除非你真的相信它不會被列入%mask%。

Answer 2

，讓你去....

Sub Test() 
Dim Idx As Long 
Dim RowNum As Long 
Dim TargetRange As Range 
Dim FileName As String 

    RowNum = 1 
    Set TargetRange = ActiveSheet.[A1] 

    ' File selection loop 
    With Application.FileDialog(msoFileDialogFilePicker) 
     .AllowMultiSelect = True 
     ' use .Filters.Add ... to present only .txt, .csv files etc. 
     .Show 

     ' File processing loop 
     For Idx = 1 To .SelectedItems.Count 

      ' here you get each file name inc. full path ... one by one 
      FileName = .SelectedItems(Idx) 

      ' isolate filename 
      ' open file 

      ' while not end of file 
      '  read from file line by line into a string variable 
      '  place string into TargetRange(RowNum, 1) 
      '  place filename into TargetRange(RowNum, 2) 
      '  increment RowNuM 

     Next Idx 
    End With 
End Sub