Сохранение данных в формате htm

Дата: Четверг, 02.06.2016, 20:33 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте. Помогите пожалуйста с такой задачей. Есть файл с данными. Пусть это будет товар с датой и количеством поставки. В ячейке С5 есть выпадающий список всех товаров, их может быть очень много. При выборе товара меняется информация в соседних ячейках. Необходимо для каждого товара создать веб-страницу, ну и еще хочется время от времени обновлять все эти страницы. Возможно ли это сделать быстро при помощи макроса?

К сообщению приложен файл: 07070.xlsx (11.7 Kb)

Дата: Суббота, 04.06.2016, 09:24 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

Nic70y

Дата: Суббота, 04.06.2016, 09:46 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 8754

Репутация: 2270 ±

Замечаний: 0% ±

Excel 2010

Макрорекордер мне сказал так:
[vba]

Код

Sub Макрос1()
    ActiveWorkbook.Save
    Range("C2").ClearContents
    ActiveSheet.Shapes.Range(Array("Button 1")).Delete
'Application.DisplayAlerts = 0
    ActiveWorkbook.SaveAs Filename:=Cells(2, 3) & Cells(5, 3) & ".htm", _
        FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
'Application.DisplayAlerts = 1
    Workbooks.Open Filename:="C:\Users\user\Downloads\07070.xlsm" 'имя и путь файла Excel
    Windows(Cells(5, 3) & ".htm").Activate
End Sub

[/vba]проверяйте вдруг правильно.

К сообщению приложен файл: 07070.xlsm (21.9 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 04.06.2016, 09:56

Дата: Суббота, 04.06.2016, 09:52 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

В модуль листа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

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Воскресенье, 05.06.2016, 09:20 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Nic70y
Работает, но не могу привязать к своему файлу. Что нужно изменить если у меня имя файла в ячейке (В1), путь для сохранения файла в (В2). И не понятно, сохраняются файлы только туда где файл Excel?

KuklP
Вставляю я в модуль лист1, но макрос не отображается в перечне макрсосов. Я не могу его запустить

Дата: Воскресенье, 05.06.2016, 11:24 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

И не должен. Он будет выполняться при каждом изменении в вып. списке, в С5.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Воскресенье, 05.06.2016, 13:00 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата KuklP, 05.06.2016 в 11:24, в сообщении № 6

И не должен. Он будет выполняться при каждом изменении в вып. списке, в С5.

А где файлы должны сохраняться? В С5 обязательно должен быть выпадающий список? У меня в списке названия позиций, а желаемое имя файла в другой ячейке.

Nic70y

Дата: Воскресенье, 05.06.2016, 13:30 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 8754

Репутация: 2270 ±

Замечаний: 0% ±

Excel 2010

Цитата skov, 05.06.2016 в 09:20, в сообщении № 5

у меня имя файла в ячейке (В1)

зачем?
[vba]

Код

Workbooks.Open Filename:="C:\Users\user\Downloads\07070.xlsm" 'имя и путь файла Excel

[/vba]

Цитата skov, 05.06.2016 в 09:20, в сообщении № 5

путь для сохранения файла в (В2)

в строке

Цитата skov, 04.06.2016 в 09:24, в сообщении № 2

ActiveWorkbook.SaveAs Filename:=Cells(2, 3) & Cells(5, 3) & ".htm", _

Cells(2, 3) заменить на Cells(1, 2)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Воскресенье, 05.06.2016, 13:32

Дата: Воскресенье, 05.06.2016, 13:32 | Сообщение № 9

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

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

Цитата skov, 05.06.2016 в 13:00, в сообщении № 7

а желаемое имя файла в другой ячейке

- перечитайте свой первый пост в теме.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Воскресенье, 05.06.2016, 14:28 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

К сообщению приложен файл: Kart1.xlsx (14.2 Kb)

Nic70y

Дата: Воскресенье, 05.06.2016, 14:38 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 8754

Репутация: 2270 ±

Замечаний: 0% ±

Excel 2010

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

Цитата skov, 05.06.2016 в 14:28, в сообщении № 10

другую ячейку

она динамическая?
См. Cells(1, 1) - это A1 (первая 1 это строка, вторая столбец.)
т.е. к примеру A2= Cells(2, 1)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Воскресенье, 05.06.2016, 14:39

Дата: Воскресенье, 05.06.2016, 14:46 | Сообщение № 12

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Цитата skov, 05.06.2016 в 14:28, в сообщении № 10

Я думал просто поменяю ссылку

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

Похоже, мы с Вами ошиблись. Мой ответ будет уже 12-м, а что Вам надо было, до сих пор непонятно ни мне, ни похоже, Николаю. Ладно, удачи Вам.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Воскресенье, 05.06.2016, 14:46 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

В (В1) имя файла, которое меняется при изменении позиции в выпадающем списке (С1). Имя файла для каждой позиции свой. Просто в наименовании позиции есть снежинки и запятые

Дата: Воскресенье, 05.06.2016, 14:48 | Сообщение № 14

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

KuklP

На первое сообщение никто не ответил, а во втором вроде все понятно написал