创build新的Excel文件时，将.clsmacros导入到Sheet1中

我正在运行基于单元格更改的背景macros。 当我创build一个新文件时，我想创build一个macros，用我的后台macros导入.csl文件来replace“Microsoft Excel对象”中的“Sheet1”。 我search了网页，但我似乎无法find适合我的问题的解决scheme。 现在我只是每次打开一个新文件时将代码复制并粘贴到Sheet1中，但是这有点麻烦。

我想要移动的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 Then If InStr(1, Range(Cells(Target.Row, Target.Column - 1), Cells(Target.Row, Target.Column - 1)).Value, "pos from Rapid") Then If Not IsEmpty(Target.Value) Then Application.DisplayAlerts = False Range(Target.Address).Select Selection.TextToColumns Destination:=ActiveCell.Offset(0, 3).Range("A1"), _ DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=False _ , Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:= _ False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), DecimalSeparator _ :=".", TrailingMinusNumbers:=True Application.DisplayAlerts = True Else Range(Cells(Target.Row, Target.Column + 3), Cells(Target.Row, Target.Column + 5)).Value = "" End If End If End If End Sub 

Answer 1

我敢肯定，你想要做什么是可能的，但是，为了简单起见，我build议开始一个新的，空的Excel工作簿，导入您的.cls文件，然后File | Save As File | Save As一个像My Classy Workbook的名称，并将Save As Type设置为Excel Macro-Enabled Template (*.xltm) 。 注意：在保存文件时要注意，因为Excel想把所有的模板都放在默认的模板目录中 – 如果你想把它放在其他地方，你必须重写目录位置。

然后，当你需要一个带有类的新工作簿时，只需打开你的模板，Class模块就已经在那里了。 这还有一个好处，就是打开模板的副本 （默认情况下命名为“ 我的优等工作簿1.xlsm” ），所以您在新文件中执行的任何其他工作都不会覆盖原始模板。

打开模板（预装类）将直接从Windows资源pipe理器或VBA代码内工作。

如果您需要自己编辑模板（例如修复或更新类文件），则可以在Windows资源pipe理器中right-click该文件，然后selectOpen 。 否则，您只需获取模板的副本即可工作。