ExcelVBA学習4日目(ファイル操作)

▼ファイルオープン１

Openステートメントで指定ファイルを開き、内容をメッセージボックスに表示。Openステートメントでファイルを開くと、画面にファイル内容を表示することなく入出力可能な状態になる。

まずGetステートメントで100biteづつバイナリモードでファイルを読み込んで変数に格納する。

Option Explicit

Sub OpenStM1()

Dim MyMoji As String * 100

Open "C:\Users\yuki\Desktop\text.txt" For Binary As #1

Do Until EOF(1) = True
Get #1, , MyMoji
MsgBox MyMoji
Loop

Close #1

End Sub