VB、ACCESSについて (ID:114112)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 それでは勝手に仮定(笑)して話を進めます(^^ あるフォルダにテキストファイルが複数存在するんですね。 そのテキストファイルには1行だけデータが入っていると。 そのデータを読み込み、MDBに更新する・・・ で、よろしいでしょうか？ とりあえずフォルダ内のテキストファイルの検索方法と、テキストファイルの読み込み方について記述します。私が上記に記述したとおりだとおっしゃるのであれば、次のレスで続きを書きます(笑) Dim Selectfile As String Dim TextLine As String Selectfile = "" 'C:\TEST内のテキストファイルを抽出 Selectfile = Dir("C:\TEST" & "\*.txt") Do Until Selectfile = "" Open "C:\TEST\" & Selectfile For Input As #1 Do While Not EOF(1) ' ファイルの終端までループを繰り返します。 Line Input #1, TextLine ' 行を変数に読み込みます。 Debug.Print TextLine ' イミディエイト ウィンドウに表示します。 Loop ' 他のモードで開く前に、このファイルを一度閉じます。 Close #1 '次のファイル名へ Selectfile = Dir Loop テストしてませんが、多分大丈夫です。 これでテキストファイルを読み込むことができます。 HELP等より抜粋して組み合わせただけですので、ステートメントや 関数の意味、使用方法はHELPを見ていただいたら解ると思います。