Macros excel - есть ответ « Вопросы и ответы

Артёмка Ubicum, 150 просмотров

-1

Уважаемые подскажите как реализовать данную схему.
Имеется txt файл с набором чисел разделенных запятой, нужен макрос который будет брать число с конца и выставлять в таблицу в колонку

Ответы:

BGGPIPL

это нужно читать файл какими-нибудь апи функциями ос, в вб были Get и Put для работы с файлами, но они как бы не вба, поэтому вбашное ёксельное иде их не знает

P.S. а обязательно использовать API для создания папки? Что за защита используется при этом?

Считываем файл в строковую переменную, разделяем строку на массив, выводим массив с конца.
Могут быть подводные камни в виде ограничение размера строки (вроде бы было 1023 или 1024 байта для формата string, возможно стоит разбивать и записывать в динамический массив (Redim в помощь))
Кстати, чтение с конца файла, пример из справки по Seek Statement:
Dim MaxSize, NextChar, MyChar
Open "TESTFILE" For Input As #1 ' Open file for input.
MaxSize = LOF(1) ' Get size of file in bytes.
' The loop reads all characters starting from the last.
For NextChar = MaxSize To 1 Step -1
Seek #1, NextChar ' Set position.
MyChar = Input(1, #1) ' Read character.
Next NextChar
Close #1 ' Close file.

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.