标签： VBA

Office菜单栏中英文对照表

获取Excel菜单命令的VBA代码：

Sub ShowInfo()
    '返回菜单命令栏CommandBar的名称
    Dim bar As CommandBar
    Dim i As Integer
    [a1] = "序号": [b1] = "英文名": [c1] = "中文名"
    For Each bar In Application.CommandBars
        With ActiveSheet
            i = i + 1
            .Cells(i + 1, 1) = bar.Index
            .Cells(i + 1, 2) = bar.Name
            .Cells(i + 1, 3) = bar.NameLocal
        End With
    Next
    Cells.EntireColumn.AutoFit '自适应列宽
End Sub
继续阅读“Office菜单栏中英文对照表”

Excel VBA：Range对象

  • Range("ListObjectsName[Title]")
Sub Examples01()
    Dim x As Integer, y As Integer, rngList As Range
    x = Sheet1.UsedRange.Rows.Count
    y = Sheet1.UsedRange.Columns.Count
    Set rngList = Range("A1", Cells(x, y))

    Sheet1.ListObjects.Add(xlSrcRange, rngList, , xlYes).Name = "表1"
    Range("表1[余额]").FormulaR1C1 = "=ROUND(SUM([@收入]-[@支出]),2)"
End Sub
继续阅读“Excel VBA：Range对象”

Excel的数据库查询函数库

更新一下之前写的Excel的数据库类，将其改成函数的形式，调用更简单（省却了生成类实例的步骤）。现在这个代码在工作中用了一年多，已经比较健壮。若有问题，请留言指出或与我联系。

这些代码有如下优势：

  • 无需任何配置。在 VBA 中新建模块，并把代码复制转帖过去即可使用。
  • 有以下函数：执行数据库语句、查询数据库、结果复制到单元格（ Excel 中最常用）、将 Excel 表格上传到数据库。基本覆盖 Excel 中对数据库的常用操作。
  • 会在立即窗口显示数据库错误信息，方便查错。
  • 在数据库连接字符串字典中配好数据库连接信息后，数据库访问时可直接使用配好的链接字符串。
继续阅读“Excel的数据库查询函数库”

封装ADODB数据库查询的Excel VBA类模块

关于Excel操纵数据库可以参考前面文章：如何利用Excel的数据源功能实现多表合并和 SQL 查询以及如何动态修改Excel数据源的数据来源和数据源的查询语句。这里再放出一个我平常使用的封装ADODB数据库查询的Excel VBA类模块。

在使用之前，先需要声明一个类实例：

Dim db as New Database
继续阅读“封装ADODB数据库查询的Excel VBA类模块”