エクセルの学校：全文検索：Hyper Estraier：フォルダ選択

Results of 1 - 1 of about 1438 for フォルダ選択 (0.009 sec.)

フォルダ (4450), 選択 (24702)

[[20130104172546]]: #score: 4655; @digest: 27e7b90ac57ec59967830882916442c3; @id: 61137; @mdate: 2013-01-07T05:11:57Z; @size: 6510; @type: text/plain; #keywords: strfpath (81198), fbuf (30124), substart (27250), ダ指 (26817), トok (12919), ォル (6844), ス指 (6019), ルダ (5860), 定. (5328), filedialog (5283), フル (4872), フォ (4803), ルパ (4109), caption (3547), 象フ (3481), カレ (3157), ダ名 (3152), 定→ (3096), パス (3072), ト→ (2878), 指定 (2485), スタ (2425), ラベ (2336), トメ (2318), 作動 (2061), レン (1966), ダを (1824), ドボ (1666), ichinose (1652), 記述 (1580), sheet3 (1443), 行後 (1439); 『ラベルのCaption』（あや）
*現状の状況 Sheet3にコマンドボタンA とラベルとコマンドボタンStart の3つを作りコマンドボタンAを押すと、フォルダを指定するダイアログが開き、 フォルダを選択してOKするとラベルに該当のフォルダまでのパスが表示されます。 '/////////////////////////////////////// （Sheet3の中に記述） Private Sub Cmdフォルダ指定_Click() With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then Lblフォルダ指定.Caption = .SelectedItems(1) Else Exit Sub End If End With End Sub '/////////////////////////////////////// コマンドボタンStartを押すと、標準モジュールにある Sub SubStartを呼び出し終了後、メッセージボックスを表示させます。 '/////////////////////////////////////// （Sheet3の中に記述） Private Sub CmdStart_Click() Call SubStart MsgBox "終了です。" End Sub '/////////////////////////////////////// * 解消したいところ フォルダの指定をしてから、その後にスタートを押せば問題なく動きますが、 フォルダの指定をしてから、エクセルを保存後終了開きなおして、（フォルダの指定はすでにラベルに表示されているのでOK）スタートを押すと、『実行時エラー53 ファイルが見つかりません』となり以下の☆で止まります。こんな感じです フォルダ指定→スタート OK フォルダ指定→スタート→スタート OK フォルダ指定→スタート→エクセルを閉じる→スタート NG フォルダ指定→スタート→エクセル閉じる→フォルダ指定→スタート OK SubStartの中身 '/////////////////////////////////////// （標準モジュールに記述） Sub SubStart() Dim StrFPath As String Dim Fbuf As String Dim buf As String, n As Long StrFPath = Sheet3.Lblフォルダ指定.Caption & "¥" Fbuf = Dir(StrFPath & "¥" & "*.htm") Do While Fbuf <> "" 'htmlをエクセルに書き出す Open Fbuf For Input As #1 ☆ （その後の作業が続きます） '/////////////////////////////////////// Sheet3にあるラベルのCaptionが取ってこれていないのかと思って 1行デバッグで確認したところ「StrFPath」「Fbuf」のどちらも必要な文字は入っていました。変数に渡すには、.captionが間違っている?など考えております。何かわかる方教えていただければ助かります。 ---- とりあえず気になった点だけ。検証はしていませんが…。 Openステートメントは対象ファイルをフルパスで指定する必要があると思います。 >Fbuf = Dir(StrFPath & "¥" & "*.htm") Dir関数はファイル名だけを返しますから、 >Open Fbuf For Input As #1 この記述はおかしいかな? もう一点、 >StrFPath = Sheet3.Lblフォルダ指定.Caption & "¥" の最後の¥は不要では?次の記述で >Fbuf = Dir(StrFPath & "¥" & "*.htm") としていますから、¥が二つ重なる事になりますよね。この記述でうまく動く事があるという方が不思議なのですが… Fbufはフルパスを含めたファイル名にはなっていないはずです。 StrFPath = Sheet3.Lblフォルダ指定.Caption Fbuf = StrFPath & "¥" & Dir(StrFPath & "¥" & "*.htm") のようにしてみたらどうでしょう? (Jera) ---- おはようございます。すいません、上記の >Openステートメントは対象ファイルをフルパスで指定する必要があるは誤りですね…。パスを省略するとそのファイルのあるフォルダを参照するのですね。失礼しました。 (Jera) ---- 結果を言えば、 >Openステートメントは対象ファイルをフルパスで指定する必要があると思います。と記述されているとおり、フルパス指定で Openステートメントを運用するで良いと思います。 > フォルダの指定をしてから、 >その後にスタートを押せば問題なく動きますが、がうまく作動しているのは、FileDialogのShowメソッド実行後には、取得したフォルダパスがカレントフォルダに設定されているから、Dir関数で受け取ったファイル名だけでも正常に作動しますが、 >エクセルを保存後終了 >開きなおして、という操作を行うとカレントフォルダは、既定値に設定されて、ラベルに表示されている場合と違う場合にエラーが発生しますね!! 紛らわしいので最初からフルパスを指定する方法にした方が良いと思います。 >フォルダの指定をしてから、 >その後にスタートを押せば問題なく動きますが、この場合でも失敗する場合もあります。実例を次投稿にて・・・。 ichinose ---- ↓の場合でも、¥が2重になるときもあるかも（マナ） Fbuf = StrFPath & "¥" & Dir(StrFPath & "¥" & "*.htm") ---- 以下に記述する内容はExcel2002で確認した内容です。上位バージョンでは、動作が違うなら、その旨教えてください。 >がうまく作動しているのは、FileDialogのShowメソッド実行後には、 >取得したフォルダパスがカレントフォルダに設定されているから、Dir関数で受け取ったファイル名だけでも >正常に作動しますと、記述しましたが、選択の仕方によっては、必ずしもそうはならないということです。まず、適当なドライブ下（仮にCドライブとします）にaというフォルダを作成してください aのフォルダ内に更に b,cというフォルダを作成してください。つまり、フルパスで言い換えると c:¥a c:¥a¥b c:¥a¥c という3つのフォルダを上記の関係で作成してください。次に新規ブックにて、標準モジュールに Sub フォルダ指定() With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then MsgBox "選択されたフォルダ名 " & .SelectedItems(1) & vbCrLf & _ "カレントフォルダ名 " & CurDir Else Exit Sub End If End With End Sub フォルダ指定を実行してください。現在のカレントフォルダ内にあるフォルダが表示されていますが、 c:¥a を開いてみてください b,cのフォルダが表示されていると思います。 bを選択してください、bを開くことなくOKボタンを押してください。選択されたフォルダ名 C:¥a¥b カレントフォルダ名 C:¥a と表示されます。つまり、選択されたフォルダ名とカレントフォルダは、必ずしも一致するとは限りません。私は、FileDialogやDir関数は、使わないので、試してみた結果です。マナさん御指摘の件もFSOを使うと、あまり気にしなくても済むのですが、 Dir関数でも対処法はあるので考えてみてください。ドライブそのものを指定された時と適当なフォルダを指定された時でちょっと違うということです。いずれにせよ、前述したように >フルパス指定で Openステートメントを運用する方法で考えてみては、いかがですか? ichinose ---- Jeraさん ichinoseさんマナさんありがとうございます。何からどこから疑ったらいいのかすらわからなくて困ってました^^; ichinoseさんドライブそのものを指定した時と適当なフォルダを指定した時の違いが実例まで頂きよく理解できました。勉強になりますm(_ _)m フルパス指定にて対応で解決でした。ありがとうございました。（あや） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201301/20130104172546.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ