셀에 지정된 파일 경로를 읽고 인쇄하는 방법

TL;DR(3행)

전제 조건

Test 폴더 안에 BookA.xlsx, Book1.xlsx, Book2.xlsx, Book3.xlsx가 존재한다.

BookA.xlsx는 다음과 같이 Book1.xlsx ~ Book3.xlsx의 파일 경로를 설명합니다.

코드

' メインプロシージャ
Sub Main()
  ' 変数の定義
  Dim filePath As String

  ' A1からA3のセルを参照
  For Each cell In Range("A1:A3")
    ' ファイルパスの取得
    filePath = cell.Value
    ' 印刷プロシージャの読み出し
    Call PrintBook(filePath)
  Next
End Sub


' 印刷用プロシージャ
Sub PrintBook(ByVal filePath As String, Optional ByVal sheetName As String = "")
  ' ブックを操作するために用意
  Dim wb As Workbook
  ' filePathで指定されたブックを開く
  Set wb = Workbooks.Open(Filename:=filePath, ReadOnly:=True)

  ' シート名が指定されていない場合，読み込んだブックから取得
  If sheetName <> "" Then
    wb.Sheets(sheetName).Select
  End If

  ' 印刷ダイアログを開く
  ' SendKeys "{ENTER}" '一気に印刷までしたい時はコメントを外す
  Application.Dialogs(xlDialogPrint).Show

  ' ファイルを閉じる
  wb.Close False
  ' wbの初期化
  Set wb = Nothing
End Sub

단번에 인쇄하는 경우

' 印刷ダイアログを開く
SendKeys "{ENTER}" '一気に印刷までしたい時はコメントを外す
Application.Dialogs(xlDialogPrint).Show

참고 사이트