使用Excel的VBA将列复制到CSV

我有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）一旦命名是正确的，我会简单地使用追加命令将所有文件打包在一起？