Здравствуйте. Помогите пожалуйста с такой задачей. Есть файл с данными. Пусть это будет товар с датой и количеством поставки. В ячейке С5 есть выпадающий список всех товаров, их может быть очень много. При выборе товара меняется информация в соседних ячейках. Необходимо для каждого товара создать веб-страницу, ну и еще хочется время от времени обновлять все эти страницы. Возможно ли это сделать быстро при помощи макроса?
Здравствуйте. Помогите пожалуйста с такой задачей. Есть файл с данными. Пусть это будет товар с датой и количеством поставки. В ячейке С5 есть выпадающий список всех товаров, их может быть очень много. При выборе товара меняется информация в соседних ячейках. Необходимо для каждого товара создать веб-страницу, ну и еще хочется время от времени обновлять все эти страницы. Возможно ли это сделать быстро при помощи макроса?skov
Или хотя бы так. В одной из ячеек будет нужное название файла. Оно будет меняться при смене товара вручную. Необходим макрос для сохранения одной вэб-страницы в указанную папку, с именем из ячейки.
Или хотя бы так. В одной из ячеек будет нужное название файла. Оно будет меняться при смене товара вручную. Необходим макрос для сохранения одной вэб-страницы в указанную папку, с именем из ячейки.skov
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$5" Then Exit Sub Application.DisplayAlerts = False With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _ ThisWorkbook.Path & "\" & [c5].Value & ".htm", "Лист1", "", xlHtmlStatic, "07070-1_1288", "") .Publish (True) .AutoRepublish = True End With Application.DisplayAlerts = -1 End Sub
[/vba]
В модуль листа1: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$5" Then Exit Sub Application.DisplayAlerts = False With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _ ThisWorkbook.Path & "\" & [c5].Value & ".htm", "Лист1", "", xlHtmlStatic, "07070-1_1288", "") .Publish (True) .AutoRepublish = True End With Application.DisplayAlerts = -1 End Sub
Nic70y Работает, но не могу привязать к своему файлу. Что нужно изменить если у меня имя файла в ячейке (В1), путь для сохранения файла в (В2). И не понятно, сохраняются файлы только туда где файл Excel?
KuklP Вставляю я в модуль лист1, но макрос не отображается в перечне макрсосов. Я не могу его запустить
Nic70y Работает, но не могу привязать к своему файлу. Что нужно изменить если у меня имя файла в ячейке (В1), путь для сохранения файла в (В2). И не понятно, сохраняются файлы только туда где файл Excel?
KuklP Вставляю я в модуль лист1, но макрос не отображается в перечне макрсосов. Я не могу его запуститьskov
И не должен. Он будет выполняться при каждом изменении в вып. списке, в С5.
А где файлы должны сохраняться? В С5 обязательно должен быть выпадающий список? У меня в списке названия позиций, а желаемое имя файла в другой ячейке.
И не должен. Он будет выполняться при каждом изменении в вып. списке, в С5.
А где файлы должны сохраняться? В С5 обязательно должен быть выпадающий список? У меня в списке названия позиций, а желаемое имя файла в другой ячейке.skov
Я думал просто поменяю ссылку на другую ячейку, там где имя файла. То есть в этой ячейке обязательно должен быть выпадающий список? У меня в этом списке названия, которые не годятся для имен файлов.
Я думал просто поменяю ссылку на другую ячейку, там где имя файла. То есть в этой ячейке обязательно должен быть выпадающий список? У меня в этом списке названия, которые не годятся для имен файлов.skov
- а я подумал, что Вы достаточно взрослый и разумный человек, умеющий формулировать, свои желания Похоже, мы с Вами ошиблись. Мой ответ будет уже 12-м, а что Вам надо было, до сих пор непонятно ни мне, ни похоже, Николаю. Ладно, удачи Вам.
- а я подумал, что Вы достаточно взрослый и разумный человек, умеющий формулировать, свои желания Похоже, мы с Вами ошиблись. Мой ответ будет уже 12-м, а что Вам надо было, до сих пор непонятно ни мне, ни похоже, Николаю. Ладно, удачи Вам.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
В (В1) имя файла, которое меняется при изменении позиции в выпадающем списке (С1). Имя файла для каждой позиции свой. Просто в наименовании позиции есть снежинки и запятые
В (В1) имя файла, которое меняется при изменении позиции в выпадающем списке (С1). Имя файла для каждой позиции свой. Просто в наименовании позиции есть снежинки и запятыеskov