| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5500 人关注过本帖
标题:.xls文件如何转成.dat文件
只看楼主 加入收藏
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
 问题点数:0 回复次数:11 
.xls文件如何转成.dat文件


附件中是一个文件夹
文件夹中是一个.xls文件
请问如何通过两个command键
实现command1浏览打开文件 command2转换文件生成.dat文件
求哪位大大帮忙写下源程序
跪谢
p2GHh5Pj.rar (110.22 KB) .xls文件如何转成.dat文件




D73zd59w.rar (110.18 KB) .xls文件如何转成.dat文件

搜索更多相关主题的帖子: dat文件 xls文件 command 附件 
2007-05-27 21:16
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
得分:0 
急切等待大大的回答
顶上去

2007-05-29 17:10
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
得分:0 

那位前辈能给些指点
谢谢了

2007-05-30 17:47
superguy
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-5-17
收藏
得分:0 

能用VB.NET做吗??

2007-05-30 23:06
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 

你的Dat文件是什么格式啊?


VB QQ群:47715789
2007-05-31 11:31
superguy
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-5-17
收藏
得分:0 

花了一晚上终于搞出来了
代码如下:(注意要添加2个BUTTON控件,一个COMMONDIALOG控件,commondialog控件在工程》部件》空间里,使用BUTTON2之前一定要先用BUTTON1找到XLS文件路径,然后转成的DAT与XLS在同一目录下)
Public filename As String
Option Base 1

Private Sub Command1_Click()
CommonDialog1.ShowOpen
CommonDialog1.Tag = 1

If CommonDialog1.Tag = 1 Then
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(CommonDialog1.filename) '打开已经存在的EXCEL工件簿文件
filename = CommonDialog1.filename
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlsheet = xlBook.Worksheets("Sheet1") '设置活动工作表,sheet1表示表名,可以使用字符型变量代替。
xlsheet.Activate '激活工作表,让它处于前台活动中。
CommonDialog1.Tag = 0
End If
End Sub

Private Sub Command2_Click()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(filename) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见(或不可见)
Set xlsheet = xlBook.Worksheets("Sheet1") '设置活动工作表,sheet1表示表名,可以使用字符型变量代替。
xlsheet.Activate '激活工作表,让它处于前台活动中。
Dim a(7000) As Double
Dim b(7000) As Double
Dim str As String
For i = 1 To 7000
a(i) = xlsheet.Cells(i, 1)
b(i) = xlsheet.Cells(i, 2)
Next i
str = Left(filename, Len(filename) - 3) & "dat"
Open str For Binary As #1
Put #1, 1, a
Put #1, , b
End Sub

2007-05-31 11:47
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
得分:0 

我按照大大的方法运行程序后发现新生成的.dat文件用txt打开后是乱码
不知道是什么原因
还有我想把选中的xls文件显示在OLE的excel工作表中而不是直接打开excel窗口文件
我把现在做的程序传上来,希望大大指点如何修改

Sg8MCbag.rar (178.33 KB) .xls文件如何转成.dat文件



2007-05-31 17:21
superguy
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-5-17
收藏
得分:0 

我按照大大的方法运行程序后发现新生成的.dat文件用txt打开后是乱码
不知道是什么原因
答:.dat文件是二进制数据文件,使用2进制码写入数据,当然是乱码。游戏中的.DAT文件用记事本打开也是乱码。
还有我想把选中的xls文件显示在OLE的excel工作表中而不是直接打开excel窗口文件
我把现在做的程序传上来,希望大大指点如何修改
答:那你创建一个EXCEL控件撒啊,可以将源文件拷贝到你的EXCEL空间上,在进行操作。

2007-06-01 10:25
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
回复:(superguy)我按照大大的方法运行程序后发现新...
4UGAe1U9.rar (114.08 KB) .xls文件如何转成.dat文件



VB QQ群:47715789
2007-06-01 12:21
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
得分:0 
To Joforn:
在运行转换键是出现编译错误:变量未定义
不知如何修改

2007-06-01 16:53
快速回复:.xls文件如何转成.dat文件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020011 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved