有難い。変数名は自己流にアレンジ Dim fso As Object, inFile as Object, fn, contents\nSet fso = CreateObject("Scripting.FileSystemObject")\nSet inFile = fso.OpenTextFile(fn, 1)\ncontents = Split(inFile.ReadAll, vbNewLine)\nDim line\nFor Each line In contens\nDebug.Print line\nNext line
1
How to read text file into an array in vba
