Здравствуйте уважаемые форумчане (программисты). Помогите пожалуйста со следующей задачей. Я не являюсь программистом. Мне нужна была программа (желательно в excel, и я нашел на просторах интернета) чтоб она генерировала QR коды из строчек с информацией. Но моя беда заключается в том что, в моей информации есть запрещенные для файлов символы (/,. После запуска макроса, соответственно появляется ошибка. Прошу вас (если вам не трудно, и будет время) сделайте так чтоб, имя файла задавалось по первой колонке, а информация для генерации QR кода бралась из второй.
Заранее большое спасибо. Извините если отвлек. Я думаю что для вас это проще простого. Ещё раз спасибо.
Здравствуйте уважаемые форумчане (программисты). Помогите пожалуйста со следующей задачей. Я не являюсь программистом. Мне нужна была программа (желательно в excel, и я нашел на просторах интернета) чтоб она генерировала QR коды из строчек с информацией. Но моя беда заключается в том что, в моей информации есть запрещенные для файлов символы (/,. После запуска макроса, соответственно появляется ошибка. Прошу вас (если вам не трудно, и будет время) сделайте так чтоб, имя файла задавалось по первой колонке, а информация для генерации QR кода бралась из второй.
Заранее большое спасибо. Извините если отвлек. Я думаю что для вас это проще простого. Ещё раз спасибо.4p0ssum
Pelena, Спасибо вам большое за столь быструю помощь, но это не то. Дело в том что, в том файле который я загрузил, после применения макроса, файл сохраняется в папке с самим excel файлом. Мне просто нужно чтоб было как есть, но имена файла создавались из первого столбика. Я создал первый столбец с номерами. Я надеюсь я правильно объяснил и вас не запутал. Ещё раз огромное спасибо.
Pelena, Спасибо вам большое за столь быструю помощь, но это не то. Дело в том что, в том файле который я загрузил, после применения макроса, файл сохраняется в папке с самим excel файлом. Мне просто нужно чтоб было как есть, но имена файла создавались из первого столбика. Я создал первый столбец с номерами. Я надеюсь я правильно объяснил и вас не запутал. Ещё раз огромное спасибо.4p0ssum
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]
Привет! Добавьте в модуль: [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