У меня есть список учетных записей и соответствующая информация, которые я должен разделить и отправить определенные учетные записи определенным людям. Это нужно сделать примерно 50 раз. У меня уже есть программа, которая будет фильтровать, копировать данные в новый файл и сохранять. Есть ли способ настроить его для отправки этого файла по списку контактов?Фильтр и электронная почта Файл Excel (VBA)
Каждая учетная запись покрыта областью, поэтому у меня есть список, в котором есть регион и адрес контакта. В макросе, разбивающемся по регионам, у него есть массив этих областей, поэтому возможен какой-то поиск из списка контактов?
Код:
Sub SplitFile()
Dim rTemp As Range
Dim regions() As String
Set rTemp = ThisWorkbook.Sheets("Combined").Range("AH2:AH1455")
regions = UniqueItems(rTemp, False)
For N = 1 To UBound(regions)
Set wb = Workbooks.Add
ThisWorkbook.Sheets("DVal").Copy _
after:=ActiveWorkbook.Sheets("Sheet1")
With ThisWorkbook.Sheets("Combined")
.AutoFilterMode = False
' .AutoFilter
.Range("A1:BP1455").AutoFilter Field:=34, Criteria1:=regions(N)
Application.DisplayAlerts = False
.Range("A1:BP1455").Copy wb.Sheets("Sheet1").Range("A1")
Application.DisplayAlerts = True
For c = 1 To 68
wb.Sheets("Sheet1").Range("A1:BP2694").Columns(c).ColumnWidth = .Columns(c).ColumnWidth
Next c
End With
With wb
.Sheets("Sheet1").Activate
.SaveAs Filename:="H:\" & regions(N) & " 14-12-11"
.Close True
End With
Set wb = Nothing
Next N
End Sub
Удивительно, знаете ли вы, как я могу найти контакт из списка, исходя из того, какой он регион? – postelrich
Можете ли вы опубликовать, как выглядят ваши контакты и список регионов? –
Также ваше динамическое распределение для двух переменных дает мне ошибки, я использую 2007, вот почему? Список контактов - это просто один столбец для региона и один соседний столбец с соответствующим контактом. – postelrich