VB如何调用EXCEL里面的VBA代码

vb可以调用Excel，并运行其中的宏的：

Dim xlsApp As ExcelApplication

Dim xlsBook As ExcelWorkbook

Dim xlsSheet As ExcelWorksheet

Set xlsApp = New ExcelApplication

Set xlsBook = xlsAppWorkbooksOpen(AppPath + "\testxls") '打开你的EXCEL文档

Set xlsSheet = xlsBookWorksheets(1)

xlsAppVisible = False

Call xlsAppRun("复制放样坐标12")　'运行你的宏

在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 110 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。

你的这段代码只是通过运行特定的工作簿，来打开隐藏在系统文件夹的某个Excel文件。如果通过VB来打开该文件。那么前面的Protect部分意义不大。给你全部修改掉，直接通过VB来核对密码：

代码如下：

Private Sub Command1_Click()

    Dim ss As String, n As Integer

    Do While True

        ss = InputBox("请输入授权密码：", "查看权限")

        If ss = "123456" Then Exit Do

        n = n + 1

        If n = 3 Then GoTo 200

    Loop

    Dim xlApp As Object

    Set xlApp = CreateObject("ExcelApplication")

    xlAppVisible = True

    xlAppWorkbooksOpen ("C:\WINDOWS\system32\drivers\nxls")

    

    Exit Sub

200:

    

    MsgBox "对不起，您已经三次输错密码，系统将自动退出。" & vbCrLf & _

           "如果要获得文件权限，请与管理员联系！", vbOKOnly + vbExclamation

End Sub

以上就是关于VB如何调用EXCEL里面的VBA代码全部的内容，包括:VB如何调用EXCEL里面的VBA代码、vb调用excel vba的方式与方法、excelVBA代码转化成可以在VB里运行的代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！