Watson的专栏

Public Sub Filter()' sheet1 是从乾坤里导出的总表' sheet2 是自己维护的已经开票的提单号' 此函数是用来自动筛选已经开票的提单号，如果已经开票则在sheet1的S列的值为 1 ，否则为 0' 只要把已经开票的提单号拷贝到sheet2 的E列就可以了，sheet1 从乾坤导出来的格式不变化，唯一要做的就是在sheet1里的S列添加一个标题filter

Public Sub DoFilter2()' 按照发票号码做匹配，重新生成一个明细的表格，本例子的模板是Sheet9 和 Sheet13'Sheet9  是明细，Sheet13 是汇总的， 需要从这个两个Sheet里重新提取数据到一个新的Sheet14里    'If Workbooks(1).Worksheets("sheet1") Is Nothing Then 

Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用Dim CnStr As String, Sql As String

'Excel的VBA连接数据库方法Public Sub GetData()     Dim strConn As String, strSQL As String     Dim conn As ADODB.Connection     Dim ds As ADODB.Recordset     Dim col As Integer         ''清空电子

VBA连接SQL SERVER数据库操作Excel。Sub 按钮1_Click()    Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表    'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；

用EXCEL维护了写字楼的租赁情况，需要用BI工具分析，于是就写了个VBA进行分析。Sub Rental_Click()'判断变量的类型函数'VarType = TypeName("fafafas")'第一步拷贝EXCEL标题 Sheet2.Activate Sheet2ColumnCount = Sheet2.UsedRange.Columns.Count