vba移植vb.net vba移植vb

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

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

治多网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、APP开发、响应式网站开发等网站项目制作，到程序开发，运营维护。创新互联建站自2013年创立以来到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。

但是里面涉及到的数据库的链接，对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

不知道你是指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对象

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

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

分享标题：vba移植vb.net vba移植vb
文章来源：http://cdiso.cn/article/doihcos.html