Set wb = ActiveWorkbook Set sh = ActiveWorkbook.ActiveSheet LastCell = sh.UsedRange.Rows.Count
For rr = 2 To LastCell If sh.cells(rr, "G") = "" Then If sh.cells(rr, "B") <> "" Then 'что бы столбец с именем файла не был пуст filee = sh.cells(rr, "B").Value & ".xls"
Set wb2 = Workbooks.Open("C:\Users\Admin\Documents\Таможня\2-й этап\База\" & filee) Set sh2 = wb2.Sheets(1) iET = sh2.cells(Rows.Count, 63).End(xlUp).Row sum1 = WorksheetFunction.Sum(sh2.Range("CS2").Resize(iET - 1, 1)) sum2 = WorksheetFunction.Sum(sh2.Range("CZ2").Resize(iET - 1, 1))
sh.cells(rr, "G") = sum1 sh.cells(rr, "I") = sum2 wb2.Close False End If End If Next
[/vba]
Данная часть берет сумму по столбцу из другого файла и помещает ее в соответствующую ячейку.
1. В файле 1 макрос срабатывает, но, почему-то берет сумму только по 662 ячейкам столбца? В чем причина, почему он не показывает сумму по всему столбцу?
2. При работе со вторым файлом вылезло сообщение Runtime error 1004: application-defined or object-defined error? В чем может быть причина?
Добрый день!
Вылезли две ошибки. Есть такая часть макроса:
[vba]
Код
Set wb = ActiveWorkbook Set sh = ActiveWorkbook.ActiveSheet LastCell = sh.UsedRange.Rows.Count
For rr = 2 To LastCell If sh.cells(rr, "G") = "" Then If sh.cells(rr, "B") <> "" Then 'что бы столбец с именем файла не был пуст filee = sh.cells(rr, "B").Value & ".xls"
Set wb2 = Workbooks.Open("C:\Users\Admin\Documents\Таможня\2-й этап\База\" & filee) Set sh2 = wb2.Sheets(1) iET = sh2.cells(Rows.Count, 63).End(xlUp).Row sum1 = WorksheetFunction.Sum(sh2.Range("CS2").Resize(iET - 1, 1)) sum2 = WorksheetFunction.Sum(sh2.Range("CZ2").Resize(iET - 1, 1))
sh.cells(rr, "G") = sum1 sh.cells(rr, "I") = sum2 wb2.Close False End If End If Next
[/vba]
Данная часть берет сумму по столбцу из другого файла и помещает ее в соответствующую ячейку.
1. В файле 1 макрос срабатывает, но, почему-то берет сумму только по 662 ячейкам столбца? В чем причина, почему он не показывает сумму по всему столбцу?
2. При работе со вторым файлом вылезло сообщение Runtime error 1004: application-defined or object-defined error? В чем может быть причина?Влад777
_Boroda_, Там, где выдает ошибку - заполненных ячеек нет...Я понял...Подскажите логику связи 63 столбца...При подсчете суммы он ориентируется на него (зачем :(?)? А можно избавится от такой связи? Или легче задать столбец, где по умолчанию есть все записи?
_Boroda_, Там, где выдает ошибку - заполненных ячеек нет...Я понял...Подскажите логику связи 63 столбца...При подсчете суммы он ориентируется на него (зачем :(?)? А можно избавится от такой связи? Или легче задать столбец, где по умолчанию есть все записи?Влад777