标签： VBA

Excel SQL查询中“表”技巧总结

HI，大家好，我是星光。上期我们聊了SQL常用查询语句中的字段查询，其简化版语法如下：

SELECT 字段名 FROM 表名

当场我就……小声说了，关键字FROM指明了要获取字段信息的表名。倘若数据源是Excel表格，则需要在表名后增加美元符号$，并用中括号包起来，例如[Sheet1$]……

事实上，上述例子是SQL In Excel 对工作表引用最简单的一种情况，也就是整表引用；此外还有单元格区域引用、跨工作簿引用等。

所以咱们今天就再来集中聊一下SQL语句中的Excel表。

继续阅读“Excel SQL查询中“表”技巧总结”

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的数据库查询函数库”