写入 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