一种dat格式的文件转换为excel格式的

[fly712]

请教如何将dat格式的文件转换为excel格式的，文件很小，我有转换前的文件和转换后的文件，很小的，，这个转换好像不难，因为转换起来很快的。
谁能帮我看看如何实现这种转换
如果有合适的答案，我会立即结贴给分的。

[fly712]

忘记发文件存放地址了，地址为http://menfly.ys168.com/，很小的

[fly712]

谢谢两位，我试试看行不行，我的转换工具只能一片一片的转，有点费时，所以我想自己写一个。

[明寿]

happy_sea 看得仔细啊,确实是文本的.

Operator_Name as String * 20 '定义长度为20的串
Device_Name as String * 17 '定义长度为17的串,读入文件时就会对号入座了

用UltraEdit可看到这种DAT文件的结构

楼主怎么又搞到邮箱去了?好像CSDN不大赞同这种做法哦

[明寿]

'楼主的DAT文件是晶圆测试后生成得图形数据文件哦。有意思，既然有转换的工具了为什么还要自己做哪？
'做法：
'1,全面了解DAT的文件结构，用TYPE 定义一个类型。
Type typDat '每列30字节
Dat(1 to 30) as Byte
End Type

Type typDatFile 'Dat文件结构
Operator_Name as String * 20
Device_Name as String * 17
'... 自己研究文件结构
GUIDat(1 to 28) as typDat '28行
Enf Type
'2,读入文件
Dim DatFile as typDatFile '声明
Open YouPath & "\1.dat" For Random As #1 Len = len(DatFile)
Get #1, 1, typDatFile '加载文件
Close #1
'3,写入EXCEL
'...引用EXCEL应用库,怎么使用CSDN大把说明
Sheet1.Rang("A1") = typDatFile.Operator_Name '写入名字
'......省略N行

[happy_sea]

给楼上的作一下补充，其实那个xls并不是Excel文件，而是一个标准的文本文件，只是扩展名是xls而已，用ultraedit或者随便一个文本编辑器打开一看便知，所以就作为一个普通文本文件写入就行了，无需引用Excel库什么的。

[dd92100]

tttttt