|
▼やまと さん:
こんにちは。
>また、うまく動かないのでわからないのですが、作って頂いたものと私が作ったもの(セルの値などが間違っていたもの)どう違うのでしょうか?
こっちの話を忘れていました。
「うまく動かない」というのを詳しく知りたいですね。
エラーになるとか、何もおきないとか・・・・。
私は、当初、一覧表シートのセル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までは正しく印刷されていますよ!!
|
|