Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9832 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【25187】ブックの呼び出しについて ｳｯｷー 05/5/24(火) 0:10 質問[未読]
【25189】Re:ブックの呼び出しについて ichinose 05/5/24(火) 2:36 発言[未読]
【25190】Re:ブックの呼び出しについて ｳｯｷー 05/5/24(火) 2:52 お礼[未読]
【25237】Re:ブックの呼び出しについて ｳｯｷー 05/5/25(水) 1:28 お礼[未読]
【25187】ブックの呼び出しについて
質問  ｳｯｷー  - 05/5/24(火) 0:10 -
引用なし
パスワード
   フォーム上のコマンドボタンから他のブックを呼び出す時のことについて
知りたいことがあります。

Private Sub Cmd1_Click()
Unload フォームfrm
Const strDrv As String = "Ｃ"
Const strDir As String = "\FileI"
　Workbooks.Open ThisWorkbook.Path & "\BookII\ｴｸｾﾙｼｰﾄ.xls"
End Sub

コード記述はあっているので呼び出せるのですが、
これは、Ｃドライブ内でのことだと思うのですが、
IFileをＤドライブに移動しても呼び出せてしまいます。
これは、どういうことなのでしょうか？

ちなみにブックはＣドライブ＞FileI＞BookII＞ｴｸｾﾙｼｰﾄ.xlsで保管されています。

もう1つ知りたいのですが、
他ブックを開く時は同じ場所に保存されていないとできないのでしょうか？

どなたか教えてください。
【25189】Re:ブックの呼び出しについて
発言  ichinose  - 05/5/24(火) 2:36 -
引用なし
パスワード
   ▼ｳｯｷー さん：
こんばんは。

>フォーム上のコマンドボタンから他のブックを呼び出す時のことについて
>知りたいことがあります。
>
>Private Sub Cmd1_Click()
>Unload フォームfrm
>Const strDrv As String = "Ｃ"
> Const strDir As String = "\FileI"
>　Workbooks.Open ThisWorkbook.Path & "\BookII\ｴｸｾﾙｼｰﾄ.xls"
>End Sub
>
>コード記述はあっているので呼び出せるのですが、
>これは、Ｃドライブ内でのことだと思うのですが、
>IFileをＤドライブに移動しても呼び出せてしまいます。
>これは、どういうことなのでしょうか？
>
>ちなみにブックはＣドライブ＞FileI＞BookII＞ｴｸｾﾙｼｰﾄ.xlsで保管されています。
>
>もう1つ知りたいのですが、
>他ブックを開く時は同じ場所に保存されていないとできないのでしょうか？
>
>どなたか教えてください。


>Workbooks.Open ThisWorkbook.Path & "\BookII\ｴｸｾﾙｼｰﾄ.xls"

Thisworkbook.Path
というのは、上記のマクロが記述されているブックのフォルダ名が入っています。
よって、マクロが記述されているブックがＣドライブにあるならば、
Ｃ　Ｄドライブにあるならば、Ｄということになります。

>もう1つ知りたいのですが、
>他ブックを開く時は同じ場所に保存されていないとできないのでしょうか？

そんなことはありません。

workbooks.open "c:\FileI\abc.xls"

とすれば、"c:\FileI\abc.xls"を読み込みます。
【25190】Re:ブックの呼び出しについて
お礼  ｳｯｷー  - 05/5/24(火) 2:52 -
引用なし
パスワード
   ▼ichinose さん：
こんばんはです。

ということは、Thisを除いてフルパスでコードを書けばよいと言うことですね。
少し試してやってみます。
もし、分からなければもう一度ご質問させて頂きます。
ありがとうございました。
【25237】Re:ブックの呼び出しについて
お礼  ｳｯｷー  - 05/5/25(水) 1:28 -
引用なし
パスワード
   >▼ichinose さん：
ありがとうございます。

なんとか理解できました。
昨夜の理解度だけでは不十分だったこともわかりました。

質問者の能力に合わせた分かりやすい問題定義で大変参考になりました。
もし、次に理解ができていない時はご指名で質問させて頂きたいと思います。
これからも、宜しくお願い致します。

PS.次回に質問する時は、レベルアップした質問にしたいと思います。
有難うございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9832 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free