※当サイトの一部記事には広告を含みます。
うさねこ気まぐれ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)

免責事項

本記事のサンプルプログラムは動作・結果を保証するものではありません。 利用により発生したいかなるトラブル・損害についても、当方は責任を負いません。


広告
PR
AKRacing ゲーミングチェア デスクチェア 本田翼 監修オリジナルカラーモデル ホワイト グレー 高耐久PUレザー アームレストVer.2 150度リクライニング 在宅 リモート
AKRacing ゲーミングチェア デスクチェア 本田翼 監修オリジナルカラーモデル ホワイト グレー 高耐久PUレザー アームレストVer.2 150度リクライニング 在宅 リモート
本田翼さんが監修したオリジナルカラーモデル。
張地素材に高耐久PUレザーを採用
寸法:座面奥行 46cm、座面部分横幅 38cm 、座面厚さ 10cm 、背もたれ幅 52.5cm、背もたれ高さ 85cm、座面下高さ 33~39.5cm、重量 24kg
最大150°のリクライニング機能と、昇降・回転の調整が可能なアームレストで、お好みのポジションで着座可能。アームレストは従来に比べ高さのあるVer.2仕様にアップデート。
組み立て式(専用工具と日本語組立マニュアル付属)。安心のメーカー(AKRacing)1年保証
Amazonで見る