Excel VBA質問箱 IV

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

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


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

【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) を追加し2回目の実行でやはり
『パスが見つかりません』となりました。(メッセージボックスにはOKボタンのみ
表示されていました)

【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様。
私のミスでした。
すみませんでした。。

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