複数のシートを独立させて保存

Sub Save_pdf()

Dim myPath As String
Dim myFileName As String
Dim NewFileName As String
Dim i As Integer

myFileName = ActiveWorkbook.Name’アクティブシートの名前
myPath = ActiveWorkbook.Path’アクティブシートのパス

Application.ScreenUpdating = False
For i = 1 To ActiveWorkbook.Worksheets.Count
Windows(myFileName).Activate
NewFileName = Left(myFileName, Len(myFileName) - 4) & _
"_" & ActiveWorkbook.Worksheets(i).Name
ActiveWorkbook.Worksheets(i).Copy
Application.DisplayAlerts = False



ActiveWorkbook.SaveAs Filename:=myPath & "\" & NewFileName & ".xls"
', FileFormat:=xlHtml 'htmlでやりたいときはここまで



Application.DisplayAlerts = True
ActiveWorkbook.Close
Next i
Application.ScreenUpdating = True
End Sub

'pdfにしたいときは↓
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
スポンサーサイト

コメントの投稿

非公開コメント

プロフィール

とも

Author:とも
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
FC2カウンター
検索フォーム
RSSリンクの表示
リンク
QRコード
QR