作者：乔山办公网日期：
返回目录：excel表格制作
有些字符是不能作文件名的，输出也不合适，应该替换调。。。。。。。
utf8编码，就可以。。。。。。
你试试 传说中的土鳖 的方法吧 第二行的chatset=
Sub stxt()
f = ThisWorkbook.Path & "\" & [e5] & ".txt"
Open f For Output As #1
For i = 3 To 38
Print #1, Cells(i, "I")
Next
Close #1
End Sub
编码格式统统用UTF-8