1个回答
展开全部
跟谢txt文件是一样的,我给你写txt的代码,你看一下就明白了
Dim liFilenumber As Integer
liFilenumber = FreeFile
Open "c\out\test.txt" For Output As #liFilenumber
Print #liFilenumber, "这里是第一行"
Print #liFilenumber, GetCurrents(NulltoString(lrRec.Fields("ProdId")), Const_prodid_L)
Close #liFilenumber
Dim liFilenumber As Integer
liFilenumber = FreeFile
Open "c\out\test.txt" For Output As #liFilenumber
Print #liFilenumber, "这里是第一行"
Print #liFilenumber, GetCurrents(NulltoString(lrRec.Fields("ProdId")), Const_prodid_L)
Close #liFilenumber
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询