在Excel中運行宏

Question

從技術上講，我不認為這是一個宏，但是我不知道該怎么稱呼它：

用戶希望從工作表上的報告中打印各個部分。 這些部分僅稱為范圍。

一些要點：

• 該文件是xlt文件。
• 它用作生成xls文件的模板。
• 我正在使用Excel 2007，但用戶將同時運行2007和2003。
• 當文件加載到excel中時，詢問我是否要啟用所有宏，然后確認。
• 它正在調用的函數是公共的

我在工作表邊緣創建了一系列按鈕：

        ' in a loop    
        With ActiveSheet.Buttons.Add(rngCurrent.Left + 2, rngCurrent.Top + 1, rngCurrent.Width - 2, rngCurrent.Height - 1)
            .Caption = "Print"
            .OnAction = "PrintRange"
            .Font.Size = 7
            .Name = CStr(oSite.SiteID)
        End With

但是，當我單擊該按鈕時，它顯示為“無法運行宏'filename.xls！PrintRange”。

當循環位於名為modPage的模塊中時，PrintRange函數位於工作表shtPage中。

為什么我不能調用所需的函數，如何使它起作用？

Answer 1

即使您將PrintRange子聲明為Public，您仍需要更具體地引用它，以便Excel可以找到它，因為您已將其放在工作表的代碼部分而不是模塊中。

更改：

.OnAction = "PrintRange"

至

.OnAction = "shtPage.PrintRange"

它會很好地工作。

警告：如果已將頁面選項卡上的工作表重命名為“ shtPage”，但是在VBA項目瀏覽器中，Excel仍將工作表稱為“ Sheet1（shtPage）”，則需要使用“ Sheet1”名稱Excel不能識別頁面選項卡上顯示的'shtPage'名稱。

Answer 2

您是否公開了PrintRange宏？ 它需要定義如下：

Public Sub PrintRange
    '// ...'
End Sub