VBA-5: 读写txt

写入

v=1011
Shell ("cmd.exe /S /C echo " + CStr(v) + ">a.txt")

Application.Wait (Now + 0.000001)

读取

Open "a.txt" For Input As #1
Line Input #1, txt

MsgBox txt
Close #1