机房收费——Excel打开调整与注册控件的实现

小鱼儿 2021-05-12 11:51 411阅读 0赞

** 一、Excel的调用     **

在vb中调用excel其实也不是难事，但是不知道怎么调用还真的是不会写程序，所以上网上搜索了一下就有了如下的答案：

首先需要引用excel的库文件：

![Center][]

不同的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

为自动调整单元格的大小的作用的

**二、控件自动注册的实现**

由于程序的发布需要在任何一台机子上都可以直接运行，所以就应该把控件注册的步骤省略到程序中，于是有了以下的过程

**下面为控件注册的实现**

首先把要注册的文件放到程序根目录下

![Center 1][]

然后在登陆窗体的加载事件中写入

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][http_blog.sina.com.cn_s_blog_5479e1ae0100eh9h.html]

基本的思路就是利用注册表来记忆是否运行过此程序，以判断是否注册过控件，如果没有运行过则运行CMD的命令进行注册，需要注意的是在UAC设置等级较高的系统里必须用管理员权限运行才可以。

[  
][http_blog.sina.com.cn_s_blog_5479e1ae0100eh9h.html]

[Center]: /images/20210511/d9df1c1d2189458c932ce374efab75a0.png
[Center 1]: /images/20210511/b897e65ebf764d718216a9363fcfead2.png
[http_blog.sina.com.cn_s_blog_5479e1ae0100eh9h.html]: http://blog.sina.com.cn/s/blog_5479e1ae0100eh9h.html