OpenOfficeでVBAプログラミング入門-9

OpenOfficeでVBAプログラミング入門

amazon kindle版を出版しました。

---

 　4.6　ファイルに入出力

　　data.txtファイルに"Hello World"を書き込みます。

Option VBAsupport 1 'VBAと互換性
Sub Main
　Dim s as String 'sを文字型として宣言 

　Dim t as String 'tを文字型として宣言

　　s="Hello World"

　　Cells(1,1).Value=s

'ワークブックのあるpathにdata.txtを書き込みで開く

　　Open ActiveWorkbook.Path & "\data.txt" For Output As #1

　　　Print #1,s

　　Close #1

'ワークブックのあるpathにdata.txtを読み込みで開く

　　Open ActiveWorkbook.Path & "\data.txt" For Input As #1

　　　Line Input #1,t

　　Close #1

　　Cells(3,1).Value=t
End Sub

---

が出力されました。

Hello Worldが出力できています。
この、data.txtを変数tに読み込んでCells(3,1).Value=tで表示すると

tにHello Worldが読み込まれていることが確認できます。