一、Excel的调用
在vb中调用excel其实也不是难事,但是不知道怎么调用还真的是不会写程序,所以上网上搜索了一下就有了如下的答案:
首先需要引用excel的库文件:
不同的office版本后面的数字是不一样的
然后在按钮的click事件下写下如下命令:
Dim i As Integer
Dim j As Integer
Dim Excelapp As Excel.Application
Dim Excelbook As Excel.Workbook
Dim Excelsheet As Excel.Worksheet
Set Excelapp = New Excel.Application
Set Excelbook = Excelapp.Workbooks.Add
Set Excelsheet = Excelbook.Worksheets(1)
Excelsheet.Activate
DoEvents
With MSFresult
For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
DoEvents
Excelapp.ActiveSheet.Cells(i + 1, j + 1) = .TextMatrix(i, j)
Next j
Next i
End With
Excelapp.Workbooks.Open
Excelapp.ActiveWorkbook.SaveAs App.Path & "\表格\上机记录.xlsx"
Excelapp.ActiveWorkbook.Save
Excelapp.Quit
MsgBox "导出完成!", vbInformation, "提示"
需要注意的是“表格”这个文件夹是必须得建立的
然后注意到了其实他是自动保存文件,并没有让用户选择,所以经过一段时间的查阅就得到了如下代码:
Dim i As Integer
Dim j As Integer
Dim Excelapp As Excel.Application
Dim Excelbook As Excel.Workbook
Dim Excelsheet As Excel.Worksheet
Set Excelapp = New Excel.Application
Set Excelbook = Excelapp.Workbooks.Add
Set Excelsheet = Excelbook.Worksheets(1)
Excelapp.Visible = True
Excelsheet.Activate
DoEvents
With MSFInfo
For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
DoEvents
Excelapp.ActiveSheet.Cells(i + 1, j + 1) = .TextMatrix(i, j)
Next j
Next i
End With
Excelapp.Cells.EntireColumn.AutoFit
这样就实现了打开Excel文档,让用户自己选择保存的位置,其中
Excelapp.Cells.EntireColumn.AutoFit
为自动调整单元格的大小的作用的
二、控件自动注册的实现
由于程序的发布需要在任何一台机子上都可以直接运行,所以就应该把控件注册的步骤省略到程序中,于是有了以下的过程
下面为控件注册的实现
首先把要注册的文件放到程序根目录下
然后在登陆窗体的加载事件中写入
Dim a As Integer
a = GetSetting("JFMsi", "dllRegister", "Value", 0)
If a = 0 Then
Shell "cmd.exe /c eacho off"
Shell "cmd.exe /c regsvr32 grdes50.dll /s"
Shell "cmd.exe /c regsvr32 gregn50.dll /s"
Shell "cmd.exe /c regsvr32 MSCOMCTL.OCX /s"
SaveSetting "JFMsi", "dllRegister", "Value", 1
End If
其中GetSetting 和 SaveSetting 为注册表的操作函数,详情请见: http://blog.sina.com.cn/s/blog_5479e1ae0100eh9h.html
基本的思路就是利用注册表来记忆是否运行过此程序,以判断是否注册过控件,如果没有运行过则运行CMD的命令进行注册,需要注意的是在UAC设置等级较高的系统里必须用管理员权限运行才可以。