Excel VBA質問箱 IV

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

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


4665 / 13644 ツリー ←次へ | 前へ→

【55334】ネットワーク上での読込ができない qapl 08/4/29(火) 11:42 質問[未読]
【55335】Re:ネットワーク上での読込ができない マクロマン 08/4/29(火) 12:04 発言[未読]

【55334】ネットワーク上での読込ができない
質問  qapl  - 08/4/29(火) 11:42 -

引用なし
パスワード
   ネットワーク上のドライブから起動したファイル内の下記のマクロで、起動ホルダーと同ホルダー
内にある指定ファイルが読み込めません。  メッセージは『「\Data_1」ホルダーが削除されたか
名称変更されました。』です。宜しくお願いします。

Sheets("Section").Select
SectionName = Cells(Row1, 4)
wk_Path = ActiveWorkbook.Path
ChDir wk_Path & "\Data_1"
Workbooks.Open FileName:="購入調査表(" & SectionName & ")" & ".xls"

【55335】Re:ネットワーク上での読込ができない
発言  マクロマン  - 08/4/29(火) 12:04 -

引用なし
パスワード
   ↓のようにしたらどうなりますか?

SectionName = ActiveWorkbook.Sheets("Section").Cells(Row1, 4).Value
wk_Path = ActiveWorkbook.Path & "\Data_1"
Workbooks.Open FileName:=wk_Path & "\" & "購入調査表(" & SectionName & ")" & ".xls"

4665 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free