Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Ошибка 400 в vba, Возникает ошибка 400 при работе макроса, который делит файл
 
Уважаемые формучане, появилась ошибка 400 при работе макроса. Макрос делит один большой файл с кучей информации на много(14) файлов по необходимым параметрам и сохраняет в указанную папку. Прдеположительно, на втором шаге происходит ошибка. Но вроде все там в порядке. С чем может быть свзяана ошибка? Гугл фактически не дал ответа((

П.С Второй шаг прилагается
Step2:

Set wb3 = Workbooks.Add
For i = 2 To k
Branch(i) = wb1.Sheets(1).Cells(i, 3).Value
Channel(i) = wb1.Sheets(1).Cells(i, 4).Value
wb2.Sheets(1).Activate
wb2.Sheets(1).Range("A1:BR50000" ;) .Select
Selection.AutoFilter Field:=bran_fil, Criteria1:=("*" & Branch(i) & "*" ;)
Selection.AutoFilter Field:=chan_fil, Criteria1:=("*" & Channel(i) & "*" ;)

If i = 2 Then
Range("A1:BR50000" ;) .Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
wb3.Sheets(1).Activate
Range("a1" ;) .Select
Selection.PasteSpecial (-4104)
Selection.AutoFilter
Selection.EntireColumn.AutoFit
ActiveWindow.Zoom = 85
With Range("1:1" ;) .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
Else
Range("A2:BR50000" ;) .Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
wb3.Sheets(1).Activate
For m = 2 To 50000
If Cells(m, 1) = "" Then
f = m
GoTo Step3
End If
Next m
Изменено: Serega90 - 16 Май 2013 00:25:34 (Тема закрыта)
 
Проблема решилась путем запуска файла с макросом из той же папки,в которой лежит массив на разделение. Но почему он выдает ошибку если макрос находится в другом месте нежели массив, пока не ясно:(
 
Не поверите - для нас тоже. Особенно если учесть, что нам Вы привели именно тот кусок, в котором ошибки нет. А возникает ошибка, наверное, на строке типа:
Код
Workbooks.Open thisworkbook.path & ....
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему (гостей: 1)
Наверх