簡體   English   中英

我將其插入新工作簿后,Excel模板的VBA代碼不起作用

[英]Excel template's VBA code not working after I insert it into a new workbook

我創建一個具有固定格式和VBA存儲的Excel模板。

每當我將Excel模板插入新工作簿時,VBA代碼都不會遵循並應用。 僅遵循格式。

有人知道為什么嗎?

這是存儲在Template.xltm中的代碼。 在本工作簿下

Sub Auto_Open()

Workbooks.Open Filename:="C:\Users\ASUS User\Desktop\MP\source.xlsm"
ThisWorkbook.Activate


End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Columns(2).AutoFit
Rows().AutoFit
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wBook As Workbook
On Error Resume Next
Set wBook = Workbooks("source.xlsm")

If wBook Is Nothing Then
'The Workbook Is Not open'
' Nothing to do as workbook is not open
Set wBook = Nothing
On Error GoTo 0
Else 'Workbook is open
' Close the workbook and save any changes
Workbooks("source.xlsm").Close SaveChanges:=True
Set wBook = Nothing
On Error GoTo 0
End If
End Sub

excel宏中的VBA代碼是否啟用模板?

您需要確保將工作簿另存為啟用了宏的模板,文件擴展名為.xltm而不是標准的.xltx模板擴展。

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM