Импортируйте csv, чтобы преуспеть с заголовками в последней строке

Question 1

У меня есть ежедневные CSV-файлы, из которых мне нужно создавать отчеты. Заголовки csv находятся в последней строке, первая строка - это комментарий, допускающий удаление.

Я хочу иметь возможность открыть свою книгу и запустить макрос, который:

Подскажите мне выбрать подходящий файл csv
Подскажите мне имя рабочего листа и создайте рабочий лист с этим именем
Вытяните данные на новый лист
Вырежьте заголовки из последней строки и замените ими первую строку.

(4) был камнем преткновения. В файлах неизвестное количество строк, поэтому мне нужно идентифицировать эту последнюю строку как часть процесса. Они также могут изменять количество столбцов, поэтому я не могу использовать фиксированный набор заголовков.

excel excel-2010 vba

0

Aeredhal 10 Июл 2013 в 18:42

Answer

Попробуйте использовать это.

Cells.SpecialCells(xlLastCell).Address

Вы получите адрес правой нижней ячейки.

0

flied onion 10 Июл 2013 в 19:05

Спасибо, это было ключом. Я решил проблему следующим образом, и я скорректирую свой импорт, чтобы игнорировать первую строку Sub cutlastrow() Cells.SpecialCells(xlLastCell).Select Rows(ActiveCell.Row).Cut Rows(1).Insert End Sub

–

Aeredhal

10 Июл 2013 в 19:45

Question 2

Попробуйте использовать это.

Cells.SpecialCells(xlLastCell).Address

Вы получите адрес правой нижней ячейки.

0

flied onion 10 Июл 2013 в 19:05

Спасибо, это было ключом. Я решил проблему следующим образом, и я скорректирую свой импорт, чтобы игнорировать первую строку Sub cutlastrow() Cells.SpecialCells(xlLastCell).Select Rows(ActiveCell.Row).Cut Rows(1).Insert End Sub

–

Aeredhal

10 Июл 2013 в 19:45

Импортируйте csv, чтобы преуспеть с заголовками в последней строке

1 ответ

Похожие вопросы

Новые вопросы

excel