※当サイトの一部記事には広告を含みます。
うさねこ気まぐれPG開発室

Excel VBA 別のエクセルブックを開くOpenメソッド OPEN時にエラーをLink出したくない

エクセルブックを開くOpenメソッド

うさこちゃん
うさこちゃん

このサンプルは自分以外のエクセルブックを開いて操作する場合のやり方です。

サンプルコード

うさこちゃん
うさこちゃん

ブックを読み取り専用モード・リンクの更新なしで開きます。
単純に開きたい場合は「ReadOnly:=True, UpdateLinks:=0」は必要ありません。

    Dim ObjOpenBook           As Object
    Dim StrOpenFilePath       as string

    StrOpenFilePath = "C:データ.xlsx"
    

    'ファイルを開く
    '--Set ObjOpenBook = Workbooks.Open(StrOpenFilePath) 単純に開く場合はこちら
  Set Workbooks.Open(StrOpenFilePath), ReadOnly:=True, UpdateLinks:=0)
    
    
    ' ------------------------------------------------------------------------
    ' 処理
    ' ------------------------------------------------------------------------


    'ファイル閉じる。
    Workbooks(ObjOpenBook.Name).Close
    

読み取り専用で開く

うさこちゃん
うさこちゃん

読み取り専用モードで開くには「True」指定

ReadOnly:=True

外部参照 (リンク) の更新方法指定 (OPEN時にエラーをLink出したくない)

うさこちゃん
うさこちゃん

ファイル内の外部参照 (リンク) の更新方法を指定します。
この引数が省略された場合はリンクの更新方法を指定するように求められます。
外部ファイル(リンク先)がない場合はエラーが出るので、指定したい場合に利用するとよいです。

UpdateLinks:=0

説明
0ブックを開いたときに外部参照 (リンク) は更新されません。
3ブックを開いたときに外部参照 (リンク) が更新されます。

読み込み専用・リンクの更新なしのサンプル

Workbooks.Open(StrOpenFilePath), ReadOnly:=True, UpdateLinks:=0)

免責事項

本記事のサンプルプログラムは、学習・参考用として掲載しているもので、動作や結果を保証するものではありません。 利用する場合は、ご自身の環境に合わせて確認しながらお使いください。万が一トラブルや損害が発生した場合でも、当サイトでは責任を負いかねます。


広告
プレミアムプラン ふるさと納税

※本文中に記載の会社名・製品名・サービス名・ゲームタイトル名等は、各社の商標または登録商標であり、権利は各社に帰属します。

※サンプルはテストを行っていますが、すべての環境での動作を保証するものではありません。ご利用は自己責任でお願いいたします。

※本記事の仕様・価格・対応状況等は執筆時点で確認できた情報をもとに掲載しています。最新の情報はメーカー公式サイトをご確認ください。

※当サイトでは一部の記事において、アイキャッチ画像にAI生成を使用しています。