附件中是一个文件夹
文件夹中是一个.xls文件
请问如何通过两个command键
实现command1浏览打开文件 command2转换文件生成.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窗口文件
我把现在做的程序传上来,希望大大指点如何修改