二、Excel模板中宏的实现
1丄 在Excel文件打开时，自动执行数据读取处理
Private Sub Workbook_Open()
        Call GetData
End Sub
2丄 数据读取函数MdlDownload. GetData
Option Explicit
Private Const DATA_SHEET = "HaPiNS"     'Sheet 名
Private Const SERVER_URL = "http://127.0.0.1/dpms/csv/" 'Web服务器csv目录地址

Public Sub GetData()
    Dim oldStatusBar    As Boolean
    Dim strCsvName      As String
    Dim thisFilename    As String   '文件名

    On Error GoTo ErrProc
    Application.Cursor = xlWait
    blnCsvOpen = False
   
    oldStatusBar = Application.DisplayStatusBar
    Application.DisplayStatusBar = True
    Application.StatusBar = "从服务器上读取数据中..."

    ‘CSV文件名取得
thisFilename = ThisWorkbook.Name
    strCsvName = Replace(thisFilename, ".xls", "")
    Application.ScreenUpdating = False

    ''CSV文件打开
    Workbooks.OpenText (SERVER_URL & strCsvName & ".csv")
    blnCsvOpen = True
    '将CSV文件内容拷贝到Excel文件的一个Sheet
    Application.DisplayAlerts = False
    Sheets(strCsvName).Select
    Sheets(strCsvName).Copy Before:=Workbooks(thisFilename).Sheets(1)
   
    ''CSV文件关闭
    Windows(strCsvName & ".csv").Close
    blnCsvOpen = False
   
    '解析数据内容
    Windows(thisFilename).Activate
    Sheets(strCsvName).Select
    ‘ 将数据导入，生成报表(省略)
    ………………………………………………………
    ……………………………………………………..
    ''CSV内容删除
    Sheets(strCsvName).Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    Application.StatusBar = "数据读取完了"
    Application.DisplayStatusBar = oldStatusBar
    Application.ScreenUpdating = True
    Application.Cursor = xlDefault
    Exit Sub
ErrProc:
    If blnCsvOpen = True Then
        Windows(strCsvName & ".csv").Close
    End If
    If Err.Number <> 0 Then
        MsgBox ("数据读取出错" & vbCrLf & _
            "错误号：" & Err.Number & vbCrLf & "错误内容：" & Err.Description)
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Cursor = xlDefault
End Sub