Excel VBA質問箱 IV

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

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


61909 / 76732 ←次へ | 前へ→

【19434】Re:固定長のテキストをスマートに切りだしながら取り込みたい
お礼  ackkn  - 04/11/2(火) 18:35 -

引用なし
パスワード
   ▼Hirofumi さん:
Hirofumi さん、こんばんは。
返事が遅くなって申し訳ありません。
>もし、こう言う使い方をするなら以下の様にします
>  'ディフォルトのファイル名を指定
>  vntFileName = "SinBHKaku*.txt" '←ここと
>  If Not GetReadFile(vntFileName, ThisWorkbook.Path, False) Then
>    Exit Sub
>  End If
>'  'Openするファイル名を設定 '★要らない
>'  'vntFileName = ThisWorkbook.Path & "\" & "Test.txt" '★要らない
>'  vntFileName = ThisWorkbook.Path & "\" & vntFileName '←ここ ★要らない
>  If Dir(vntFileName) = "" Then '←ここでエラーが出ます。
>    Beep
>    MsgBox vntFileName & vbCrLf & "ファイルが有りません"
>    Exit Sub
>  End If
>尚、
>>  それと、Function GetReadFile(vntFileNames As Variant, _
>>            Optional strFilePath As String, _
>>            Optional blnMultiSel As Boolean _
>>                    = False) As Boolean
>>  内の vntFileNames 全てを vntFileName に変えました。
>は、する必要が有りません
ご教示通り直しましたら、バッチリ思ったとおりに動きました。
本当に色々とありがとうございました。m(_ _)m
またお世話になると思いますので、その節はよろしくお願い致します。
0 hits

【19205】固定長のテキストをスマートに切りだしながら取り込みたい ackkn 04/10/25(月) 16:01 質問
【19207】Re:固定長のテキストをスマートに切りだし... Kein 04/10/25(月) 16:34 回答
【19210】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 17:19 発言
【19209】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/25(月) 17:04 回答
【19211】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 17:29 発言
【19212】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/25(月) 17:41 回答
【19214】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 19:14 質問
【19215】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 20:12 質問
【19230】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/26(火) 9:43 回答
【19233】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/26(火) 12:06 発言
【19256】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/26(火) 16:54 発言
【19282】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/27(水) 12:08 質問
【19283】Re:固定長のテキストをスマートに切りだし... Jaka 04/10/27(水) 12:37 発言
【19303】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/27(水) 20:11 お礼
【19216】Re:固定長のテキストをスマートに切りだし... Hirofumi 04/10/25(月) 20:18 回答
【19223】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/25(月) 22:50 発言
【19270】Re:固定長のテキストをスマートに切りだし... ackkn 04/10/27(水) 9:48 質問
【19304】Re:固定長のテキストをスマートに切りだし... Hirofumi 04/10/27(水) 20:57 回答
【19434】Re:固定長のテキストをスマートに切りだし... ackkn 04/11/2(火) 18:35 お礼

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