No.3
- 回答日時:
おはようございます。
同一フォルダ内の別ファイルを開くには
Sub FileOpen()
'変数の宣言//////////////////////////////
Dim Wb As Workbook
Dim Fname As String '開きたいファイル名格納用
Dim PathName As String '見積ファイルが入っているフォルダのパス格納用
'////////////////////////////////////////
Set Wb = ActiveWorkbook
Fname = "請求.xls"
PathName = Wb.Path
If Right(PathName,1)="\" then
Workbooks.Open Filename:=PathName & Fname
Else
Workbooks.Open Filename:=PathName & "\" & Fname
End If
End Sub
ぼくもまったく同じようなことしてます^^
同じように見積と請求を使っていらっしゃるのですね。
自分の考えが非常識じゃないと分かり安心しました。(^^;
ありがとうございました。
No.2
- 回答日時:
見積.xls が保存されている。
請求.xls は見積.xls と同じフォルダ内にある。
見積.xls にマクロを作成しそこから 請求.xls を開く。
以上の条件なら、パスは Thisworkbook.Path で取れます。
例は 請求.xls を操作しやすいように、Open時にWorkbook型変数に代入しています。
Sub Test()
Dim wb As Workbook, FName As String
FName = ThisWorkbook.Path & "\請求.xls"
On Error GoTo ER:
Set wb = Workbooks.Open(FName)
MsgBox wb.FullName & "を開きました。" & vbCrLf _
& "アクティブシート名は、" & wb.ActiveSheet.Name & " です。" & vbCrLf _
& "A1の値は「" & wb.ActiveSheet.Range("A1").Value & "」です。" & vbCrLf _
& "では" & wb.Name & "を閉じます。"
wb.Close
Exit Sub
ER:
MsgBox "何らかのエラーが起こりました。", vbCritical, "エラー"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Visual Basic(VBA) Excel VBAについて、 フォルダ内のファイルを全て開きたい場合、 FSOを使えば、Dirは使わ 1 2023/01/27 13:18
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Visual Basic(VBA) Excel ファイルを指定し、指定されたファイル内にシートを統合するVBA 8 2023/07/10 10:09
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
同一フォルダ内のファイルを開く
Excel(エクセル)
-
VBAで同一フォルダにあるブックを全て開く
Access(アクセス)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
ExcelVBAでカレントディレクトリのファイルを開く方法は?
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
8
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
9
同一フォルダ内の別ブックからシートをコピーするには? 「集計」フォルダ内に「項目別集計.xlms」と
Visual Basic(VBA)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
12
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
13
VBAでワークブックの名前を変数にして開かせる?
Excel(エクセル)
-
14
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
15
ExcelのVBAで同一フォルダ内にあるファイルに同じ処理をしたい
Excel(エクセル)
-
16
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
17
VBAで文字列を数値に変換したい
Excel(エクセル)
-
18
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
19
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
20
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
原状回復のお金 38万円払えませ...
-
Excel VBAで同じフォルダ内の...
-
入社2日目で辞めたいと上司に話...
-
匿名同士で名誉毀損したときの...
-
損害賠償
-
Excel VBA ユーザーフォーム1...
-
これはなんと読みますか? 「請...
-
突然の楽天利用停止措置、何が...
-
休耕田(休耕中)の水利費 (賦課...
-
除草剤を撒いて、植木が枯れた...
-
電車停止によるの賠償金について
-
ホテル側のミスで請求もれが・...
-
解雇され、PCデータを消去しま...
-
私名義の土地に勝手に花を植え...
-
慰謝料を請求されている私の疑...
-
アダルトサイト請求。怖い。す...
-
友達に本名と住所をネッ友にば...
-
私は、ぽよパラ同側いう動画を...
-
NTTコミュニケーションズから2...
-
自己破産免責後に過払金請求で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAで同じフォルダ内の...
-
損害賠償
-
原状回復のお金 38万円払えませ...
-
40代バツイチ同士で、初めて一...
-
入社2日目で辞めたいと上司に話...
-
匿名同士で名誉毀損したときの...
-
!!至急!!知らない電話にか...
-
NHKの受信料を未契約の場合、20...
-
誹謗中傷について
-
ホテル側のミスで請求もれが・...
-
除草剤を撒いて、植木が枯れた...
-
質問です。日雇いでアルバイト...
-
私名義の土地に勝手に花を植え...
-
NTTコミュニケーションズから2...
-
まじで助けてください 凄い恥ず...
-
Excel VBA ユーザーフォーム1...
-
駐車場に無断で駐車してしまっ...
-
NTTぷららの請求が、弁護士...
-
解雇され、PCデータを消去しま...
-
アダルトサイト請求。怖い。す...
おすすめ情報