• ベストアンサー

エクセル2000ＶＢＡでファイルを操作したい

いつもお世話になっています。 エクセルＶＢＡで別のワークブックを参照したいので workbooks.open Filename:="C:my documents\***.xls" とすると、そのオープンするワークブックのTisWorkbookのWorkbook_Open()で実行している（.show)メニュー（ユーザーフォーム）が開いてしまいます。 このとき、Workbook_Open()を実行させないでワークブックを開く方法って、 なにかありますか？ Shiftを押しながらファイルを開くとき、実行されませんよね？それをＶＢＡでできるのですか？ よろしくお願いします。

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

  • ベストアンサー
  • sgh
  • ベストアンサー率61% (75/121)
回答No.2

ファイルを開く前に、 Application.EnableEvents = False を記述してもだめでしょうか？ 処理が終わったら、必ず"True"に戻してください。

masayo
質問者

お礼

ありがとうございました。できました。 この記述はshiftキーと同じ働きなのですか？ ほんとに助かりました。

その他の回答 (1)

  • masakin
  • ベストアンサー率59% (32/54)
回答No.1

こういうことですか？ Open [ファイル名] For Random As [ファイル番号] 　　　　　： Close [ファイル番号] ※ファイル番号はCloseするための任意の数字です 質問の意味と違っていたらすみません。

masayo
質問者

補足

さっそく有難うございます。 すいません、ＶＢＡで開いたエクセルワークブックのデータを代入するには開いていないとダメなんですよね？ その開いたワークブックのワークシートのセルの値を代入したいのですが、 WORKSHEETS_openでユーザーフォームが開いているので、邪魔なのです。 質問、わかりにくいですね。 すいません。お願いします。

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

関連するQ&A

  • VBAでファイルを閉じる時に、他のエクセルファイルを閉じるには？

    VBAで、 Private Sub Workbook_Open() Workbooks.Open FileName:="バス時刻表.xls",ReadOnly:=True End Sub で、バス時刻表.xlsを自動的にオープンした後、 閉じる時に、 Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("バス時刻表.xls").Close End Sub で記述したら、エラーとなります。 どのようにすればいいのでしょうか？ よろしくお願いします。

  • エクセルVBAでブックを開きたいのですが、

    エクセルVBAでブックを開きたいのですが、 アクティブシートを別のブックに移動させたいのですが、 まず、目的のブックを開く　→　移動させたいシート名を右クリック　→　移動またはコピー　を選択　→　移動先ブック　を選択　 というふうにしようと思っていますが、 Workbooks.Open Filename:= _ "C:\Documents and Settings\YUMIKO\My Documents\ＹＹＹＹ.xls" のようにファイル名を入れると開くことができました。 が、 　 Workbooks.Open Filename:= _ "C:\Documents and Settings\YUUKORON\My Documents\Range("F1").Value.xls" のように、アクティブシートの　セルF1にファイル名を入れて、開きたいのですが、どうしても開くことができません。いろいろ調べて試しましたが、無理でした。 基本的にマクロで記録で作っている初心者です。 回答よろしくお願いします。

  • VBA　ファイルの開き方

    マクロでファイルを開くときに Workbooks.open FileName:="\c:=\My Documents\Book1.xls" のように記述しますが、この「Book1」にあたる部分を その日の日付（20090422）のようにするにはどうすれば良いのでしょうか？ つまり、ファイル名のところに日付を入れたいのです。 よろしくお願いします。

  • ＶＢＡ

    VBAでstrFILENAMEにaaa.xlsを代入したいのですがどうしたらいいのでしょうか？ このままだと定義エラーになっていまします。 Dim wbk As Workbook Set wbk = Workbooks.Open(Filename:="C:\Documents and Settings\Administrator\デスクトップ\strFILENAME", ReadOnly:=True)

  • VBAでファイルを開いてないときに開くコード

    いつもお世話になります。 VBA(Excel2007)の初心者です。 目的のファイルが開いていない時は開き、 既に開いている時は何もしない。 という処理をしたいと思い以下のコードを 書きました。 Dim wb As Workbook Dim myfilename As String For Each wb In Workbooks If wb.Name = "予定表.xls" Then Exit For Else myfilename = "\\___\__\予定表.xls" Workbooks.Open Filename:=myfilename End If Next wb 実行したら何度もファイルを開こうとしてしまいます。 どこに問題があるのでしょうか？ ちなみにこれは"予定表.xls"のセルを参照したくて ある処理の前に実行するつもりなのですが、 別のブックのセルを参照するときはやはり そのブックを開かなくてはならないのでしょうか？ 何卒よろしくお願いします。

  • エクセルVBA

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

  • excel vba

    excel　ＶＢＡ (質問１） B7 セルに,DOC20071201_1231.xlsとはいっているとき下記の動作と同様のことをB7を使って表現するにはどうすればいいか。 Sub bookwo_open() Workbooks.Open Filename:="C:\Documents and Settings\taktta\My Documents\Log zzz\2007 log\2007年報告\2007年12月分\" & "DOC20071201_1231.xls" End Sub (質問２） Ａ１セルに７とはいっているとき、B7セルに入っているファイルをオープンするには、どうすればいいか。 （Ａ１セルにｎとはいっているとき、Bｎセルに入っているファイルをオープンするには、どうすればいいか。）

  • ExcelのVBAでWEBページを開くのが遅い

    よろしくお願いいたします。 現在社内システムのデータをExcelに落とすVBAを作っています。 単純に、 sub test () URL = "http://..." Dim xls As Workbook Set xls = Application.Workbooks.Open(URL) end sub のようなものを作成して実行したのですが、 Set xls = Application.Workbooks.Open(URL) の所で50～60秒ほど時間がかかってしまいます。 もう少し早くする方法はないのでしょうか？

  • VBA Workbooks.open

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

  • Excel VBA の ChangeFileAccess

    Excel(2000 SP-3) VBAの ChangeFileAccessがうまく行きません。 VBAからあるExcelファイルをWorkbooks.Open で開く処理の制御で悩んでいます。 2人で同時にマクロでhoge.xls をOpenすると、どちらも「他のユーザが使用中です」的なメッセージが出ませんでした。 (エクスプローラからクリックしたりして、hoge.xlsを直接開くと、他のユーザが使用中かどうかがわかります) それでは困るので、ChangeFileAccess のNotify:=true をセットしてみたら、2人目は他のユーザが使用中である旨のメッセージが出るようになりました。 しかし、ChangeFileAccess のNotifyはちゃんと設定されているようなのですが、 'ChangeFileAccess'メソッドは失敗しました:'_Workbook'オブジェクト とエラーが出ています。 ChangeFileAccessはどう使うのが正しいのでしょうか？ ソースは Workbooks.Open Filename:=ThisWorkbook.Path & "\hoge.xls", updatelinks:=1, Notify:=True ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, Notify:=True って感じなのですが。 Workbooks.Openはちゃんとできています。Workbooks.OpenがコケたらOn Error Goto で拾ってMsgBoxでメッセージを出す、という処理をしているのですが、Workbooks.OpenはOKなのにChangeFileAccessでコケて、On Error Goto に引っかかってしまっています。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する