テキストファイルをパソコン内部で開く方法MyRecord業務の効率化に役立つ情報を発信します。テキストファイルをパソコン内部で開く方法VBAファイル・フォルダー操作スポンサーリンクテキストファイルをパソコン内部で開く方法テキストファイルをパソコン内部で、開くには、Open【オープン】ステートメントを使用します。テキストファイルの内容を入出力するためにパソコン内部でファイルを開くため、その内容が画面に表示されることはありません。開いたファイルはClose【クローズ】ステートメントで閉じるまでの間、引数Filenumber【ファイルナンバー】に指定したファイル番号を使用して参照します。Open【オープン】ステートメントの書式と設定値の説明[]内は省略可能です。【パスネーム】(必須)開きたいテキストファイルの名前を含むパスをダブルクォーテーションで囲んで指定します。ファイル名だけを指定した場合はカレントフォルダーのファイルが対象となります。指定したファイルが存在しない場合、引数Mode【モード】にInput【インプット】以外のモードが指定されていると指定されたファイルが新規作成されます。mode【モード】(必須)ファイルを開くときのモードを以下のキーワードで指定します。ランダムアクセスモード(既定値)※シーケンシャルモードとは、規則的に継続している形式という意味です。※バイナリモードとは、画像などのデータ形式を表します。access【アクセス】(省略可)開くファイルに対する処理を示す、次のキーワードのうちいずれかを指定します。リードライト読み書き込みlock【ロック】(省略可)開かれたファイルに対する他のプロセスからの操作の制限を表す次のキーワードのうちいずれかを指定します。ロックリード読み書き込みロックfilenumber【ファイルナンバー】(必須)開いたファイルに番号を割り当てます。1~511の値を指定します。アクセス用に開かれたファイルでは、この値はレコード長です。ファイルでは、この値はバッファリングされる文字数です。※引数filenumber【フィルターナンバー】で、すでに使用しているファイル番号を指定するとエラーになります。ファイル番号を取得する方法があります。※シーケンシャルモード、追加モードの場合開いているファイルを異なるファイル番号で同時に開こうとするとエラーになります。これらのモードで再度ファイルを開くときは、開いているファイルをClose【クローズ】ステートメントで閉じてから開いてください。シーケンシャルモード、バイナリモード、ランダムアクセスモードの場合は、一つのファイルを異なるファイル番号で開くことができます。#【インプットハッシュ】ステートメントを使用します。#Filenumber,Varlist,・・・・Filenumber【ファイルナンバー】(必須)Open【オープン】ステートメントで割り当てたファイル番号を指定します。Varlist【バーリスト】(必須)テキストファイルの内容を格納する変数を指定します。複数指定する場合は、カンマで区切って指定し、テキストファイル内のデータ項目の個数と順番を一致させます。※ファイルの末尾を超えて次のデータを読み込もうとするとエラーが発生します。使用して、ファイルの末尾に達したらファイルの読み込みを終了させます。#【ライトハッシュ】ステートメントを使用します。#【クローズハッシュ】ステートメントを使用します。#【クローズハッシュ】ステートメントを実行するとファイルに割り当てられていたファイル番号が解放されます。#【クローズハッシュ】ステートメントの書式と設定値の説明[]内は省略可能です。#[Filenumber]Filenumber【ファイルナンバー】(省略可)Openステートメントで割り当てたファイル番号を指定します。複数指定する場合は、カンマで区切って指定します。省略するとすべてのファイルを閉じます。同じフォルダー内のテキストファイルをシートに読み込むコードと解説このマクロが記述されたブックと同じフォルダーにあるテキストファイルを読み込みます。例では、「売上データ.txt」ファイルを読み込みます。4項目(4列)のデータを想定しています。Integer】Open【オープン】ステートメントで使用するファイルのナンバーを格納する変数「ファイルNO」整数型(Integer)で宣言します。#【インプットハッシュ】ステートメントで読み込むテキストファイルのデータを格納する配列変数「データ()」を文字列型(String)で宣言します。Loop【ドゥルループ】ステートメントで利用されるセルの行番号を表すカウンタ―変数「i」を整数型(Integer)で宣言します。5行目【Worksheets(1).Activate】Worksheets【ワークシーツ】プロパティで引数にインデックス番号1を指定して1番目のワークシートを参照しActivate【アクティベイト】メソッドを使用してそのシートをアクティブにします。FreeFile】FreeFile【フリーファイル】関数を使用して、Open【オープン】ステートメントで、使用できるファイル番号を取得し、変数「ファイルNO」に代入します。#ファイルNO】Open【オープン】ステートメントを使用して、このブックと同じフォルダーにある「売上データ.txt」ファイルをファイルNOに格納されているNOでパソコン内部で開きます。1】カウンタ―変数「i」に1を代入します。Until【ドゥアンチル】ステートメントを使用して、データの末尾を返す。EOF【イーオーエフ】関数がTrueを返すまで(データが無くなるまで)処理を繰り返します。Next【フォーネクスト】文で繰り返し処理の始まりです。カウンター変数「j」に0~3になるまで以下の処理を繰り返します。データ(j)】i行目、i+1列目のセルに配列変数データのj番目要素に格納した値を代入します。#ファイルNO】ファイルを閉じて、変数ファイルNOに格納されている番号のファイルを解放します。以上で、テキストファイルをパソコン内部で開く方法についての解説を終了します。ありがとうございました。