Sub ExportSheetsToCSV(). Dim xWs As Worksheet. Dim xcsvFile As String. For Each xWs In Application.ActiveWorkbook.Worksheets. xWs.Copy.
確定! 回上一頁