Экспорт определенных данных из строки выбранной ячейки в файл CSV

Я искал решение этой проблемы, но, похоже, не могу его найти.
В общем, я хочу выбрать, например. H2, а затем запустите макрос.
Затем он должен скопировать/вставить некоторые определенные ячейки в новый файл CSV, например. О2 и F2. Я также хочу фиксированное значение, которое всегда должно быть там, называемое «Нет».

Первая строка CSV-файла должна быть «UTF-8». Следующим (2-я строка в CSV) должны быть некоторые фиксированные заголовки, как и UTF-8.

Может ли решение заключаться в том, чтобы скопировать все соответствующие данные на другой лист в нужном формате, а затем просто экспортировать этот лист в формате CSV?

Иллюстрация:

"UTF-8"
"Name","ID","Email","Customer"
"H2","O2","F2","No"

person Niclas    schedule 09.04.2015    source источник
comment
Вы пробовали что-то?   -  person Amen Jlili    schedule 09.04.2015
comment
Привет, ребята, извините за поздний ответ, я был занят. Я думаю, что могу решить это с помощью цикла For Each selection и используя следующие Sheets("Sheet1").Range("XX:XX").Copy Destination:=Sheets("Sheet2").Range("XX"). Я посмотрю, что получится завтра, и опубликую код.   -  person Niclas    schedule 12.04.2015


Ответы (1)


Решение закончилось экспортом правильных данных на другой лист с правильной настройкой, используя следующее.

Sheets("Sheet1").Range("XX:XX").Copy Destination:=Sheets("Sheet2").Range("XX")
person Niclas    schedule 15.04.2015