シートを別ブックに保存する(オフィスTANAKA練習問題４)

1　よく使うコードの整理

2コード

(1)xlsx保存

    Sub TanakaMondai4()
        Dim i As Long
        For i = 2 To Sheets.Count
            ThisWorkbook.Sheets(i).Copy
            With ActiveWorkbook
                .SaveAs "C:\Work\" & ActiveSheet.Name & ".xlsx"
                .Close
            End With
        Next
End Sub

 (2)PDF保存

3疑問 ExportAsFixedFormat でPDFとして保存できるなら、直接ExcelのFormatで別保存できないのか。→答え　できない。

 https://docs.microsoft.com/ja-jp/office/vba/api/excel.workbook.exportasfixedformat

XlFixedFormatType

Can be either xlTypePDF or xlTypeXPS.

4講義