Excel VBA を学ぶなら moug モーグ | 即効テクニック | フォルダー内のExcelブックを全て印刷する
サンプルマクロでは、[ファイルを開く]ダイアログボックスの機能を表すFileSearchオブジェクトのFileSearchプロパティを使用して、指定されたフォルダで見つかったExcelブックの全てのシートを印刷します。 Sub Sample() With Application.FileSearch .LookIn = "C:\" .Filename = "*.xls" If .Execute > 0 Then For i = 1 To .FoundFiles.Count Workbooks.Open Filename:=.FoundFiles(i) For Each st In Worksheets st.Select st.PrintOut Next st ActiveWorkbook.Close False Next i MsgBox "全シートの印刷が終わりました。" Else M
EXCEL VBA 印刷
Sub アクティブシートを印刷する() ActiveSheets.PrintOut '印刷する（1部） End Sub Sub 選択したシートを印刷する() 部数 = 1 '印刷部数を指定する Sheets("???").PrintOut Copies:=部数 '指定部数を印刷する End Sub Sub 選択した部分を印刷する() 部数 = 1 '印刷部数を指定する Range("A1:B4").Select '範囲を選択する Selection.PrintOut Copies:=部数 '指定部数を印刷する End Sub
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
