4个回答
展开全部
当然可以咯。
格式是这样的:
Open "(Path & FileName).txt" For Output/Append As #1
Print #1,exp1,exp2,……
Close #1
注意:引号里边是文件名,扩展名可以省略,但若是要能用记事本打开的话,就需要补充.txt作为其扩展名。Output是将原内容删除重写,Append是补写,不删除原内容,如果没有这个文件,将新建一个文件。
exp是要写入记事本的表达式
格式是这样的:
Open "(Path & FileName).txt" For Output/Append As #1
Print #1,exp1,exp2,……
Close #1
注意:引号里边是文件名,扩展名可以省略,但若是要能用记事本打开的话,就需要补充.txt作为其扩展名。Output是将原内容删除重写,Append是补写,不删除原内容,如果没有这个文件,将新建一个文件。
exp是要写入记事本的表达式
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
应该是inputbox吧,我想是吧
inputbox("请输入相关信息")这样就可以了
inputbox("请输入相关信息")这样就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
另一种:
Dim FSO as FileSystemObject
Dim OutStream as TextStream
Set FSO=CreateObject("Scripting.FileSystemObject")
Set OutStream=FSO.OpenTextFile(FileName,ForWriting,True,TristateFalse)
OutStream.WriteLine 你要写入的内容
OutStream.WriteLine 你要写入的内容
OutStream.Close
Set OutStream=Nothing
Set FSO=Nothing
Dim FSO as FileSystemObject
Dim OutStream as TextStream
Set FSO=CreateObject("Scripting.FileSystemObject")
Set OutStream=FSO.OpenTextFile(FileName,ForWriting,True,TristateFalse)
OutStream.WriteLine 你要写入的内容
OutStream.WriteLine 你要写入的内容
OutStream.Close
Set OutStream=Nothing
Set FSO=Nothing
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
知识要点:顺序存取文件
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |