Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11865 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【13689】ファイルを開く・・ 0721 04/5/11(火) 12:10 質問[未読]
【13691】Re:ファイルを開く・・ ちゃっぴ 04/5/11(火) 12:29 回答[未読]
【13694】Re:ファイルを開く・・ ちゃっぴ 04/5/11(火) 13:04 発言[未読]
【13692】Re:ファイルを開く・・ Asaki 04/5/11(火) 12:44 回答[未読]
【13697】Re:ファイルを開く・・ 0721 04/5/11(火) 13:49 質問[未読]
【13698】Re:ファイルを開く・・ 0721 04/5/11(火) 13:58 質問[未読]
【13699】Re:ファイルを開く・・ Asaki 04/5/11(火) 14:05 回答[未読]
【13700】Re:ファイルを開く・・ 0721 04/5/11(火) 14:15 質問[未読]
【13701】Re:ファイルを開く・・ Asaki 04/5/11(火) 14:53 回答[未読]
【13702】Re:ファイルを開く・・ 0721 04/5/11(火) 15:08 質問[未読]
【13704】Re:ファイルを開く・・ ちゃっぴ 04/5/11(火) 15:12 発言[未読]
【13708】Re:ファイルを開く・・ Asaki 04/5/11(火) 15:40 発言[未読]
【13709】Re:ファイルを開く・・ 0721 04/5/11(火) 15:58 お礼[未読]
【13689】ファイルを開く・・
質問  0721  - 04/5/11(火) 12:10 -
引用なし
パスワード
   ファイルを開くダイアログに、指定したドライブ-フォルダ内にある全てのcsvファイルを表示したいのですが・・どなたか教えてください。
宜しくお願いします。
【13691】Re:ファイルを開く・・
回答  ちゃっぴ E-MAIL  - 04/5/11(火) 12:29 -
引用なし
パスワード
   ▼0721 さん：
>ファイルを開くダイアログに、指定したドライブ-フォルダ内にある全てのcsvファイルを表示したいのですが・・どなたか教えてください。
>宜しくお願いします。

[ファイルを開くダイアログ]は"GetOpenFileName"メソッドですよね？

"GetOpenFileName"メソッドにはそのようなオプションがないので
同じような処理を行うにはユーザーフォームを自作して使用するか、
一度ワークシートに出力しそれを選択させるしかないと思います。
【13692】Re:ファイルを開く・・
回答  Asaki  - 04/5/11(火) 12:44 -
引用なし
パスワード
   こんにちは。

↓こういうやつのことでしょうか？
Sub test()
　　Dim varRet　　　　　As Variant
　　Dim strPath　　　　 As String
　　　　
　　strPath = "D:\test"
　　ChDrive strPath
　　ChDir strPath

　　varRet = Application.GetOpenFilename("CSVファイル (*.csv),*.csv")
　　If VarType(varRet) = vbBoolean Then
　　　　MsgBox "キャンセルされました"
　　Else
　　　　MsgBox varRet
　　End If
End Sub

strPath に適当なパスを設定してお試しください。
【13694】Re:ファイルを開く・・
発言  ちゃっぴ E-MAIL  - 04/5/11(火) 13:04 -
引用なし
パスワード
   ▼ちゃっぴ さん：
>▼0721 さん：
>>ファイルを開くダイアログに、指定したドライブ-フォルダ内にある全てのcsvファイルを表示したいのですが・・どなたか教えてください。
>>宜しくお願いします。
>
>[ファイルを開くダイアログ]は"GetOpenFileName"メソッドですよね？
>
>"GetOpenFileName"メソッドにはそのようなオプションがないので
>同じような処理を行うにはユーザーフォームを自作して使用するか、
>一度ワークシートに出力しそれを選択させるしかないと思います。

補足します。
GetOpenFileNameにはサブフォルダのファイルも含めて一覧化する機能は
ないということです。
【13697】Re:ファイルを開く・・
質問  0721  - 04/5/11(火) 13:49 -
引用なし
パスワード
   ▼Asaki さん：
>こんにちは。
>
>↓こういうやつのことでしょうか？
>Sub test()
>　　Dim varRet　　　　　As Variant
>　　Dim strPath　　　　 As String
>　　　　
>　　strPath = "D:\test"
>　　ChDrive strPath
>　　ChDir strPath
>
>　　varRet = Application.GetOpenFilename("CSVファイル (*.csv),*.csv")
>　　If VarType(varRet) = vbBoolean Then
>　　　　MsgBox "キャンセルされました"
>　　Else
>　　　　MsgBox varRet
>　　End If
>End Sub
>
>strPath に適当なパスを設定してお試しください。

ちゃっぴ様。
参考になりました。
ありがとうございます。


Asaki様。
ありがとうございます。
上記を（パス指定して）動かしたところ一回目は成功しました。
でも、二回目からは ChDir strPath のところで『パスが見つかりません』とエラーになってしまいます。。。
【13698】Re:ファイルを開く・・
質問  0721  - 04/5/11(火) 13:58 -
引用なし
パスワード
   ▼Asaki さん：
>こんにちは。
>
>↓こういうやつのことでしょうか？
>Sub test()
>　　Dim varRet　　　　　As Variant
>　　Dim strPath　　　　 As String
>　　　　
>　　strPath = "D:\test"
>　　ChDrive strPath
>　　ChDir strPath
>
>　　varRet = Application.GetOpenFilename("CSVファイル (*.csv),*.csv")
>　　If VarType(varRet) = vbBoolean Then
>　　　　MsgBox "キャンセルされました"
>　　Else
>　　　　MsgBox varRet
>　　End If
>End Sub
>
>strPath に適当なパスを設定してお試しください。


度々申し訳ありません。
一度ファイルを閉じたらエラーは起こりませんでした。
【13699】Re:ファイルを開く・・
回答  Asaki  - 04/5/11(火) 14:05 -
引用なし
パスワード
   >二回目からは ChDir strPath のところで『パスが見つかりません』とエラーになってしまいます。。。
>一度ファイルを閉じたらエラーは起こりませんでした。
上記のような現象は、こちらでは再現しません。

プログラムで、strPath を書き換えたりする処理を加えられましたか？
何か変更されたのでしたら、それを見せていただかないと、判りませんが。。。
【13700】Re:ファイルを開く・・
質問  0721  - 04/5/11(火) 14:15 -
引用なし
パスワード
   ▼Asaki さん：
>>二回目からは ChDir strPath のところで『パスが見つかりません』とエラーになってしまいます。。。
>>一度ファイルを閉じたらエラーは起こりませんでした。
>上記のような現象は、こちらでは再現しません。
>
>プログラムで、strPath を書き換えたりする処理を加えられましたか？
>何か変更されたのでしたら、それを見せていただかないと、判りませんが。。。


すみません。。
下記のように書き換えました。
strPath = "G:庶務課\PC管理\Data\OutPut\適用履歴"
【13701】Re:ファイルを開く・・
回答  Asaki  - 04/5/11(火) 14:53 -
引用なし
パスワード
   変更されたのは、↓だけですか？
>strPath = "G:庶務課\PC管理\Data\OutPut\適用履歴"

また、Gは、ネットワークドライブですか？
こちらでも試しているのですが、全然エラーになりません。

>strPath = "G:庶務課\PC管理\Data\OutPut\適用履歴"
の直ぐ後ろに
MsgBox Dir(strPath, vbDirectory)
を追加して、2回以上実行した場合に、なにが表示されるか確認してみてください。
【13702】Re:ファイルを開く・・
質問  0721  - 04/5/11(火) 15:08 -
引用なし
パスワード
   ▼Asaki さん：
>変更されたのは、↓だけですか？
>>strPath = "G:庶務課\PC管理\Data\OutPut\適用履歴"

はい。↑だけです。

>また、Gは、ネットワークドライブですか？

はい。ネットワークドライブです。

>こちらでも試しているのですが、全然エラーになりません。
>
>>strPath = "G:庶務課\PC管理\Data\OutPut\適用履歴"
>の直ぐ後ろに
>MsgBox Dir(strPath, vbDirectory)
>を追加して、2回以上実行した場合に、なにが表示されるか確認してみてください。

MsgBox Dir(strPath, vbDirectory) を追加し２回目の実行でやはり
『パスが見つかりません』となりました。（メッセージボックスにはＯＫボタンのみ
表示されていました）
【13704】Re:ファイルを開く・・
発言  ちゃっぴ E-MAIL  - 04/5/11(火) 15:12 -
引用なし
パスワード
   念のため
strPath = "G:庶務課\PC管理\Data\OutPut\適用履歴"

strPath = "G:\庶務課\PC管理\Data\OutPut\適用履歴"
　　　　　　 ↑"\"
の間違いですよね？
【13708】Re:ファイルを開く・・
発言  Asaki  - 04/5/11(火) 15:40 -
引用なし
パスワード
   >strPath = "G:庶務課\PC管理\Data\OutPut\適用履歴"
>
>strPath = "G:\庶務課\PC管理\Data\OutPut\適用履歴"
>　　　　　　 ↑"\"
>の間違いですよね？

あれ？ほんとですね。
でも、1回目は上手くいく、が判らないのですよね。。。
【13709】Re:ファイルを開く・・
お礼  0721  - 04/5/11(火) 15:58 -
引用なし
パスワード
   ▼Asaki さん：
>>strPath = "G:庶務課\PC管理\Data\OutPut\適用履歴"
>>
>>strPath = "G:\庶務課\PC管理\Data\OutPut\適用履歴"
>>　　　　　　 ↑"\"
>>の間違いですよね？

ちゃっぴ様。
"\"を入れなきゃいけなかったんですね？？
"\"入れたところ、二回以上実行してもエラー起こりませんでした。
ありがとうございました。

>あれ？ほんとですね。
>でも、1回目は上手くいく、が判らないのですよね。。。

Asaki様。
私のミスでした。
すみませんでした。。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11865 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free