
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
同一フォルダ内のファイルを開く
Excel(エクセル)
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
4
EXcelマクロで同じフォルダ内のファイル全て開く。ドライブまたいでも対応
Android
-
5
ExcelVBAでBookを開く時にファイル名の一部だけを指定で
Access(アクセス)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
ExcelVBAでカレントディレクトリのファイルを開く方法は?
Excel(エクセル)
-
9
同一フォルダ内の別ブックからシートをコピーするには? 「集計」フォルダ内に「項目別集計.xlms」と
Visual Basic(VBA)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
同一フォルダ内で、エクセルを自動リンクさせる方法
Excel(エクセル)
-
13
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
-
14
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
15
VBAで同じフォルダのCSVを同じシートに読み込みたいです。
PowerPoint(パワーポイント)
-
16
別のシートから値を取得するとき
Visual Basic(VBA)
-
17
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
18
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
19
フォルダ内の全てのBookに同じ処理を繰り返す
Excel(エクセル)
-
20
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
損害賠償
-
5
原状回復のお金 38万円払えませ...
-
6
ローソンで働いていた方、辞め...
-
7
訴えたいくらい!おかしな院長...
-
8
除草剤を撒いて、植木が枯れた...
-
9
地震でアパートを出る際の立会...
-
10
私名義の土地に勝手に花を植え...
-
11
!!至急!!知らない電話にか...
-
12
NHK受信料の支払いを今までは ...
-
13
水漏れ被害者です。相手が弁償...
-
14
アダルトサイト請求。怖い。す...
-
15
ホテル側のミスで請求もれが・...
-
16
公文書とは?
-
17
通所介護施設での時間短縮
-
18
NTTぷららの請求が、弁護士...
-
19
休耕田(休耕中)の水利費 (賦課...
-
20
駐車場に無断で駐車してしまっ...
おすすめ情報
公式facebook
公式twitter