No.2ベストアンサー
- 回答日時:
>VBAを読み込むと開くようにする
すいません、ブックを開いたときに同時に開くではなく、
VBA読み込み時に開く場合は
VBEから、挿入→標準モジュールで標準モジュールを挿入し
以下のコードを貼り付けてください。
Alt+F8または表示→マクロから「指定ファイルを開く」を選び実行で
T6セルのファイルを開きます。
コードの内容はNo1と同じものですが、補足致します。
末尾「'★」は同様で、末尾「'☆」の行の「T6」を変更することで
対象のセルアドレスを変更できます。
■VBAコード
Sub 指定ファイルを開く()
Dim i As Integer
Dim filepath As String
filepath = Range("T6").Value '☆
If Dir(filepath) = "" Then
MsgBox filepath & vbCrLf & "はファイルが見つかりません。" '★
Exit Sub
End If
For i = 1 To Workbooks.Count
If filepath = Workbooks(i).FullName Then
MsgBox filepath & vbCrLf & "は既に開いています。" '★
Exit Sub
End If
Next i
Workbooks.Open Filename:=Range("T6").Value
End Sub
No.1
- 回答日時:
Alt+F11でVBEを開き、
ThisWorkbookを右クリック→コードの表示を選択し
表示されたウィンドウに下記のVBAコードを貼り付けて
VBEを閉じてください。
上書き後開き直すと、T6セルのパスを開きます。
(添付画面を参考にしてください)
ファイルが存在しない場合、ファイルが開かれている場合に
ダイアログを表示します。
ダイアログを表示させたくない場合は行末に「'★」を記述
している1行を削除してください。
■VBAコード
Private Sub Workbook_Open()
Dim i As Integer
Dim filepath As String
filepath = Range("T6").Value
If Dir(filepath) = "" Then
MsgBox filepath & vbCrLf & "はファイルが見つかりません。" '★
Exit Sub
End If
For i = 1 To Workbooks.Count
If filepath = Workbooks(i).FullName Then
MsgBox filepath & vbCrLf & "は既に開いています。" '★
Exit Sub
End If
Next i
Workbooks.Open Filename:=Range("T6").Value
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelを開くとエラーが出る 2 2022/10/03 16:13
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
VBAでセル値からフォルダ名を取得するコードについて
Excel(エクセル)
-
フォルダ選択でなくフルパスをセルの値から取得したい
Excel(エクセル)
-
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
6
エクセルVBA セルに表示されたテキストと同じ名前のファイルを開きたい
Excel(エクセル)
-
7
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
VBAからファイルをセル入力から開く方法
Excel(エクセル)
-
10
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
11
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
12
excel VBA 特定の文字列を含むフォルダを開く方法
Excel(エクセル)
-
13
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
14
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
15
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
16
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
17
パスをセルから取得し保存 VBA
その他(Microsoft Office)
-
18
Excel VBA セルと同じ名前のブックを呼び出し、呼び出したシートをコピーする方法について こん
Excel(エクセル)
-
19
VBAでワークブックの名前を変数にして開かせる?
Excel(エクセル)
-
20
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
VLOOKUP関数とネットワークに置...
-
ミュージックファイルのファイ...
-
エクセルからスキャナVBAで連動...
-
複数のExcelブックから一覧表を...
-
Teraマクロで日付ディレクトリ...
-
excel INDIRECT 他ファイル参照
-
エクセルVBA+ADOで特定のCSVフ...
-
CSVで文字化けしてしまうのを直...
-
VB6.0で、APIのファイルを開く...
-
Excel VBAで自動的にハイパーリ...
-
Excelでリンクを使用すると#N/A...
-
EXCEL VBA ー 同一フォルダ内の...
-
ローマ字→カタカナへ変換(エク...
-
スクロールしてもボタンを常に...
-
コマンドボタンを押すたびに大...
-
マクロ 実行ボタンを押さずに...
-
Excel:コマンドボタンの移動
-
ShowAllDataのエラーを回避したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
ファイルを並び替えるときの「...
-
EXCELのVBAで画像を選んだ順に...
-
Teraマクロで日付ディレクトリ...
-
エクセルファイルから指定した...
-
PDF ファイルが開けません。
-
エディタで効率的な切り出し方法
-
エクセルからスキャナVBAで連動...
-
=CELL("filename")で取得したフ...
-
CSVで文字化けしてしまうのを直...
-
VLOOKUP関数とネットワークに置...
-
Excel VBAで自動的にハイパーリ...
-
エクセル 一括リンクの解除
-
ハイパーリンクで前回値をひき...
-
EXCELのマクロを使って、テキス...
-
EXCELで複数のファイルから抽出
-
ミュージックファイルのファイ...
-
Notes 開発で、 excelファイル...
-
Excelでリンクを使用すると#N/A...
おすすめ情報