ブック名の変更の問題

Question

以下は私のマクロコードです。そのファイルの名前をエクスポートするダンプが毎回変更されるたびに1つの問題が発生します。

終了番号が常に変更されます："SECONDARY MIS MODULE (11)"、"SECONDARY MIS MODULE (12)"を、など

Sub MySub 
    a = 6 
    b = 2 

    Do While Workbooks("segment.xlsm").Worksheets("Sheet4").Cells(b, 1) <> "" 
     Z = WorksheetFunction.SumIf(Workbooks("SECONDARY MIS MODULE (11).xlsx").Worksheets("SECONDARY MIS MODULE (11)").Range("B5:K5"), _ 
      "FRANCHISEE DEVELOPMENT", Workbooks("SECONDARY MIS MODULE (11).xlsx").Worksheets("SECONDARY MIS MODULE (11)").Range(Cells(a, 2), Cells(a, 11))) 

     x = Application.SumIf(Workbooks("SECONDARY MIS MODULE (11).xlsx").Worksheets("SECONDARY MIS MODULE (11)").Range("B5:K5"), _ 
      "PRIVATE WEALTH GROUP", Workbooks("SECONDARY MIS MODULE (11).xlsx").Worksheets("SECONDARY MIS MODULE (11)").Range(Cells(a, 2), Cells(a, 11))) 

     Workbooks("segment.xlsm").Worksheets("Sheet4").Cells(b, 13).Value = x + Z 
     a = a + 1 
     b = b + 1 
    Loop 
End Sub 

Answer 1

私が正しくあなたを理解する場合は、複数のワークブック/ワークシートにこのコードを適用することができるようにしたいです。

Sub MySub(wbName As String, wsName As String) 
    a = 6 
    b = 2 

    Do While ' ...... 
     Z = WorksheetFunction.SumIf(Workbooks(wbName).Worksheets(wsName).Range("B5:K5"), _ 
      "FRANCHISEE DEVELOPMENT", Workbooks(wbName).Worksheets(wsName).Range(Cells(a, 2), Cells(a, 11))) 
     ' 
     ' 
     ' 
    Loop 
End Sub 

使用法：

For i = 11 To 15 
    MySub "SECONDARY MIS MODULE (" & i & ").xlsx", "SECONDARY MIS MODULE (" & i & ").xlsx" 
Next 

---

更新1：あなたは、単にあなたのメソッドのパラメータとしてワークブック名​​および/またはワークシート名を追加することができます

もしあなたドンワークブック名​​の数値部分を知っていない場合は、実際のワークブック名​​、何かを返すヘルパー関数を書くことができます

Function GetWorkbookNameByPartial(pattern As String) As String 
    For Each wb In Workbooks 
     If wb.Name Like pattern Then 
      GetWorkbookNameByPartial = wb.Name 
      Exit Function 
     End If 
    Next 
End Function 

使用法：

Dim wbName As String 
wbName = GetWorkbookNameByPartial("SECONDARY MIS MODULE (*).xlsx") 
If Len(wbName) > 0 Then 
    MySub wbName, wbName ' Only if worksheet name matches workbook name. 
         ' Otherwise, you will need to change worksheet name. 
End If 

希望に役立ちます:)私は理解していないことを確認