添加一个按钮，然后粘贴代码，路径根据自己需要去改Option ExplicitPrivate Sub Command1_Click()Open "c:1.txt" For Input As #1Open "c
