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