VBA: EXCEL通过DDE通讯读取数据生成报表

1. Excel2003下的VBA编程，和语法结果VB6.0一样，可以说是vb6的子集。

2. 编程环境：office2003下的 “visual basic 编辑器”。

3. 完整代码：请从资源中下载。

4. 窗口设计截图如下：

5. 部分代码示例：

Option Explicit

Private Sub UserForm_Initialize()
    Dim iYear As Integer
    Dim iMonth As Integer
    Dim iDay As Integer
    iYear = Year(Now)
    iMonth = Month(Now)
    iDay = Day(Now)

    If iYear > 2010 Or iYear < 2005 Then
        LabYear.Caption = "2005"
        LabMonth.Caption = "1"
        LabDay.Caption = "1"
        
        SpinButtonYear.Value = 2005
        SpinButtonMonth.Value = 1
        SpinButtonDay.Value = 1
    End If

    LabYear.Caption = iYear
    LabMonth.Caption = iMonth
    LabDay.Caption = iDay

    Spin