Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Генерация QR кодов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Генерация QR кодов (Макросы/Sub)
Генерация QR кодов
4p0ssum Дата: Пятница, 05.06.2020, 13:53 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте уважаемые форумчане (программисты). Помогите пожалуйста со следующей задачей. Я не являюсь программистом. Мне нужна была программа (желательно в excel, и я нашел на просторах интернета) чтоб она генерировала QR коды из строчек с информацией. Но моя беда заключается в том что, в моей информации есть запрещенные для файлов символы (/,. После запуска макроса, соответственно появляется ошибка. Прошу вас (если вам не трудно, и будет время) сделайте так чтоб, имя файла задавалось по первой колонке, а информация для генерации QR кода бралась из второй.

Заранее большое спасибо. Извините если отвлек.
Я думаю что для вас это проще простого. Ещё раз спасибо.
К сообщению приложен файл: The_Data.xlsm(19.5 Kb)


Сообщение отредактировал 4p0ssum - Пятница, 05.06.2020, 14:08
 
Ответить
СообщениеЗдравствуйте уважаемые форумчане (программисты). Помогите пожалуйста со следующей задачей. Я не являюсь программистом. Мне нужна была программа (желательно в excel, и я нашел на просторах интернета) чтоб она генерировала QR коды из строчек с информацией. Но моя беда заключается в том что, в моей информации есть запрещенные для файлов символы (/,. После запуска макроса, соответственно появляется ошибка. Прошу вас (если вам не трудно, и будет время) сделайте так чтоб, имя файла задавалось по первой колонке, а информация для генерации QR кода бралась из второй.

Заранее большое спасибо. Извините если отвлек.
Я думаю что для вас это проще простого. Ещё раз спасибо.

Автор - 4p0ssum
Дата добавления - 05.06.2020 в 13:53
alkoqolick Дата: Пятница, 05.06.2020, 14:41 | Сообщение № 2
Группа: Заблокированные
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2019
вот я исправил
 
Ответить
Сообщениевот я исправил

Автор - alkoqolick
Дата добавления - 05.06.2020 в 14:41
4p0ssum Дата: Пятница, 05.06.2020, 14:44 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
alkoqolick, Что вы исправили ?
 
Ответить
Сообщениеalkoqolick, Что вы исправили ?

Автор - 4p0ssum
Дата добавления - 05.06.2020 в 14:44
alkoqolick Дата: Пятница, 05.06.2020, 14:45 | Сообщение № 4
Группа: Заблокированные
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2019
вот
[admin]Автор забанен[/admin]


Сообщение отредактировал Pelena - Пятница, 05.06.2020, 15:31
 
Ответить
Сообщениевот
[admin]Автор забанен[/admin]

Автор - alkoqolick
Дата добавления - 05.06.2020 в 14:45
Pelena Дата: Пятница, 05.06.2020, 14:53 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16048
Репутация: 3488 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Посмотрите такой вариант
К сообщению приложен файл: 0513002.xlsm(40.4 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПосмотрите такой вариант

Автор - Pelena
Дата добавления - 05.06.2020 в 14:53
4p0ssum Дата: Пятница, 05.06.2020, 15:01 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, Спасибо вам большое за столь быструю помощь, но это не то. Дело в том что, в том файле который я загрузил, после применения макроса, файл сохраняется в папке с самим excel файлом. Мне просто нужно чтоб было как есть, но имена файла создавались из первого столбика. Я создал первый столбец с номерами. Я надеюсь я правильно объяснил и вас не запутал. Ещё раз огромное спасибо.
К сообщению приложен файл: 4234755.xlsm(19.6 Kb)
 
Ответить
СообщениеPelena, Спасибо вам большое за столь быструю помощь, но это не то. Дело в том что, в том файле который я загрузил, после применения макроса, файл сохраняется в папке с самим excel файлом. Мне просто нужно чтоб было как есть, но имена файла создавались из первого столбика. Я создал первый столбец с номерами. Я надеюсь я правильно объяснил и вас не запутал. Ещё раз огромное спасибо.

Автор - 4p0ssum
Дата добавления - 05.06.2020 в 15:01
Pelena Дата: Пятница, 05.06.2020, 15:32 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16048
Репутация: 3488 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
4p0ssum, аккаунт alkoqolick тоже Вы создали?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение4p0ssum, аккаунт alkoqolick тоже Вы создали?

Автор - Pelena
Дата добавления - 05.06.2020 в 15:32
4p0ssum Дата: Пятница, 05.06.2020, 17:01 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena Нет этот аккаунт не мой.
 
Ответить
СообщениеPelena Нет этот аккаунт не мой.

Автор - 4p0ssum
Дата добавления - 05.06.2020 в 17:01
InExSu Дата: Воскресенье, 07.06.2020, 22:39 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 612
Репутация: 93 ±
Замечаний: 0% ±

Excel 2010
Привет!
Добавьте в модуль:
[vba]
Код
Function FileName_Symbols_Replace(ByVal txt As String) As String
  Dim St$, i%
  ' заменить символы для использования в именах файлов
  St$ = "~!@/\#$%^&*=|`"""
  For i% = 1 To Len(St$)
    txt = Replace(txt, Mid(St$, i, 1), "_")
  Next
  FileName_Symbols_Replace = txt
End Function
[/vba]
и замените строку
[vba]
Код
Name = val.Value
[/vba]
на
[vba]
Код
Name = FileName_Symbols_Replace(val.Value)
[/vba]


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!
Добавьте в модуль:
[vba]
Код
Function FileName_Symbols_Replace(ByVal txt As String) As String
  Dim St$, i%
  ' заменить символы для использования в именах файлов
  St$ = "~!@/\#$%^&*=|`"""
  For i% = 1 To Len(St$)
    txt = Replace(txt, Mid(St$, i, 1), "_")
  Next
  FileName_Symbols_Replace = txt
End Function
[/vba]
и замените строку
[vba]
Код
Name = val.Value
[/vba]
на
[vba]
Код
Name = FileName_Symbols_Replace(val.Value)
[/vba]

Автор - InExSu
Дата добавления - 07.06.2020 в 22:39
Pelena Дата: Воскресенье, 07.06.2020, 22:47 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16048
Репутация: 3488 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Такой вариант уже был, автора не устроил


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТакой вариант уже был, автора не устроил

Автор - Pelena
Дата добавления - 07.06.2020 в 22:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Генерация QR кодов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!