• ベストアンサー

VBAのOPEN　Methodについて

下記のコードを書いたのですが、 バグ取りをする際に下記のコマンドを動作させない でファイルを開く事ができますか？ つまり、ファイルオープン時にあるデーターを 読み込む様にコードを書いたのですが、バグがあり その修正したいのですが、ファイルオープンに、 データーを読んでしまいます。 読まないで、ファイルを開く方法があったはずだと おもったのですが・・・。 Private Sub Workbook_OPEN()

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

  • ベストアンサー
  • dsuekichi
  • ベストアンサー率64% (171/265)
回答No.1

「Shiftキーを押しながら開く」とか？

B_BOSS
質問者

補足

それです！！ 知りたかったのは・・・。 ありがとうございます。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VBAの「This Workbook」について

    VBAの「This Workbook」にコードを書くことについて教えて下さい。 ここにコードを書きと、例えばどんな便利な機能があるのでしょうか？ よろしくお願いします。 私は下記の意味はだいだいわかります。 Private Sub Workbook_BeforeClose(Cancel As Boolean) Private Sub Workbook_Open()

  • Office2010のVBAファイル自動オープン

    VBAの自動オープンで対象ファイルの開き方によって VBAが正常に動かないので質問させｔ下さい。 ネットワーク上のサーバーである AD-1から開くのとネットワークドライブPから開くのとでは Excelの名前の管理機能が動作しません。 Private Sub Workbook_Open() Workbooks.Open Filename:= _ "\\ad1\共通\aaaa.xlsx" Worksheets("Sheet1").Activate と Private Sub Workbook_Open() Workbooks.Open Filename:= _ "P:\共通\aaaa.xlsx" Worksheets("Sheet1").Activate 両方とも稼働させる方法はあるのでしょうか？ よろしくお願いします。 End Sub

  • エクセルのマクロについて

    ファイルを開いた時にWebクエリを一括自動更新できるマクロを作りたいのですが、 下記だと「この操作によって［データの更新］コマンドはいったん中止されます。よろしいですか？」となり うまく動作しません。 Private Sub Workbook_Open() Sheets("データ1").Select ActiveWorkbook.RefreshAll ActiveWorkbook.Save End Sub どのように書き換えればよろしいのでしょうか。 教えてください。よろしくお願い致します。

  • VBAの更なる応用編

    度々すみません。 VBAで教えて下さい。 主ファイルYYYY.xlsmに下記の記述をしました。 副ファイルXXXX.xlsmがあります。 ------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Workbooks("XXXX.xlsm").Close End Sub Private Sub Workbook_Open() Workbooks.Open Filename:= _ "XXXX.xlsm" Worksheets("Sheet1").Activate End Sub ------------------------------------------------- 以上で、YYYY.xlsmとXXXX.xlsmの場合、主、副の共に保存せずに 終了するにはどのようなコメントを追記したら良いですか。 ネットで調べた下記の内容は場所が悪いのか動作しませんでした。 Sub CloseWorkbook() Workbooks("XXXX").Close SaveChanges:= False End Sub

  • EXCEL２００３のWorkBook_Openイベントについて

    必要があって以前から下記のようなWorkBook_Openを実行させていましたが必要なくなったので消したいのですがその方法を忘れてしまいました。 よろしく教えて下さい。 No.1 Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In Worksheets ws.Select ws.Cells(1, ActiveCell.Column).Select Next End Sub

  • Workbook_Openを起動時以外に呼び出す

    標準モジュールに書いた、Sub Auto_Open()なら、ボタンにAuto_Openを登録するなどで、ブックの起動時以外でも呼び出せますが、ThisWorkbookに書いた、Private Sub Workbook_Open()は、ボタンにWorkbook_Openを登録しても作動しません。 どのようにすればよいのでしょうか？

  • VBAについて質問です。

    VBAについて質問です。 現在、ExcelにてWorkbookを自動で作成するモジュールを作成しています。 モジュールを記載しているWorkbookを [wbSorce] 自動で作成されるWorkbookを [wbNew] とします。 [wbSorce] でモジュールを実行すると、 [wbNew] を新規に作成し、 データを入力して保存するのですが、保存する際に [wbNew] のイベントハンドラ ［Workbook_Open］ に 保存された [wbNew] を開いた時の挙動を記載するには どうすればよいでしょうか？ サンプルは下記になります。 ****[wbSorce]のモジュール**** Sub wbNew_Sakusei() 　　Dim wb As Workbook 　　Dim wb2 As Workbook 　　Dim i As Integer 　　Set wb = ThisWorkbook 　　Set wb2 = Workbooks.Add 　　For i = 1 To 5 　　　　wb2.Sheets(1).Cells(1, i) = wb.Sheets(1).Cells(1, i) 　　Next 　　wb2.SaveAs Filename:="wbNew" End Sub ****[wbNew]に記述したいモジュール**** Private Sub Workbook_Open() 　　ActiveWindow.ScrollRow = 1 　　MsgBox "Workbook_Openイベントが発生しました。" End Sub

  • Openメソッドについて

    ブックＡのSheet1にあるセルのデータをブックＢのSheet1のセルにコピーするために、以下のようにOpenメソッドを使ったＶＢＡを記述してみたのですが、エラーコード1004「指定されたファイルが存在しません」のようなエラーメッセージが出てきました。Openメソッドが使われている例を見ているとどうやらブックのあるフォルダを指定しているような感じがするのですが、Openメソッドは具体的に該当のブックのある場所を指定しなくてはならないのでしょうか？？（私がＶＢＡを記述するにあたり参考にしたインターネットのＶＢＡを紹介するページでは、ブックのある場所を指定せず、私が記述したように直にブック名を入力していました。） お忙しい中申し訳ないのですが、どなたかご教授いただけると、とても嬉しいです！よろしくお願いいたします。 Sub ブックＡのデータをブックＢに() With Workbooks.Open("ブックＡ.xlsx") 　.Sheets("Sheet1").Range("E8").Value = _ ThisWorkbook.Range("C2").Value End With End Sub

  • EXCEL ツールバーを非表示にするには（VBA)

    EXCELを開いた時、ツールバー（standerd)が見えないように（非表示）したいのですが、わかりません。 VBAで下記のように記述するとエラーが返ります。 Private Sub Workbook_Open() CommandBars(3).Visible = False End Sub 教えて頂けると幸いです。

  • エクセル　VBA　エクセルの表示について

    下記のプロシージャを実行し、Userform1のみ表示したじょうたいで、他のエクセルファイルを開くとエクセルが表示されません。他のエクセルファイルを開いた時に、エクセルが自動で表示されるような対処法を教えてください。どうかよろしくお願いします。 Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する