Excel VBA特定の列をCSVにエクスポート

Question

私はVBAプログラミングにはかなり新しいですが、ExcelシートをCSVファイルにエクスポートする小さなコードを作成しています。これはできるだけユーザーフレンドリーでなければならないので、私はこれを考え出しました。

Sub export_first() 

    Application.DisplayAlerts = False 

    Dim wb As Workbook, InitFileName As String, fileSaveName As String 

    InitFileName = ThisWorkbook.Path & "\Export nr1_" & Format(Date, "yyyymmdd") 

    Sheets("MySheetNameToExport").Copy 

    Set wb = ActiveWorkbook 

    fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitFileName, _ 
    fileFilter:="Semicolon separated CSV (*.csv), *.csv") 

    With wb 
     If fileSaveName <> "False" Then 

      .SaveAs fileSaveName, FileFormat:=xlCSV, Local:=True 
      .Close 
     Else 
      .Close False 
      Exit Sub 
     End If 
    End With 

End Sub 

これはうまくいきます。ボタンに追加され、ボタンが押されると、コードはすべてのジョブを実行します。さて、私の同僚は、ユーザーの一部の値をチェックする列を使用する必要があります（C、Dと呼ぶことができます）が、ワークシートをエクスポートするときには、これらの列を無視してエクスポートする必要があります。私は何をしようとしたことのようなシートラインを拡張することです：

Sheets("MySheetNameToExport").Range("A:B, E:G").Copy 

しかし、私は私のマクロにこの変更されたラインを追加し、コードを実行して、Excelのクラッシュとちょうどいくつかの歓迎のテキストは非常に最初のシートをエクスポートするときと全く必要ありません。

Answer 1

最初に列CとDを非表示にして、表示範囲のセルのみを範囲からコピーすることをお勧めします。

Columns("C:D").EntireColumn.Hidden = True 
Sheets("MySheetNameToExport").Range("A:G").SpecialCells(xlCellTypeVisible).Copy