锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术工作

vba中的宏怎么移植到vb中不知道你是指EXCEL还是WORD，下面是EXCEL
首先通过VB的菜单[工程] -- [引用] ， 勾?。篗icrosoft 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文件
【vba移植vb.net vba怎么安装使用】Set xlsSheet = xlsBook.Worksheets("Sheet1")'设置工作表对象为工作簿中的表“Sheet1”
'''''''''''''''''''''''''''''''''''''''''''''
这里是你的具体操作，类似宏
'''''''''''''''''''''''''''''''''''''''''''''
xlsBook.Close (True)'关闭工作簿并保存所做的修改 (False)则放弃修改，将会提问
xlsApp.Quit'关闭EXCEL对象
Set xlsApp = Nothing'释放xlApp对象
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
您好请问如何将vba改成vb.net呢？谢谢啦） Dim swApp As Object Dim Part As Object Dim boolstatus As BooswApp.ActiveDoc是什么东西？word的吗？
如果是ord的东西，那么将set去掉就可以了，其他的不需要做任何更改 。
关于vba移植vb.net和vba怎么安装使用的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：oracle增加一个数据列，oracle添加一列数据

    下一篇：任务单机游戏，任务类游戏