有難い。変数名は自己流にアレンジ 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
strVal = CStr(varVal)、例えばFSOで一括読みしたVariant配列→For Each line In Array..とかループの中でCStrするとString引数を求めるSub/Functionにlineを渡せられる…にしてもVBAの型システムとかSub/Functionの使い分けって誰が喜ぶんだ…(愚痴)