Сачувајте опсег у ЦСВ датотеку
Решење #670 о томе како да извезете опсег у текстуалну датотеку са ограничењем.
Ово је згодна алтернатива коришћењу Екцел -овог подразумеваног начина за чување радног листа као текстуалне датотеке или ЦСВ датотеке разграничене избором „сачувај као“ када:
1. Користите шаблон и само желите да извезете податке, искључујући заглавља и остале разне ствари
2. Слично томе, можда ћете желети да извезете само део скупа података
3. Желите да сачувате датотеку са прилагођеним граничником који може бити јединствен за вашу апликацију.
Ако имате потребу да урадите 1,2 или 3, ова функција може помоћи. Прихвата опсег за извоз, локацију за чување датотеке и граничник са којим желите да ваши подаци буду раздвојени, а затим чува ваше податке како је наведено.
Ево како да позовете функцију ЕкпортРанге:
| 1234567891011 | Суб ЦаллЕкпорт ()'ЕкпортРанге (распон, где, граничник)Позовите ЕкпортРанге (Схеет1.Ранге ("А1: Ц20"), _"Ц: марк.ткт", ",")Енд Суб |
Прво кажете функцији опсег који желите да извезете, затим где да га извезете, него делиметар за употребу. Такође ће вам требати функција ЕкпортРанге, Ево га:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 | Функција ЕкпортРанге (ВхатРанге Ас Ранге, _Вхере Ас Стринг, Делимитер Ас Стринг) Као низДим ХолдРов Ас Лонг 'тест за нову променљиву редаХолдРов = ВхатРанге.РовДим ц Ас Ранге 'пролаз кроз променљиву опсегаЗа сваки ц У ВхатРанге -уАко ХолдРов ц.Ров Тада'додајте прекид линије и уклоните додатни делиметарЕкпортРанге = Лево (ЕкпортРанге, Лен (ЕкпортРанге) - 1) _& вбЦрЛф & ц.Тект & ДелимитерХолдРов = ц.РовИначеЕкпортРанге = ЕкпортРанге & ц.Тект & ДелимитерКрај АкоСледеће ц'Одрежите додатни граничникЕкпортРанге = Лево (ЕкпортРанге, Лен (ЕкпортРанге) - 1)'Убијте датотеку ако већ постојиАко је Лен (Дир (Где))> 0 ТадаКилл ВхереКрај АкоОтворите Вхере Фор Аппенд Ас #1 'напишите нову датотекуПринт #1, ЕкпортРангеЗатвори #1Завршна функција |
