excel - 创建宏模板以在电子表格上使用

Question

我想知道是否有可能（以及如何）创建一个带有特定宏的 Excel 模板，以便在我们从测量硬件导出的电子表格中自动使用这个宏。

我们将硬件中的测量值导出到 Excel 电子表格中。现在我们必须为每个电子表格编写相同的宏来过滤我们只需要的特定标准。

所以我们想要一个保存有这个宏的 Excel 模板，从我们的硬件中导入 Excel 电子表格，这样它每次都会自动过滤条件，所以我们可以立即使用它。

我们该如何安排呢？

Answer 1

如果假设您的测量硬件总是产生相同的输出文件名......

• 1 - 您可以拥有一个带有导入和过滤数据文件的宏的模板。在这种情况下，带有宏的文件不会作为模板服务器

子加载数据表（）

Dim sWbkPath As String
sWbkPath = "PATH_TO_FILE\" & "FILE_NAME"

Dim wbkData As Workbook
Set wbkData = Workbooks.Open(sWbkPath)

DataFilteringMacro wbkData 'or sheet

结束子

• 2 - 您可以有一个仅在数据文件打开时显示功能区的插件

在“ThisWorkbook”模块中...

Dim WithEvents 应用程序作为应用程序

私有子 Workbook_Open()

Set App = Application

结束子

Private Sub App_WorkbookActivate(ByVal Wb As Workbook)

'...
'if using a ribbon, you could put the code in the "GetVisible" callback
'and invalidate the ribbon in the App_WorkbookActivate()
'bVisible is the value set in the ribbon callback

Dim wbk As Workbook
Set wbk = ActiveWorkbook

If wbk.Name = "FILE_NAME" Then

    'bVisible = True 'the data file was loaded

Else

    'bVisible = False 'another file was loaded

End If

结束子