本文向大家介绍VB.NET Excel,可能好多人还不了解VB.NET Excel,没有关系,看完本文你肯定有不少收获,希望本文能教会你更多东西。
VB.NET Excel
说起报表设计应用程序,无意微软的Excel是一支独秀,VB.NET Excel就是用来进行表格和报表设计用的应用程序,它具有优秀的方格控制和宏代码定制功能。所以如果在设计自己的应用程序的时候能够结合到Excel的话,那么你的应用程序就应该是相当的完善了,因为无论是编辑还是打印功能,Excel都提供了很***的解决方案,所以你的应用程序所要做的事情就是实现程序和Excel通讯即可。
事实上,可以使用VB Script可以将VB Excel两者连接起来。以下就简要介绍在VB下开发基于Excel的编程思路。
在VB中处理Excel的对象大致分为五个:Application对象、WorkBook对象、WorkSheet对象、Range对象以及Cell对象。它们的功能分别如下:
◆Application:用来指代整个应用程序。
◆WorkBook:表示工作簿对象
◆WorkSheet:表示工作表对象,注意,一个工作簿可以包含多个工作表,它们就类似于多文档中的框架窗口和里面的单个视图一样。
◆Range:表示工作表中的某个区域范围对象,特殊情况下也可以只代表一个Cell。
◆Cell:表示特定工作表的一个单元格对象。这个对象的使用频率是***的。
清楚了以上的五个对象的应用范围,那么使用它们就很简单了,不过在使用这些对象之前,首先需要对它们进行声明。方法是在"工程"的"引用"对话框之下选择"Microsoft Excel9.0 Object Library",这样就将整个Excel对象库就引入到程序中来了。
下面举一个示例,其实现的功能是打开一个工作簿。
- Function OpenBook(strFilePath As String) As Boolean
- ' This procedure checks to see if the workbook
- ' specified in the strFilePath argument is open.
- ' If it is open, the workbook is activated. If it is
- ' not open, the procedure opens it.
- Dim wkbCurrent As Excel.Workbook
- Dim strBookName As String
- On Error GoTo OpenBook_Err
- ' Determine the name portion of the strFilePath argument.
- strBookName = NameFromPath(strFilePath)
- If Len(strBookName) = 0 Then Exit Function
- If Workbooks.Count >0 Then
- For Each wkbCurrent In Workbooks
- If UCase$(wkbCurrent.Name) = UCase$(strBookName) Then
- wkbCurrent.Activate
- Exit Function
- End If
- Next wkbCurrent
- End If
- Workbooks.Open strBookName
- OpenBook = True
- OpenBook_End:
- Exit Function
- OpenBook_Err:
- OpenBook = False
- Resume OpenBook_End
- End Function
【编辑推荐】