Excel VBAでテキストファイルをカンタンに出力する方法

エンジニア

読了の目安時間: 126

Excel VBAでテキストファイルを出力したい時は、下記のように記述すればOKです。

Public Sub main()

  '変数の宣言
  Dim txt1 As Integer
  Dim Path As String

  'ファイル番号の取得とディレクトリ指定
  txt1 = FreeFile
  Path = "C:\test.txt"

  'ファイルを開く
  Open Path For Output As #txt1

  'データ出力
  Print #txt1, "テキストデータに出力する文字列です。1";
  Print #txt1, "テキストデータに出力する文字列です。2";

  'ファイルを閉じる
  Close #txt1

End Sub

もちろん、上記はvba内部のことですので、ifやforなどの制御文を用いたり、文字列に限らず、ワークブック(ワークシート)のセル情報をそのままテキストファイルへ書き込むルールを指定することも可能です。

openとclose

openとcloseの構文は下記の通りです。

「Open ファイル名 For 用途 As #番号」
「Close #番号」

用途には三種類の指定ができます。例文では、Outputを指定しています。

・Input:読み込み用
・Output:書き込み用
・Append:上書き用

今回はテキストファイルの出力でしたが、外部のテキストファイルやcsvファイルなどからデータを読み取り、vba側で処理することも可能ということです。

キヨタツ
キヨタツの一言

open,close。そこにreverseとか言ってみたい。

今読んだ記事をシェアする

vba-thumb

Excel VBAでテキストファイルをカンタンに出力する方法

  • このエントリーをはてなブックマークに追加
  • Pocket

このブログサイトが参考になった人は、いいねボタン! 更新情報も受け取れます!

arrow
デル株式会社
  • Pocket
  • このエントリーをはてなブックマークに追加

キヨタツ

キヨタツ

WEBを中心に、色々な制作をする個人事業主です。過去、エンジニア&webディレクターで会社勤めをしていました。エンジニアで勤めていた頃は、MATLAB/simulink/VBA/C/C++など扱っていました。生産管理、MECE、オブジェクト指向など、エンジニアの知識はweb業界に入っても、かなり役立ちます。性格は、自虐好きです。