Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4731 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【54874】セルにパスを指定 なつみ 08/4/2(水) 21:57 質問[未読]
【54875】Re:セルにパスを指定 かみちゃん 08/4/2(水) 22:16 発言[未読]
【54884】Re:セルにパスを指定 なつみ 08/4/3(木) 10:09 お礼[未読]
【54892】Re:セルにパスを指定 VBWASURETA 08/4/3(木) 14:24 発言[未読]
【54874】セルにパスを指定
質問  なつみ  - 08/4/2(水) 21:57 -
引用なし
パスワード
   こんばんわ
今、VBAでデータを変換するプログラム（sheet１）を作っています。
そこで、ファイルパスを指定しているのですが
異なるシート（sheet2）のセル（A1）に書いておいて
変更があった場合はセルを変更したらプログラムが
変更されるようにしたいのです。

例）
If Dir("D:\test1\test2\test3.txt") <> "" Then
　・・・・・・・・

sheet2のA1にD:\test1\test2\test3.txtを書いておいて
変更した場合にこれを反映するようにするには、
どうすればよいのでしょうか
【54875】Re:セルにパスを指定
発言  かみちゃん  - 08/4/2(水) 22:16 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>例）
> If Dir("D:\test1\test2\test3.txt") <> "" Then
>　・・・・・・・・
>
>sheet2のA1にD:\test1\test2\test3.txtを書いておいて
>変更した場合にこれを反映するようにする

If Dir(Sheets("Sheet2").Range("A1").Value) <> "" Then
という感じでいかがでしょうか？
本当は、もう少しエラー回避処理等が必要かもしれませんが。
【54884】Re:セルにパスを指定
お礼  なつみ  - 08/4/3(木) 10:09 -
引用なし
パスワード
   ▼かみちゃん さん：

ありがとうございます。できました！！


>If Dir(Sheets("Sheet2").Range("A1").Value) <> "" Then
>という感じでいかがでしょうか？
>本当は、もう少しエラー回避処理等が必要かもしれませんが。

エラー回避処理とは、何をいれればよいのでしょうか。
【54892】Re:セルにパスを指定
発言  VBWASURETA  - 08/4/3(木) 14:24 -
引用なし
パスワード
   皆さんこんにちは。

横から失礼します。


>エラー回避処理とは、何をいれればよいのでしょうか。

エラーといえば、存在しないドライブ等
適当な文字列を入れるとわかりますよ。

後、フォルダだけ指定すると該当フォルダ内のファイルを探してしまうので
拡張子で判定入れるなどしてやると良いかもですね。

例：
　'とするとCドライブ直下のファイルを検索して見てしまう
　Msgbox Dir("C:\")
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4731 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free