根据另一个工作簿中的单元格值运行一个过程

Question

我有六种不同的形式，所有形式都包含相同的信息，但是位置不同。 这些表单是由其他方发送给我的，当我收到它们后，我打开文件，确定要处理的表单，然后运行适当的转置宏将信息上载到我的摘要工作簿中。

我希望能够检查单元格B4，B8，B10，B15和B20，以确定我要处理的是哪种形式，然后自行运行适当的转置宏。

有人可以帮我设置这个吗？

现在，我有以下内容：

' I use the file path to identify the form that I want to copy information from
Dim FilePath As String
Dim InputTemplate As Workbook
Dim UploadForm As Workbook
Dim Analysis As Worksheet
Dim supplierdata As Worksheet
Dim TemplateType

Set UploadForm = ActiveWorkbook
FilePath = UploadForm.Sheets("Summary").Range("D4").Value
Set InputTemplate = Workbooks.Open(FilePath)
Set Analysis = UploadForm.Sheets("Analysis")
Set supplierdata = InputTemplate.Sheets("Supplier Input Template")

我怎么说，如果B4.value =公司名称，B8.value =日期，B10.value =货币...，然后运行正确的转置宏？

Answer 1

您能做到的最精简的可能是：

'....
Set supplierdata = InputTemplate.Sheets("Supplier Input Template")

With supplierdata.Columns(2) 
    If .Cells(4).value = "Company Name" And .Cells(8).Value="Date" _
       And .Cells(10).Value = "Currency" Then

        'handle this type of form 

    End If


End With

如果要执行许多此类检查，则可以考虑使用“元数据驱动”方法，在该方法中，您可以在工作表上列出范围和相应的内容，然后遍历该信息以检测报告的类型。 设置好代码后，可以进行更多的前期编码，但更容易进行后续维护。