EXCEL中通过VB输出成文本格式

Sub WriteText() '导出为文和漏本文件

Dim FileName$, FileNum%, intRow&, i&, intCol%, j%, cTxt$ '变量

FileName = ThisWorkbook.Path &"\" &Sheet1.Name &".txt" '文件名

FileNum = FreeFile '提供轿棚配一个尚未使用的文件号

intRow = Range("a65536").End(xlUp).Row '判断最后一行

intCol = Range("iv1").End(xlToLeft).Column '判断最后一列

Open FileName For Output As #FileNum '打开目标文件以提供输出

For i = 1 To intRow '闭指循环每一行

cTxt = "" 'cTxt置空

For j = 1 To intCol '循环每一列

cTxt = cTxt &Cells(i, j).Value &"," '.Value改为.Text

Next j '开始列循环的下一个迭代

Print #FileNum, Left(cTxt, Len(cTxt) - 1) '逐行写入目标文件

Next i '开始行循环的下一个迭代

Close #FileNum '关闭目标文件

End Sub

保存text1中手氏轮的内容到文核春本文件吗? 很容易的..

Open "c:\1.txt" For Output As #1

Print #1, Text1

Close #1

这样就毕信行了,把Text1中的内容放到c盘的1.txt文件里面了.

第二行：将 Random 换成 Output

【具体文件打开模式，参见庆蚂百度誉缓埋，本人不再复制粘贴】

【你没有关闭文件，虽然哪袭当程序结束时会自动关闭文件，但是还要写上这句最好】

---