Здравствуйте.
Помогите пожалуйста подкорректировать макрос. Макрос рабочий, но нужны некоторые изменения. Я в этом вообще ноль.
Макрос суммирует ячейки (в даном случае F9) во всех файлах в папке, которая указывается после запуска макроса.
Что хочеться изменить:
1. Чтоб вместо ручного ввода адреса ячейки в макрос (F9), после запуска макрос суммировал ячейки на которой стоит курсор.
2. Чтоб каждый раз не выбирать папку, а прописать в макросе адрес папки.
Заранее благодарен за помощь
Помогите пожалуйста подкорректировать макрос. Макрос рабочий, но нужны некоторые изменения. Я в этом вообще ноль.
Макрос суммирует ячейки (в даном случае F9) во всех файлах в папке, которая указывается после запуска макроса.
Что хочеться изменить:
1. Чтоб вместо ручного ввода адреса ячейки в макрос (F9), после запуска макрос суммировал ячейки на которой стоит курсор.
2. Чтоб каждый раз не выбирать папку, а прописать в макросе адрес папки.
| Код |
|---|
Sub Test()
Dim myPath As String, myName As String, Wb As Workbook, iSum As Single
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Укажите рабочую папку"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myPath = .SelectedItems(1) & Application.PathSeparator
End With
myName = Dir(myPath & "*.xlsx")
'цикл по всем файлам указанного типа
Do While myName <> ""
'открываем очередной файл в режиме "Только для чтения" и присваиваем его переменной
Set Wb = Workbooks.Open(Filename:=myPath & myName, ReadOnly:=True)
'делаем что надо
iSum = iSum + Workbooks(Wb.name).Worksheets("Лист1").Range("F9").Value
'закрываем файл не сохраняя изменений в нём
Wb.Close SaveChanges:=False
'определяем имя следующего файл в указаной директории
myName = Dir
Loop
ActiveCell.Value = iSum
End Sub |
