何年にもわたって蓄積されたワークブックがたくさんある場合は、それぞれからいくつかのワークシートを印刷する必要があるかもしれません。たとえば、過去10年間の会社の各部門のワークブックを含むフォルダーがあるとします。会社に8つの部門がある場合、フォルダーに80のワークブックがあることを意味します。ここで、(各ワークブックの2番目と3番目のワークシートから)第2四半期と第3四半期の図を印刷する必要がある場合は、問題が発生し始めます。各ワークブックを読み込んでから、選択したシートを印刷すると、非常に時間がかかる場合があります。

より簡単な方法は、印刷を行うマクロを作成することです。

次のマクロは、ディレクトリパスの入力を求めることから始まります。パスを指定すると、マクロは各XLS(Excel)のロードを開始します

ディレクトリ内のファイルを作成し、それぞれから2番目と3番目のワークシートを印刷します。印刷が完了すると、ワークシートは閉じられます。

Public Sub PrintWorkbooks()

Dim sCurFile As String     Dim sPath As String

'Get the path     sPath = InputBox("Starting path?", "PrintWorkbooks")

If sPath <> "" Then         On Error Resume Next         Application.ScreenUpdating = False         If Right(sPath, 1) <> "\" Then             sPath = sPath & "\"

End If         sCurFile = Dir(sPath & "*.xls", vbNormal)

Do While Len(sCurFile) <> 0             Workbooks.Open sPath & sCurFile, , True             With Workbooks(sCurFile)

.Worksheets(2).PrintOut                 .Worksheets(3).PrintOut                 .Close SaveChanges:=False             End With             sCurFile = Dir             DoEvents         Loop         Application.ScreenUpdating = True         On Error GoTo 0     End If End Sub

明らかに、ディレクトリにかなりの数のワークブックがある場合、印刷にはかなりの時間がかかる可能性があります。他に何もすることがない時間を見つけて、マクロの実行を開始することをお勧めします。

注:

このページ(または_ExcelTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link:/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント(2215)は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel(Excel 2007以降)のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link:/ excelribbon-Printing_Selected_Worksheets [選択したワークシートの印刷]