Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69089 / 76738

←次へ　｜　前へ→


	【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