XLA文件使用小談

http://www.cnblogs.com/heekui/archive/2006/11/30/577691.html

最近在寫EXCEL工具時，聽從他人的建議採用了Excel本體與VBA宏分離的方式。這樣使得做成的Excel模板如果已經填充了內容，再要使用更改後VBA程序進行處理時變得簡單。避免了需要把已存在的Excel裏面的內容拷貝到新的Excel模板中的麻煩。

全過程如下
       1 建立Excel的模板
       2 VBA編輯器中插入一個模塊，把處理代碼寫在裏面。
       3 VBA編輯器中，ThisWorkBook中，添加標題欄Tab增加事件
       4 代碼完成，測試通過後。文件——另存爲——( .xla類型 )
       5 刪除模板中 ThisWorkBook 中的代碼 和 模塊
       6 ok!大功告成。這兩個東西可以發佈了（一個Excel模板文件,一個xla文件）

 XLA文件的使用
       1 模板Excel文件中 填入需要處理的內容
       2 點擊 xla 文件，此時在模板 Excel文件的標題欄上會增加標題，然後可執行其中的事件，即可完成業務處理的功能

小技巧
ThisWorkBook——標題欄Tab增加事件代碼
 

Private Sub Workbook_Open()
    Dim TargetBar   As CommandBar
    Dim NewMenu     As Object
    Dim NewItem     As Object
    Dim NewMenuTemp As Object

    Set TargetBar = Application.CommandBars("Worksheet Menu Bar")
    TargetBar.Visible = True
    
    For Each NewMenuTemp In TargetBar.Controls
        If NewMenuTemp.Caption = "資源文件生成工具" Then
            Exit Sub
        End If
    Next
    
    Set NewMenu = TargetBar.Controls.Add(Type:=msoControlPopup, ID:=1, Temporary:=True)
    NewMenu.Caption = "資源文件生成工具"
    Set NewItem = NewMenu.Controls.Add(Type:=msoControlButton, ID:=1, Temporary:=True)
    NewItem.Caption = "執行"
    NewItem.OnAction = "MakeResourceFile.MakeFile"
    
    Exit Sub
End Sub

使用指定名Sheet內容的函數方法
Function MakeTableSql(sheetName As String) As String

附加示例：.net 資源文件生成器
link