Vba перемещает первую строку в excel

@df_ · Регистрация: 17.03.2015

Author24 — интернет-сервис помощи студентам

Прошу помощи в вопросе. Есть большая таблица в excel, около 200 тыс. строк, по которой ежедневно нужно выводить журнал в отдельный файл. Я написал макрос, все работает, но при одних и тех же данных первая строка с названиями столцов может переместиться после выполнения макроса куда-нибудь в середину таблицы. Исходную таблицу код только считывает, но не должен менять. Может кто знает возможную причину?

В начале кода идет объявление переменных, поиск индекса необходимых столбцов по их названию (т.к. могут меняться) и цикл по отфильтрованному диапазону. В цикле необходимые данные выводятся в другую рабочую книгу.
Макрос в приложении. MS Office 2010

shanemac51 · 05.08.2015, 21:09

Visual Basic

1	Set cel = Log.Rows(1).Cells.Find("ISO", , , xlWhole)

не нашла , что такое Log
макрос работать не хочет
а угадывать, что должно сформироваться --не хочется

=========
видимо не помешало бы приложить ексель файл
зазипуйте, чтобы не ругался интернет

@df_ · 05.08.2015, 21:17 **[ТС]**

Прошу прощения, упустил. Log страница исходной книги.

Visual Basic

Set jur_wb = Workbooks.Open(ThisWorkbook.Path & "\ab\a.xlsx")
Set jur = jur_wb.Sheets(1)
Set wm = ThisWorkbook.Sheets("WM")
Set welders_list = ThisWorkbook.Sheets("welders_list")
Set log = ThisWorkbook.Sheets("VCC LOG")
Set pwht = ThisWorkbook.Sheets("pwht")
Set style = ThisWorkbook.Sheets("style")

@df_ · 05.08.2015, 21:28 **[ТС]**

Полная таблица слишком большая, около 400 МБ, да и данные к сожалению не смогу скинуть, т.к. информация закрытая. Во вложении небольшой пример исходной таблицы и полный макрос.

@df_ · 30.09.2015, 17:21 **[ТС]**

Вопрос решился после того как переписал полностью макрос. Причину так и не понял.

@Hugo121 · 01.10.2015, 09:03

Потенциально ошибка может скрываться например тут:

Visual Basic

1	xe = wm.Cells(Rows.Count, 4).End(xlUp).Row

Чьи это Rows? И соответственно сколько их?

@df_ · 01.10.2015, 11:30 **[ТС]**

А почему? Там же просто присваивается переменной количество строк в листе wm. А количество около 200 тысяч

@Hugo121 · 01.10.2015, 11:44

Там не указан лист! Поэтому количество возьмётся из активного, а он может быть двух видов!
И раз 200 тысяч, а не 200 - то как раз и может быть брачок.

@df_ · 01.10.2015, 11:49 **[ТС]**

VB.NET

1	xe = wm.Cells

- не означает разве ячейки в листе wm? wm изначально объявлен как лист.

@Hugo121 · 01.10.2015, 12:04

ЯчейкА - да. Но не количество строк.

Добавлено через 8 минут

Visual Basic

1	xe = wm.Cells(Rows.Count, 4).End(xlUp).Row

Напишу код словами:
переменной xe задаём значение строки ячейки листа wm, которая первая занятая вверх от ячейки листа wm с координатами (количество строк, 4)
Количество строк не указано от какого листа брать, значит берём от активного в данный момент.

@df_ 0 / 0 / 0 Регистрация: 17.03.2015 Сообщений: 6
	30.09.2015, 17:21 [ТС]	5
	Вопрос решился после того как переписал полностью макрос. Причину так и не понял. 0

@df_ 0 / 0 / 0 Регистрация: 17.03.2015 Сообщений: 6
	01.10.2015, 11:30 [ТС]	7
	А почему? Там же просто присваивается переменной количество строк в листе wm. А количество около 200 тысяч 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	01.10.2015, 11:44	8
	Там не указан лист! Поэтому количество возьмётся из активного, а он может быть двух видов! И раз 200 тысяч, а не 200 - то как раз и может быть брачок. 0

	01.10.2015, 12:04

Опции темы