Excel VBA質問箱 IV

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

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


69085 / 76734 ←次へ | 前へ→

【12169】Re:同じ様式のファイルを一括で印刷したい
発言  ichinose  - 04/3/25(木) 16:57 -

引用なし
パスワード
   ▼やまと さん:
こんにちは。

>また、うまく動かないのでわからないのですが、作って頂いたものと私が作ったもの(セルの値などが間違っていたもの)どう違うのでしょうか?
こっちの話を忘れていました。

「うまく動かない」というのを詳しく知りたいですね。
エラーになるとか、何もおきないとか・・・・。

私は、当初、一覧表シートのセルae10〜ae210にファイル名(フルパスで)が
入っているものだと思っていたのです。

よって、オーソドックス(のつもり)にブックを開く---印刷---閉じる
の繰り返しのコードを書きました。途中でハイパーリンクしているという主旨の投稿を拝見しましたので、ファイル名をHyperlink オブジェクトから取得するようにしました。

やまとさんのコードをちょっとだけ変更して実行してみました。
'========================================================
Sub Macro2()

Dim これは変数 As Long
For これは変数 = 10 To 210
 
  Cells(これは変数, 31).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  Sheets(Array("sheet1", "sheet2", "sheet3")).PrintOut
  ActiveWorkbook.Close
Next これは変数
End Sub

私は、ae10〜ae12までにしかハイパーリンクを設定していない状態で実行しましたから
「これは変数」の値が13のときに

>Cells(これは変数, 31).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

でエラー(インデックスが有効範囲にありません)になりましたが、セルae10〜ae12までは正しく印刷されていますよ!!

0 hits

【12135】同じ様式のファイルを一括で印刷したい やまと 04/3/24(水) 18:12 質問
【12136】Re:同じ様式のファイルを一括で印刷したい ichinose 04/3/24(水) 18:27 発言
【12137】Re:同じ様式のファイルを一括で印刷したい やまと 04/3/24(水) 18:49 お礼
【12139】Re:同じ様式のファイルを一括で印刷したい やまと 04/3/24(水) 19:46 質問
【12142】Re:同じ様式のファイルを一括で印刷したい ichinose 04/3/24(水) 21:46 発言
【12147】Re:同じ様式のファイルを一括で印刷したい やまと 04/3/25(木) 1:15 お礼
【12148】Re:同じ様式のファイルを一括で印刷したい ichinose 04/3/25(木) 8:16 発言
【12169】Re:同じ様式のファイルを一括で印刷したい ichinose 04/3/25(木) 16:57 発言
【12191】Re:同じ様式のファイルを一括で印刷したい やまと 04/3/26(金) 12:22 お礼

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