在另一個工作簿中根據單元格值運行過程

Question

我有六種不同的形式，它們都包含相同的信息但位於不同的位置。這些表格是由其他方發給我的，一旦我收到它們，我打開文件，確定我正在處理的表格，然後運行相應的轉換宏將信息上傳到我的彙總工作簿。

我希望能夠檢查單元格B4，B8，B10，B15和B20以確定我正在處理的格式，然後讓它自己運行適當的換位宏。

有人可以幫我設置它嗎？

現在，我有以下幾點：

​​

我怎麼說，如果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 

如果你有很多這種類型的檢查來進行的，那麼你可以考慮使用「元數據驅動」方法，您在工作表上列出範圍和相應的內容，並循環該信息以檢測報告的類型。一旦你建立起來，這將是更多的預先編碼，但更容易進行持續維護。