- ·上一篇教育:excel表格怎么剪贴筛选
- ·下一篇教育:excel表格怎么下来加1
excel表格表成分隔值怎么办
1.如何解决excel文件保存的列表分隔符问题???
如果你保存为 csv 文件格式,系统默认就是以逗号为分隔符,貌似与你设置无关。
解决的办法:
1. 先存为csv,再对逗号进行替换。
2. 自己编写代码保存文件,因为是纯文本格式,编码不是太复杂,以下代码供参考:
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).text & "|"
Next j '开始列循环的下一个迭代
Print #FileNum, Left(cTxt, Len(cTxt) - 1) '逐行写入目标文件
Next i '开始行循环的下一个迭代
Close #FileNum '关闭目标文件
End Sub
评论内容只代表网友观点,与本站立场无关!
评论摘要(共 0 条,得分 0 分,平均 0 分)
