vba移植vb.net vba怎么安装使用

vba中的宏怎么移植到vb中

不知道你是指EXCEL还是WORD，下面是EXCEL

首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel 11.0 Object Library

其中11.0是不一定的，要看你计算机安装的OFFICE版本而定

11.0是2003，

这样就可以在VB里使用对象了：

Dim xlsApp As Excel.Application '声明Excel对象变量

Dim xlsBook As Excel.Workbook '声明工作簿对象变量

Dim xlsSheet As Excel.Worksheet '声明工作表对象变量

Set xlsApp = CreateObject("Excel.Application") '创建EXCEL对象实例

xlsApp.Visible = False '设置EXCEL对象不可见（或True为可见）

Set xlsBook = xlsApp.Workbooks.Open("C:\实验1.xls") '打开已经存在的工作簿EXCEL文件

Set xlsSheet = xlsBook.Worksheets("Sheet1") '设置工作表对象为工作簿中的表“Sheet1”

'''''''''''''''''''''''''''''''''''''''''''''

这里是你的具体操作，类似宏

'''''''''''''''''''''''''''''''''''''''''''''

xlsBook.Close (True) '关闭工作簿并保存所做的修改 (False)则放弃修改，将会提问

xlsApp.Quit '关闭EXCEL对象

Set xlsApp = Nothing '释放xlApp对象

相关问答

Q1: VBA关于access编辑的宏，如何移植到VB当中？

VBA是VB的一个只集，但是运行平台不一样。所以要移植到VB中理论上只要复制一下就行。

但是里面涉及到的数据库的链接，对office的操作要换成VB的函数和语法。

下面是VB用ADODB.Connection链接数据库的例子，楼主可以参考一下

Private Sub Command1_Click()

    Dim cn As New ADODB.Connection '定义数据库的连接

    Dim rs As New ADODB.Recordset

    Dim sql As String

    sql = "select * from jishijilu" '

    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  App.Path  "\wd.mdb;Persist Security Info=False"

    cn.Open

    rs.CursorLocation = adUseClient

    rs.Open sql, cn, adOpenDynamic, adLockOptimistic

    Set DataGrid1.DataSource = rs

End Sub

Q2: 您好请问如何将vba改成vb.net呢？谢谢啦） Dim swApp As Object Dim Part As Object Dim boolstatus As Boo

swApp.ActiveDoc是什么东西？word的吗？

如果是ord的东西，那么将set去掉就可以了，其他的不需要做任何更改。

关于vba移植vb.net和vba怎么安装使用的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。