Excel VBA質問箱 IV

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

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


56061 / 76732 ←次へ | 前へ→

【25436】プロシージャ1つ書き忘れました
回答  Hirofumi  - 05/5/31(火) 22:15 -

引用なし
パスワード
   ゴメン
以下のプロシージャを、入れ忘れました
此れを同じ標準モジュールに入れて下さい
入れないと動きません

Private Function GetReadFile(vntFileNames As Variant, _
            Optional strFilePath As String, _
            Optional blnMultiSel As Boolean _
                    = False) As Boolean

  Dim strFilter As String
  
  'フィルタ文字列を作成
  strFilter = "CSV File (*.csv),*.csv," _
        & "Text File (*.txt),*.txt," _
        & "CSV and Text (*.csv; *.txt),*.csv;*.txt," _
        & "全て (*.*),*.*"
  '読み込むファイルの有るフォルダを指定
  If strFilePath <> "" Then
    'ファイルを開くダイアログ表示ホルダに移動
    ChDrive Left(strFilePath, 1)
    ChDir strFilePath
  End If
  'もし、ディフォルトのファイル名が有る場合
  If vntFileNames <> "" Then
    SendKeys vntFileNames & "{TAB}", False
  End If
  '「ファイルを開く」ダイアログを表示
  vntFileNames _
      = Application.GetOpenFilename(strFilter, 2, , , blnMultiSel)
  If VarType(vntFileNames) = vbBoolean Then
    Exit Function
  End If
  
  GetReadFile = True
  
End Function
0 hits

【25287】値・文字データがランダムに入ったテキストファイル抽出について おソラ 05/5/26(木) 15:58 質問
【25295】Re:値・文字データがランダムに入ったテ... 小僧 05/5/27(金) 10:00 回答
【25374】小僧さん・「Unicode」の指定方法について おソラ 05/5/30(月) 10:24 質問
【25384】Re:小僧さん・「Unicode」の指定方法につ... 小僧 05/5/30(月) 11:37 発言
【25420】Re:小僧さん・「Unicode」の指定方法につ... おソラ 05/5/31(火) 13:15 質問
【25422】Re:小僧さん・「Unicode」の指定方法につ... 小僧 05/5/31(火) 14:05 発言
【25425】小僧さん・「Unicode」の指定方法につ... おソラ 05/5/31(火) 15:05 発言
【25421】Re:値・文字データがランダムに入ったテキ... おさる 05/5/31(火) 13:32 発言
【25424】おさるさん おソラ 05/5/31(火) 14:33 発言
【25433】Re:値・文字データがランダムに入ったテキ... Hirofumi 05/5/31(火) 20:57 回答
【25436】プロシージャ1つ書き忘れました Hirofumi 05/5/31(火) 22:15 回答
【25450】Hirofumi さん おソラ 05/6/1(水) 10:01 お礼
【25451】Re:Hirofumi さん m2m10 05/6/1(水) 10:07 回答
【25456】Hirofumi さん m2m10さん 集計の件 おソラ 05/6/1(水) 11:52 発言
【25457】Re:Hirofumi さん m2m10さん 集計の件 Jaka 05/6/1(水) 13:06 発言
【25471】Jaka さん おソラ 05/6/1(水) 17:04 お礼

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