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

急切等待大大的回答
顶上去

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

能用VB.NET做吗？？

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

花了一晚上终于搞出来了
代码如下：（注意要添加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

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

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

To Joforn:
在运行转换键是出现编译错误：变量未定义
不知如何修改