Excel转为txt格式 不能乱码，后面我转化为dat文件，生成包边乱码

1、直接用excel打开文件，然后另存为dat后缀名的格式文件即可。
2、如果上述方法保存之后出现乱码的问题，我们也可以将打开的excel文件另存为txt记事本文件，然后直接将txt文件的后缀名修改成dat的后缀即可。
3、最后数据文件如果是坐标轴系数的话，可以按“点名，，坐标Y，坐标X，高程”格式排列各点数据，在excel里面是5列，先把数据拷贝到word里面，点“表格转换成文字”功能后再把所有的空格替换掉存入到dat文件里面去就行了。dat文件里面开头的总点数可以不输。或者尝试在表格中输入公式“=A4&"，"&C4&",&B4&,&D4”是将其另存为txt格式，在修改后缀名为dat格式即可。

怎么把dat文件转换成Excel文件，里面的数据格式要保留的方法。

如下参考：

1打开Excel，依次单击“复制”工具栏中的数据。

2选择要转换的dat文件，如下所示。

3将dat转换为excel需要三个步骤。首先，选择分隔符，如图所示。

4一般选择空格，这需要根据文档之间的空格符号的程度，将数据或文本之间的双引号用作数据查询输出。

5第三步选择一般，可以预览下面的效果，最后点击完成，如下图。

南方CASS使用中excel转到dat格式 *** 作如下：
首先将Excel导成txt格式，接下来两种方式
①重命名。
②有的时候用“重命名的方式”改的文件不好使唤，那么复制一个正常的“DAT”文件打开把他的内容全删除了，再打开你的“TXT”文件全选复制，把他粘贴到“DAT”文件里保存，对他重命名为你需要的文件名就可以了。

只要保存为txt文件，然后修改扩展名即可，或者直接保存为：xxxdat
读写excel文件参考以下代码：
Dim EXCEL对象 As ExcelApplication
Dim 工作薄 As ExcelWorkbook
Dim 工作薄1 As ExcelWorkbook
Dim 工作表 As ExcelWorksheet
Dim 工作表1 As ExcelWorksheet
Dim i As Integer
Dim j As Integer
Private Sub Form_Load()
Set EXCEL对象 = CreateObject("ExcelApplication")
Set 工作薄 = EXCEL对象WorkbooksOpen("e:\练习\123xls")
Set 工作薄1 = EXCEL对象WorkbooksAdd '("e:\练习\12345xls")
Set 工作表 = 工作薄Worksheets(1)
Set 工作表1 = 工作薄1Worksheets(2)
EXCEL对象Visible = True
i = 1
j = 1
End Sub
Private Sub 开始_Click()
Do
Do While (工作表Cells(i, j) <> "")
工作表1Cells(i, j) = 工作表Cells(i, j)
j = j + 1
Loop
j = 1
i = i + 1
Loop Until (工作表Cells(i, 1) = "")
工作薄1SaveAs ("E:\练习\12345xls")
工作薄Close
工作薄1Close
EXCLE对象Quit
End Sub

---