Wind Excel Vba

Wind Excel插件 & VBA插件 技能手册

来源：Wind官方 Excel插件手册 + VBA插件手册 更新：2026-04-03 适用：Windows + Excel + Wind金融终端

一、Excel插件（直接在单元格中使用）

1.1 启用条件

• 登录 Wind 金融终端
• 打开 Excel，顶层菜单出现「Wind」菜单项
• 如未出现：Wind终端 → "工具"菜单 → "修复Excel" → 自动安装

1.2 函数表达式结构

=函数名(代码, 日期, 报告期, 类型参数, 指标编码)

命名逻辑： 品种*指标类*指标名称

示例：

• 股票>>财务分析>>每股收益 → S_Ratio_EPS(600000.SH, 20051231, 1)
• 指数>>行情>>收盘价 → I_DQ_Close(000001.SH, 20061231)

1.3 参数说明

日期格式示例：

整型：=S_DQ_Close(600000, 20061231)      ✓ 可直接引用
字符串：=S_DQ_Close(600000, "2006/12/31")  ✓ 需双引号

WindCode、ItemsCode、ReportDate 必须设置；Date 默认为当前机器日期，Type 默认为1

1.4 多值函数（核心！）

Excel插件支持 WSD/WSI/WST/WSS 等多值函数，专门解决批量数据提取性能问题。

WSD — 日时间序列（历史K线，最常用）

=WSD("600519.SH", "close;volume", "2024-01-01", "2024-12-31", "PriceAdj=F")

• 支持单品种多指标或多品种单指标
• Options：PriceAdj=F/B/T（前复权/后复权/定点复权）

WSS — 日截面数据（某时点多个指标）

=WSS("600519.SH,000001.SZ", "eps_basic;roe;pb", "rptDate=20241231")

WSI — 分钟序列

=WSI("600519.SH", "open;high;low;close", "2024-01-01 09:30:00", "2024-01-01 15:00:00", "BarSize=1")

WSQ — 实时行情

=WSQ("600519.SH", "rt_last;rt_vol;rt_chg")

WSET — 数据集报表

=WSET("sectorconstituent", "date=20240101;sectorid=1000000090000000")

用于获取板块成分、指数成分、ETF申赎成分等。

EDB — 宏观经济数据

=EDB("S0031550", "2016-01-01", "2016-02-29", "Fill=Previous")

1.5 其他功能模块

1.6 实用工具

• 格式设置 — 预设色彩面板，快速设置文字颜色/填充色/边框
• 自动着色 — 根据内容自动识别并着色单元格
• 函数追踪 🔥🔥 — 追踪公式引用/从属关系
• 截图识别 🔥🔥🔥 — AI识别截图中的文本和表格

1.7 Excel插件常见问题

二、VBA插件（程序化调用）

2.1 安装

1. 关闭 Excel
2. Wind终端 → "我的"菜单 → "修复插件" → "修复VBA插件"
3. 需管理员权限
4. Wind终端必须安装在无中文路径下

2.2 启用VBA

1. Excel → ALT+F11 进入VBE
2. 插入 → 模块
3. 工具 → 引用 → 勾选「WindVBA」
4. 如未找到，浏览添加：C:\Wind\Wind.NET.Client\WindNET\DataBrowse\XLA\WindVBA.xla

2.3 连接与断开

' 建立连接（必须先调用）
Call vba_start
' 返回0表示成功，非0为错误码

' 判断连接状态
vba_IsConnected  ' 返回 True/False

' 根据错误码查错误信息
vba_getErrorMsg(errcode)

' 停止使用（建议调用）
Call vba_end

2.4 VBA函数速查

2.5 VBA代码模板

WSD（日序列）

Dim w_wsd_data As Variant
Dim w_wsd_codes As Variant, w_wsd_fields As Variant, w_wsd_times As Variant
Dim w_wsd_errorid As Long

w_wsd_data = vba_wsd("600000.SH", "close,volume", _
    "2013-07-31", "2013-08-30", _
    "TradingCalendar=LSE", _
    w_wsd_codes, w_wsd_fields, w_wsd_times, w_wsd_errorid)

返回三维数组：第一维=指标，第二维=windcode，第三维=时间

WSS（截面数据）

Dim w_wss_data As Variant
Dim w_wss_codes As Variant, w_wss_fields As Variant, w_wss_times As Variant
Dim w_wss_errorid As Long

w_wss_data = vba_wss("000001.SZ,000002.SZ", _
    "regcapital,founddate,close", _
    "unit=1;tradeDate=20130902;priceAdj=U;cycle=D", _
    w_wss_codes, w_wss_fields, w_wss_times, w_wss_errorid)

WSQ（实时快照）

Dim w_wsq_data As Variant
Dim w_wsq_codes As Variant, w_wsq_fields As Variant, w_wsq_times As Variant
Dim w_wsq_errorid As Long

w_wsq_data = vba_wsq("000001.SZ,000002.SZ", "rt_time,rt_last,rt_latest", _
    "", w_wsq_codes, w_wsq_fields, w_wsq_times, w_wsq_errorid)

WSQ（订阅模式）

' 回调函数定义
Sub wsqcallback(vret, codes, indics, times As Variant, _
    ByVal reqid As Long, ByVal errcode As Long)
    ' 处理实时数据
End Sub

w_wsq_data = vba_wsqSubscribe("000001.SZ,000002.SZ", "rt_time,rt_last", _
    AddressOf wsqcallback, w_wsq_errorid)

' 取消订阅
vba_cancelSubscribe(subID)

WSET（板块成分）

Dim w_wset_data As Variant
Dim w_wset_codes As Variant, w_wset_fields As Variant, w_wset_times As Variant
Dim w_wset_errorid As Long

w_wset_data = vba_wset("sectorconstituent", _
    "date=2017-07-16;sectorid=1000000090000000", _
    w_wset_codes, w_wset_fields, w_wset_times, w_wset_errorid)

EDB（宏观数据）

Dim w_edb_data As Variant
Dim w_edb_codes As Variant, w_edb_fields As Variant, w_edb_times As Variant
Dim w_edb_errorid As Long

w_edb_data = vba_edb("S0031550", "2016-01-01", "2016-02-29", _
    "Fill=Previous", w_edb_codes, w_edb_fields, w_edb_times, w_edb_errorid)

交易登录

Dim Data As Variant
Dim Fields As Variant
Dim ErrorCode As Long

Data = vba_tlogon("0000", "", "W081757301", "******", "SHSZ", "", Fields, ErrorCode)

2.6 VBA常见问题

三、日期宏说明

通用日期宏

特殊日期宏

日期运算

ED-10d        （当前最新日期前推10天）
-10TD        （前推10个交易日）
StartDate='-1M'; EndDate=''   （起始1个月前，截至今天）

四、证券代码参考

五、Excel插件 vs VBA插件 对比