vb.net类型库 vbnet structure

vb.net 如何引用自定义类库

在项目A里添加引用，在“添加引用”对话框里找到项目B就可以了。也可以先把项目B生成dll文件，然后在项目A中添加对这个dll文件的引用。

成都创新互联从2013年开始，先为和平等服务建站，和平等地企业，进行企业商务咨询服务。为和平企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

一定要先在VB中添加excel引用。

在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。

调用excel的工作表中的命令按钮，代码如下：

Private Sub Command1_Click()

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

Dim FileName, SheetName As String

FileName = "e:\data.xls" '打开的工作簿路径名称

SheetName = "sheet1" '命令按钮所在的工作表名

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件

……

xlBook.Close (True) '保存并关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

end sub

‘首先，创建一个VB.NET项目，再点击菜单”项目“-”添加引用“，在”Com“-”类型库“里，选择Microsoft.Word 14.0 Object Library（对应Office版本为2010），将以下代码复制粘贴到Form1窗体替换原代码。

’PS：以下代码仅创建表格，将第行2至4列合并，添加1个文字，其他的你自己分析。

Imports Microsoft.Office.Interop

Imports Microsoft.Office.Interop.Word '引入Word

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim DWrd As New Word.Application, DDoc As Word.Document '定义Word及文档对象

DDoc = DWrd.Documents.Add '新增文档

Dim DTbl As Word.Table '定义表格对象

DTbl = DDoc.Tables.Add(DDoc.Range, 7, 4) '新增表格

DTbl.Style = "网格型" '表格的样式

DTbl.Cell(1, 2).Select() '选择起始单元格为第1行/第2列

DWrd.Selection.MoveRight(, 2, SelectionMode.MultiExtended) '向右扩展两个单元格(即选择第1行的第2至4列)

DWrd.Selection().Cells.Merge() '单元格合并

DTbl.Cell(1, 1).Range.Text = 1 '在第1个单元格填写文本

DWrd.Visible = True '显示Word

End Sub

End Class

文章标题：vb.net类型库 vbnet structure
转载来于：http://6mz.cn/article/doiopic.html