Запуск макроса при открытии определенного файла

@oniava · Регистрация: 10.02.2015

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

Приветствую всех.

Вопрос в следующем.
Есть файлы с разным названием и разным содержимым:
trackLog-2019-окт.-04_06-17-08
trackLog-2019-янв.-20_05-11-58
trackLog-2019-июн.-20_01-27-04
trackLog-2019-дек.-20_10-19-31
Открывая эти файлы в Экселе, получаются кракозябры.
trackLog-2019-окт.-20_09-17-09.rar
Сменить кодировку файла, я могу макросом и сделать авто открытие его при запуске Excel:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Workbook_Open()
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\KPNU-2\Desktop\trackLog-2019-окт.-20_09-17-08.csv", _
         Destination:=Range("$A$1"))
'        .CommandType = 0
        .Name = "trackLog-2019-окт.-20_09-17-08"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Convert_Logs_Torque.rar

НО!

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

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

@Narimanych · 26.10.2019, 15:23

oniava,

Сообщение от oniava

В данном файле выше занято ячеек A до D и 1 по 523 строку.

Как варианты :
ПОСЛ_СТРОКА = Cells(Rows.Count,1).End(xlUp).Row
ПОСЛ_СТОЛБЕЦ=Cells(1, Columns.Count).End(xlToLeft).Column

Наконец

[a1].CurrentRegion.Select

Hugo121,
Guru ,Sorry ...

@oniava · 26.10.2019, 15:32 **[ТС]**

Hugo121,

Запуск макроса при открытии определенного файла

Вот как у меня выделяет

Visual Basic
1
ActiveSheet.UsedRange.Select

@oniava · 26.10.2019, 15:35 **[ТС]**

Narimanych,

Visual Basic
1
[a1].CurrentRegion.Select

Отличное решение!
Выделил, теперь нужно очистить все невыделеные ячейки от всех свойств.
Это вторая делема.

@Hugo121 · 26.10.2019, 15:36

Это значит что Вы тянете данные на уже "изгаженный" лист... Тяните на чистый!

@oniava · 26.10.2019, 15:38 **[ТС]**

Hugo121,
Не че не понял из вышенаписанного Вами.

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

@Hugo121 · 26.10.2019, 15:41

Делемы никакой нет в природе. И даже нет дилеммы - можно тянуть на новый лист, можно сперва полностью очистить существующий.
Я так вообще этот файл использовал бы только как инструмент, а все данные клал в новый файл, его и сохранял,без ненужного кода и срабатывания при открытии кем-то там позже - а то я предвижу следующий вопрос

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

Сообщение от oniava

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

- откуда на тех, что ненужны вообще что-то есть? Или Вам нужно после того, как импортировали все данные, нужно из них оставить только 4 столбца?

@Narimanych · 26.10.2019, 15:43

oniava,

У вас есть возможность прислать любой ваш тестовый файл ( без изменений)?

@Hugo121 · 26.10.2019, 15:46

Narimanych, там выше есть архив с csv, если Вы об этом.

@oniava · 26.10.2019, 15:53 **[ТС]**

Narimanych,
Да Вы правы, ячейки пустые.
Но, я их хочу очистить от свойств, как раньше и говорил.
Картинки скинул, что выделенные пустые табличные ячейки, мне не нужны, не снизу, не справа.

Вот Вам разные файлы как просили:
Расшифровка логов.rar

@Narimanych · 26.10.2019, 16:16

oniava,

Данные вы получаете в виде текстового файла или CSV?

@Hugo121 · 26.10.2019, 16:17

Narimanych, csv=txt

@oniava · 26.10.2019, 16:24 **[ТС]**

Добавлено через 4 минуты
Narimanych,
Данные вы получаете в виде текстового файла или CSV?

Сканер строит логи с расширением CSV.

Да, не подумал, очищать содержимое кроме выделенного, действительно тупизм.
Таблица, у меня все равно будет до столбца "L".
А вот строк могу в таблице выделить 500, больше мне не нужно.
Тогда получилось другая задача.
Очистить содержимое от выделенных столбцов до столбца "L" включительно.
И также, очисть содержимое строк кот выделннных, до 500 строки включительно.

Вот так наверное будет правильнее.

@Narimanych · 26.10.2019, 16:28

Hugo121,

Обычно данные выходят не в табулированном варианте txt...(не таблицей) ...

@oniava · 26.10.2019, 16:35 **[ТС]**

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

Visual Basic
1
[a1].CurrentRegion.Select

и наложить на выделенное таблицу.
Так еще правильнее будет.
Я просто не умею

@Hugo121 · 26.10.2019, 16:43

Правильнее взять чистый (новый) лист (ну или как вариант - сделать его чистым любым доступным способом), "наложить" на него данные, их (и только!) отформатировать как желаете.
Именно про это я всё время и говорю, но видно зря...

@oniava · 26.10.2019, 17:00 **[ТС]**

Hugo121,
Narimanych натолкнул меня на мысль.
Сейчас попробую реализовать нё.

Добавлено через 14 минут
Еще раз всем спасибо за подсказки!
Все, победил!!!

@Narimanych · 26.10.2019, 17:02

oniava,

Гуру истину глаголит…

Сообщение от Hugo121

Правильнее взять чистый (новый) лист (ну или как вариант - сделать его чистым любым доступным способом), "наложить" на него данные, их (и только!) отформатировать как желаете.

@oniava · 26.10.2019, 17:29 **[ТС]**

Все получилось без нового (чистого) листа.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последнея моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	26.10.2019, 15:36
	Это значит что Вы тянете данные на уже "изгаженный" лист... Тяните на чистый! 0

@oniava 0 / 0 / 0 Регистрация: 10.02.2015 Сообщений: 108
	26.10.2019, 15:38 [ТС]
	Hugo121, Не че не понял из вышенаписанного Вами. Суть, я выделил нужные мне ячейки, а то что не выделил нужно теперь очистить. 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,452
	26.10.2019, 15:43
	oniava, У вас есть возможность прислать любой ваш тестовый файл ( без изменений)? 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	26.10.2019, 15:46
	Narimanych, там выше есть архив с csv, если Вы об этом. 0

@oniava 0 / 0 / 0 Регистрация: 10.02.2015 Сообщений: 108
	26.10.2019, 15:53 [ТС]
	Narimanych, Да Вы правы, ячейки пустые. Но, я их хочу очистить от свойств, как раньше и говорил. Картинки скинул, что выделенные пустые табличные ячейки, мне не нужны, не снизу, не справа. Вот Вам разные файлы как просили: Расшифровка логов.rar 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,452
	26.10.2019, 16:16
	oniava, Данные вы получаете в виде текстового файла или CSV? 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	26.10.2019, 16:17
	Narimanych, csv=txt 0

@oniava 0 / 0 / 0 Регистрация: 10.02.2015 Сообщений: 108
	26.10.2019, 16:24 [ТС]
	Добавлено через 4 минуты Narimanych, Данные вы получаете в виде текстового файла или CSV? Сканер строит логи с расширением CSV. Да, не подумал, очищать содержимое кроме выделенного, действительно тупизм. Таблица, у меня все равно будет до столбца "L". А вот строк могу в таблице выделить 500, больше мне не нужно. Тогда получилось другая задача. Очистить содержимое от выделенных столбцов до столбца "L" включительно. И также, очисть содержимое строк кот выделннных, до 500 строки включительно. Вот так наверное будет правильнее. 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,452
	26.10.2019, 16:28
	Hugo121, Обычно данные выходят не в табулированном варианте txt...(не таблицей) ... 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	26.10.2019, 16:43
	Правильнее взять чистый (новый) лист (ну или как вариант - сделать его чистым любым доступным способом), "наложить" на него данные, их (и только!) отформатировать как желаете. Именно про это я всё время и говорю, но видно зря... 0

@oniava 0 / 0 / 0 Регистрация: 10.02.2015 Сообщений: 108
	26.10.2019, 17:00 [ТС]
	Hugo121, Narimanych натолкнул меня на мысль. Сейчас попробую реализовать нё. Добавлено через 14 минут Еще раз всем спасибо за подсказки! Все, победил!!! 0

@oniava 0 / 0 / 0 Регистрация: 10.02.2015 Сообщений: 108
	26.10.2019, 17:29 [ТС]
	Все получилось без нового (чистого) листа. 0