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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
準・究極の選択
「年収1000万円で一生カレーライス」か 「年収180万円で毎日何でも食べ放題」 あなたはどちらを選びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAでセル値からフォルダ名を取得するコードについて
Excel(エクセル)
-
フォルダ選択でなくフルパスをセルの値から取得したい
Excel(エクセル)
-
エクセルVBA セルに表示されたテキストと同じ名前のファイルを開きたい
Excel(エクセル)
-
-
4
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
5
VBAからファイルをセル入力から開く方法
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
セルに入力されたパスでフォルダーを開く
Excel(エクセル)
-
9
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
10
Excel VBA セルと同じ名前のブックを呼び出し、呼び出したシートをコピーする方法について こん
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
13
セルの値と同じ名前のシートをアクティブにするには?
Excel(エクセル)
-
14
エクセル関数>参照ファイル名をセルから呼び出す
Excel(エクセル)
-
15
VBAでワークブックの名前を変数にして開かせる?
Excel(エクセル)
-
16
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
17
excel VBA 特定の文字列を含むフォルダを開く方法
Excel(エクセル)
-
18
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
19
エクセルのセルに入力されているファイルを開く
Access(アクセス)
-
20
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
Teraマクロで日付ディレクトリ...
-
VLOOKUP関数とネットワークに置...
-
excel INDIRECT 他ファイル参照
-
【マクロ】2回実行したら、エ...
-
パス名を参照するコードのファ...
-
CSVで文字化けしてしまうのを直...
-
EXCELのVBAで画像を選んだ順に...
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
Excel:コマンドボタンの移動
-
EXCELのセルへ、デジタル時計を...
-
スクロールしてもボタンを常に...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
コマンドボタンを押すたびに大...
-
ワードからエクセルへ貼り付け...
-
エクセルでコマンドボタンを押...
-
複数ファイルにある特定のシー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
EXCELのVBAで画像を選んだ順に...
-
Teraマクロで日付ディレクトリ...
-
ハイパーリンクで前回値をひき...
-
エディタで効率的な切り出し方法
-
ファイルを並び替えるときの「...
-
CSVで文字化けしてしまうのを直...
-
excel INDIRECT 他ファイル参照
-
VLOOKUP関数とネットワークに置...
-
Excelvbaで同一フォルダー内の...
-
エクセルVBA+ADOで特定のCSVフ...
-
エクセル 一括リンクの解除
-
エクセルVBAで指定フォルダ内の...
-
=CELL("filename")で取得したフ...
-
【マクロ】2回実行したら、エ...
-
CDBurnerXP「ファイル名が長す...
-
EXCEL VBA ー 同一フォルダ内の...
-
複数のcsvファイルの結合
-
エクセルからスキャナVBAで連動...
おすすめ情報