摘要： 例1：在VB代码前产生一条竖线，并显示行号，效果如下： Dim worksheet As Excel.Worksheet 实际代码： <div class="cnblogs_Highlighter"><pre class="brush:vbnet;gutter:true;"> 进入HTML中，在此处 阅读全文

摘要： 实例1：处理NewWorkbook和WorkSheet事件的控制台程序 书本第70页 程序清单 4.1 处理NewWorkbook和WorkSheet事件的控制台程序 Imports Excel = Microsoft.Office.Interop.Excel Imports System.Wind 阅读全文

摘要： 通过前两章的内容，有了一定的基础，但进入第三章，实例的步骤非常多，并且随着VS版本的升级，部分功能菜单界面发生了很大变化，所以，第三章的案例我将逐步编写！ 实例3.1的目标就是给Excel写一个加载宏，实质就是写一个Excel函数，并通过在注册表中注册，实现像自带函数那样的功能。 步骤一：Visua 阅读全文

摘要： 实例2.1 通过控制台实现对Excel的自动化处理 书本第32页 注：添加两个引用： 第一个：程序集—框架—“System.Windows.Forms 4.0.0.0”第二个：程序集—扩展—“Microsoft.Office.Interop.Excel 14.0.0.0” 程序清单2.1通过控制台程 阅读全文

摘要： 完美地将visual basic和office 办公软件结合起来。来自微软公司VSTO小组的权威专家所编著。 全书共992页，内容极其全面而深入，猛一看，厚地犹如庞然大物。看完离大神就不远了哦<^ . ^>!!!!! 《VSTO开发指南》是2008年2月电子工业出版社出版的图书， 作者是（美国）Er 阅读全文

摘要： 1 Sub Browse_Click() 2 '打印信息 3 Dim columnCount As Integer '列数 4 Dim rowCount As Integer '行数 5 columnCount = getColumnCount(XsXxSheet) 6 rowCount = Application.CountA(Active... 阅读全文

摘要： 1 Sub Print_Click() 2 '打印信息 3 Dim columnCount As Integer '列数 4 Dim rowCount As Integer '行数 5 columnCount = getColumnCount(XsXxSheet) 6 rowCount = Application.CountA(ActiveSheet.Range("B:B")) 7 If rowC 阅读全文

摘要： 1 Function DicCheck(ValueColum, dicColum) 2 '待检查数据列的表头 3 Dim valueColumnTitle As String 4 '待检查数据列的字典表头 5 Dim dicColumnTitle As String 6 '数据表格的行数 7 Dim valueRowC... 阅读全文

摘要： Sub Begin_Click() Sheets(valueSheetName).Visible = True Sheets(valueSheetName).Select Sheets(readmeSheetName).Visible = False End Sub 阅读全文

摘要： 1 '模板对应信息 2 Function getExportCell(exportCell As TypeValueCell) 3 If exportCell.cellName = "" Then 4 Return 5 End If 6 Dim columnName As String 7 columnName = expo... 阅读全文