読者です 読者をやめる 読者になる 読者になる

Fight the Future

何かを始めたら、半分成功したのと同じ

テキストファイルを読み込む

macro

fiieNameはフルパスで。

Function loadTextFile(fileName As String) As String
    Dim fileNo As Integer
    Dim lineText As String
    Dim result As String
    fileNo = FreeFile
    Open fileName For Input As #fileNo
    Do While Not EOF(fileNo)
        Line Input #fileNo, lineText
        result = result & lineText & vbCrLf
    Loop
    Close #fileNo
    loadTextFile = result
End Function