Excel VBA在工作表中循环并根据单元格范围保存每个循环文件

Question

任何人，

我正在尝试在 excel vba 中创建一个程序，其中宏将根据 excel 范围在工作簿中查找/循环查找工作表名称。此外，在查找工作表名称后，程序将根据给定文件名将工作表保存在另一个单元格区域中。

我的主要问题是如何根据下面提供的图片中给出的区域名称保存循环文件/工作表名称。

希望你能帮我解决我的问题。

这是我最近在宏上的工作，我可以保存文件，但它会根据我查找的工作表名称保存文件。谢谢。 sample picture here

Sub Save_Test()
Dim ws As Worksheet
Dim wb As Workbook
Dim c, b As Range
Dim rng, rng2 As Range
Dim mysheet As Worksheet
Dim LastRow, LastRow2 As Integer
Dim file_name As String

LastRow = Range("I" & rows.Count).End(xlUp).row

Set rng = Range("J5:J" & LastRow)



Set ws = Worksheets("Control")
For Each c In rng

    Sheets(c.Value).Select
    Cells.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Application.DisplayAlerts = False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    ActiveSheet.Name = c.Value
    Application.CutCopyMode = False
    ActiveWindow.DisplayGridlines = False
    TemplateLocation = ThisWorkbook.Path

    file_name = c.Value
    ActiveWorkbook.SaveAs Filename:=TemplateLocation & "\" & "Reports" & "\" & Format(Now() - 1, "mmyy") & " " & file_name & " Hustle Board thru " & Format(Now() - 1, "mm-dd-yy"), FileFormat:=51, CreateBackup:=False

    Application.DisplayAlerts = False
    ActiveWindow.Close

Next
Sheets("Control").Select
End Sub

Answer 1

您必须填写您需要做的其他事情，但是关闭您的图片并编写代码，这应该会为您提供teritory 列中的值

  Dim r As Range
  Dim rng As Range
  Dim LastRow As Long
  Dim ws As Worksheet

  LastRow = Range("I" & Rows.Count).End(xlUp).Row

  Set rng = Range("J5:J" & LastRow)      
   For Each r In rng

        file_name = r.Offset(, -1)
          ActiveWorkbook.SaveAs Filename:=TemplateLocation & "\" & "Reports" & "\" & Format(Now() - 1, "mmyy") & " " & file_name & " Hustle Board thru " & Format(Now() - 1, "mm-dd-yy"), FileFormat:=51, CreateBackup:=False

   Next r
End Sub

顺便说一句，如果你还不知道的话，像下面这样声明变量不是好的做法。

Dim rng, rng2 As Range

在这种情况下，rng 此时不是 rng。您需要在下面执行此操作以显式声明为Range 变量。

Dim rng as Range, rng2 As Range