Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34183 / 76732 ←次へ | 前へ→

【47760】Re:複数ファイルの特定シートを一括で印刷したい
お礼  本山 祐二  - 07/3/21(水) 23:09 -

引用なし
パスワード
   ▼Kein さん:
ありがとうございます。

早速試してみました。
・新しいブックを作成("Sheet1""Sheet2""Sheet3")
・そのブックにマクロを記述(標準モジュールに)
・"Sheet1"のA列にファイル名を
・マクロを実行するブックと同じフォルダーに入れました。

試しに10ファイルやってみたのですが、実行後、すぐに下記のエラーが出ます。
”アプリケーション定義またはオブジェクト定義エラーが出ます。1004”

お手数おかけしますが、
よろしくお願いいたします。


▼Kein さん:
>了解しました。それでは仮に・・
>>A列にファイルの一覧
>があるシートを "Sheet1", 表紙シートの値を転記してくるシートを
>"Sheet2", 別紙シートの転記先を "Sheet3" として、ファイル一覧の
>ブックは全て、マクロを実行するブックと同じフォルダーに保存されている、
>とします。
>これでも処理時間は長くなりそうなので、マクロを緊急停止できるように
>キートラップコードを入れておきます。中止したいときに "Esc"キー を連打
>してみて下さい。
>コードは以下のようになります。シート名を適宜変更してから実行してください。
>
>Sub MyData_Print()
>  Dim MyR As Range, C As Range
>  Dim MyF As String, LkS As String
> 
>  With Sheets("Sheet1")
>   Set MyR = .Range("A1", .Range("A65536").End(xlUp))
>  End With
>  On Error GoTo ELine
>  Application.EnableCancelKey = xlErrorHandler
>  For Each C In MyR
>   MyF = ThisWorkbook.Path & "\" & C.Value
>   If Dir(MyF) <> "" Then
>     LkS = "='" & ThisWorkbook.Path & "\[" & C.Value & "]"
>     With Sheets("Sheet2").Range("A1:I10")
>      .Formula = LkS & "表紙!'A1"
>      .PrintOut Copies:=1
>      .ClearContents
>     End With
>     With Sheets("Sheet3").Range("A1:B6")
>      .Formula = LkS & "別紙!'A4"
>      .PrintOut Copies:=1
>      .ClearContents
>     End With
>   Else
>     Debug.Print C.Value & " = 存在しない"
>   End If
>  Next
>ELine:
>  Set MyR = Nothing
>  If Err.Number = 0 Then
>   MsgBox "全ての印刷を終了しました" & vbLf & _
>   "存在しないブックはイミディエイトウィンドウで確認できます"
>  ElseIf Err.Number = 18 Then
>   MsgBox "ユーザーの操作によってマクロを中止します"
>  Else
>   MsgBox "予期しないエラー発生 ! マクロを中止します" & _
>   vbLf & Err.Number & vbLf & Err.Description
>  End If
>End Sub
3 hits

【47748】複数ファイルの特定シートを一括で印刷したい 本山 祐二 07/3/21(水) 16:03 質問
【47749】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 16:06 発言
【47750】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/21(水) 16:12 発言
【47753】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 20:18 発言
【47755】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/21(水) 20:52 発言
【47756】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 21:22 発言
【47757】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/21(水) 21:39 発言
【47759】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 22:23 回答
【47760】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/21(水) 23:09 お礼
【47761】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/21(水) 23:43 発言
【47762】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/22(木) 1:17 発言
【47763】Re:複数ファイルの特定シートを一括で印刷... りん 07/3/22(木) 3:27 発言
【47768】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/22(木) 10:05 発言
【47770】Re:複数ファイルの特定シートを一括で印刷... りん 07/3/22(木) 11:45 発言
【47778】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/22(木) 13:28 お礼
【47782】Re:複数ファイルの特定シートを一括で印刷... Kein 07/3/22(木) 13:51 回答
【47810】Re:複数ファイルの特定シートを一括で印刷... 本山 祐二 07/3/22(木) 20:25 お礼

34183 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free