• ベストアンサー

Excelファイルのマクロによる排他制御

A.xlsというExcelファイルの内容を更新するのですが。 更新しにいくのは、複数のExcelのマクロで作成したツールです。 その複数のツールから同時にA.xlsの更新にいくと当然タイミングによって更新内容が上書き等され壊れてしまいます。 そこで、お互いのツールで排他制御を行おうと思っているのですが、A.xlsを開くopen文での記述が解りません。 どなたか教えていただけないでしょうか。 使用している構文は、こんな感じです。 Workbooks.Open Filename:="A.xls" on errorで重複openのエラーになるかと思ったのですが、エラーになってくれず、重複エラーを検知できません。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • asahina02
  • ベストアンサー率47% (95/202)
回答No.1

MSのヘルプでこんなのがありました。参考ＵＲＬをご覧ください。 一度、書込み用の通常ファイルとしてオープンし、 ＯＫだったらエクセルとしてオープンするという方法です。 ※ページはエクセル97と書いてありますが、 　内容的にどのバージョンでも大丈夫だと思います。

参考URL：
http://support.microsoft.com/default.aspx?scid=kb;ja;408062
sortaro
質問者

お礼

助かりました！ 手動でファイルオープンする時は、Officeが勝手に制御してくれるのですが、マクロ同士で排他制御する方法が分からなくて困っていたところでした。 ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルマクロでファイルオープンでシートカットが使えない

    エクセルマクロでファイルオープンでシートカットが使えない エクセルのVBAマクロについて教えて下さい。 ”Application.GetSaveAsFilename”にてファイルを指定して、”Workbooks.OpenText Filename”にてファイルをオープンするときに、”Application.GetSaveAsFilename”にて指定したファイルがシートカットの時にエラーで停止する。 もし、”Application.GetSaveAsFilename”が実際のファイルの場合には、エラーで停止しない。 ■実際のVBA aFile = Application.GetSaveAsFilename(InitialFileName:=TaskF & "\" & "*.xls", FileFilter:="Excel(xls)ファイル (*.xls),*.xls") Workbooks.OpenText Filename:=aFile　　←左記の箇所でエラー停止する。

  • マクロでファイルオープン

    エクセルのマクロでtest.xlsファイルをオープンする際に元々test.xlsファイルの属性が読み取り専用になっているものを、読み取り専用チェックをはずした状態でオープンすることは可能でしょうか？ Workbooks.Open Filename:="test.xls" ReadOnlyRecommended:=False とかやってもなかなか上手くいきません。

  • エクセルマクロでマクロをアクティブにしたくない

    エクセルのマクロをひとつの「マクロA」という名前で、データーファイルからセルに入っている内容などを呼び出しながらまくろAのシートにデーターを貼り付けながら作業をしています。 Workbooks.Open Filename:= _ "C:\Documents and Settings\owner\My Documents\マクロ.xls" Application.Run "マクロ.xls!マクロ" と記載すると、マクロXLSがアクティブになってしまいます。 その為記載に'ActiveWindow.WindowState = xlMinimized と入れたりするのですが、アクティブになるシートがマクロ以外にうまくいかないことがあるのです。 データーシートは、毎回データーが変わる関係で、DATA．ｘｌｓがAのときやBのときが発生します。

  • EXcelのマクロで相対パスでファイルを開く

    Excelでマクロを使って他のブックを開こうとしています。 同じフォルダ内のブックを開くには Workbooks.Open Filename:=ThisWorkbook.Path & "\ブック名.xls" で開く事が出来たのですが、一つ上の階層にあるブックを開きたいときはどのようなコマンドを使えば良いのでしょうか？？ お教え下さい。

  • エクセルマクロで教えてください。

    先日、皆様から質問の内容がわからないとのお叱りを受けた者です。しばらく出張で不在にしており、昨日出社し皆様からのお叱りに対しもっともであり、質問の内容をうまく伝えられなかった事を反省しております。申し訳ありません。 以下に書いた内容ではいかがでしょうか？ アクティブにしないで、ファイルをオープンさせたいのです。 内容：ＫＹＡＫＵ＿Ａ．ＸＬＳを始にオープンします。そのＫＹＡＫＵ＿Ａ．ＸＬＳには、マクロで、ＭＡＳＴ．ＸＬＳをＡＵＴＯ ＯＰＥＮのみのマクロを入れております。そのオープンの内容は次のとおりです。 Workbooks.Open Filename:="C:\Documents and Settings\owner\My Documents\見積書\マクロ.xls" Application.Run "マクロ.xls!流れ" を行い、マクロのみの記載されたＸＬＳを走らせます。 ＫＹＡＫＵ＿Ａ．ＸＬＳのほかに＿Ｂや＿Ｃなど数多くのＸＬＳから、同じＭＡＳＴ．ＸＬＳとマクロ．ＸＬＳを走らせたいのです。 その際に教えていただきたいのは、ＭＡＳＴ．ＸＬＳとマクロ．ＸＬＳは上記の方法ですとアクティブになってしまいます。画面上では、操作の関係から、ＫＹＡＫＵ＿Ａ．ＸＬＳ等の客先内容のみをアクティブにしておきたいし印刷もその客先内容を行うマクロにしたいのですが、ＭＡＳＴ．ＸＬＳとマクロ．ＸＬＳをアクティブにしなければ可能ではないかと思いますが、どなたかどうすれば良いかまた、そのマクロはどのように記載すれば良いかを教えていただきたくお願いします。

  • ワードのマクロからエクセルシートを開きデータを読み込む

    ワードマクロからエクセルシートのデータを読み込みたいのですが、マクロを実行すると「コンパイルエラー：変数が定義されていません。」というエラーが出てしまいます。変数xlUpで引っかかってるようなんですが、どのように定義すればよいですか？ コードは以下です。 Dim Workbooks As Object Dim ecell As Integer Workbooks.Open FileName:="namesheet.xls" ecell = Workbooks("namesheet.xls").Worksheets(1).Range("B100").End(xlUp).Row よろしくお願いいたします。

  • エクセルのマクロでファイルを自動で保存するには？

    こんにちは。お世話になります。 エクセルのＶＢＡマクロ文の書き方でお知恵を拝借したいと思います。 さて、私のかかる業務でエクセルファイルで営業実績を出しています。 COBOLで作ったファイルをＣＳＶにインポートして そのＣＳＶの値を別のエクセルファイルで引っ張るという手順を踏んでいますが、 それをマクロで動かすとエクセル上で『保存しますか?』と聞いてきます。 答えは『はい（Ｙ）』で確定しているので、その命令文さえ組み込められればいいのですが、 その命令文の書き方が判りません。 （解決したいＶＢＡマクロの命令文） Workbooks.Open Filename:="D:\(Ａファイル).csv" Workbooks.Open Filename:="D:\(Ａファイルの値を引っ張るＢファイル).xls" ThisWorkbook.Saved = True （ここで聞いてくる注意に自動で『Ｙ』を入れたいと思っています。） ActiveWindow.Close ActiveWindow.Close 以上、お知恵を拝借したく、お願いいたします。

  • VBA Workbooks.open

    ブックを開くコマンド × Workbooks("filename.xls").open ○ Workbooks.open filename:="filename.xls" 何故下なのですか？ワークブックコレクションの中から特定のブックを指定し開くなら、上の構文にした方がワークシートコレクション等と構文表現を統一出来ます。 現にブックを閉じるコマンドは Workbooks("filename.xls").close です。何故ブックを開くコマンドだけ別表現なのですか？

  • ファイルを開くマクロ

    フォルダ(A)の中にエクセルファイルが(a,b)2つあります。aのファイルに下記のマクロを組んで、ボタンにマクロを貼り付けます。マクロでbのファイルを開きたいのですが、ファイルが見つかりませんとなってしまいます。フォルダ(A)は場所を移動して使う予定です。うまく動かなくて困っております。ご教授よろしくお願い致します。 Sub CCC() 　 s_PathCheck 　 Workbooks.Open Filename:=myWBPath & "b.xls" Sheets("P").Select Range("a11").Select End Sub Sub s_PathCheck() Dim n As Variant myWBPath = Workbooks(1).Path myWBName = Workbooks(1).Name n = InStr(myWBName, ".xls") myWBNameF = Left(myWBName, n - 1) End Sub

  • エクセルVBA

    こんばんは！ エクセルマクロ初心者です。 エクセルＶＢＡについて教えてください！ パス（？）を指定して、ファイルを開けてから実行する マクロを書きたいのですが、エラーになってしまいます。 Dim Filename as string (1)Workbooks.Open Filename:= "\D\MyDocument\●●.xls" (●●はファイル名) (2)Workbooks("●●").Activate (1)の部分は実行されて目的のファイルは開くのですが(2)でエラーになってしまいます。 どなたか教えてください！ 以前までは、このマクロ実行できていたのですが、突然できなくなりました。 困ってます。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する