我可以使用VBA僅導出工作表中的范圍嗎？

Question

我剛開始學習VBA並構建了一個導出特定工作表的小應用程序。 我想更進一步，只從該表中導出一個范圍。

我嘗試了各種不同的編碼方案，但無濟於事。

Sub saveSheetToCSV()

    Dim myCSVFileName As String
    Dim tempWB As Workbook

    myCSVFileName = ThisWorkbook.Path & "\" & "EXPORT_" & VBA.Format(VBA.Now, "ddMMyyyy") & ".csv"

    ThisWorkbook.Sheets("Data").Activate

    ActiveSheet.Copy
    Set tempWB = ActiveWorkbook

    With tempWB
    .SaveAs FileName:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False
    .Close
    End With
End Sub

任何人都可以確認我會用什么代碼來導出工作表中的范圍？ 我試圖在名為“數據”的工作表中導出范圍A2：D24，而不是像上面的當前代碼那樣導出整個工作表。 謝謝。

Answer 1

將范圍復制到新工作簿中的新工作表。 另存為。 關。

    Dim myCSVFileName As String
    Dim tempWB As Workbook

    myCSVFileName = ThisWorkbook.Path & "\" & "EXPORT_" & VBA.Format(VBA.Now, "ddMMyyyy") & ".csv"
    'Create new Workbook.
    Set tempWB = Workbooks.Add
    'Copy Range
    ThisWrokbook.Sheets("SheetNameWithRange").Range("A1:Z40").Copy    
    With tempWB
        'Paste Range
        .Worksheets(1).Range("A1").Paste 'Or Paste as Values to not retain Links/Formulas
        'Save and Close
        .SaveAs FileName:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False
        .Close
    End With