zip2pdf

zipファイルからpdfを作成

 zip2pdf

[VBA]サンプル1

Sub chage_sheet_name() Dim i As Long For i = 1 To Sheets.Count If Left(Sheets(i).Name, 1) Like "[0-9]|[０-９]" Then Sheets(i).Name = i end if Next i End Sub