使用Excel的VBA将列复制到CSV

Question

我有141张excel表。我需要将每张表中的两列逐渐转储到一个巨大的csv文件中。这就是我到目前为止所做的：

Sub ColumnCopytoCSV()
'
' ColumnCopytoCSV Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'

    Range("C:C,H:H").Select
    Range("H1").Activate

    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    strFileFullName = ThisWorkbook.FullName


    ActiveWorkbook.SaveAs Filename:=strFileFullName & ".csv", FileFormat:=xlCSV, _
        CreateBackup:=False
    ActiveWindow.Close
End Sub

一些问题......

1）Excel要求我的个人工作簿打开，但“ThisWorkBook”不断拉“个人”而不是FileX和FileY的名字。我希望将导出的文件命名为FileX.csv和FileY.csv，具体取决于它们的来源。

2）一旦命名正确，我是否只需使用Append命令将所有文件一起修补？