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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение данных в формате htm - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение данных в формате htm (Макросы/Sub)
Сохранение данных в формате htm
skov Дата: Четверг, 02.06.2016, 20:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте. Помогите пожалуйста с такой задачей. Есть файл с данными. Пусть это будет товар с датой и количеством поставки. В ячейке С5 есть выпадающий список всех товаров, их может быть очень много. При выборе товара меняется информация в соседних ячейках. Необходимо для каждого товара создать веб-страницу, ну и еще хочется время от времени обновлять все эти страницы. Возможно ли это сделать быстро при помощи макроса?
К сообщению приложен файл: 07070.xlsx(12Kb)
 
Ответить
СообщениеЗдравствуйте. Помогите пожалуйста с такой задачей. Есть файл с данными. Пусть это будет товар с датой и количеством поставки. В ячейке С5 есть выпадающий список всех товаров, их может быть очень много. При выборе товара меняется информация в соседних ячейках. Необходимо для каждого товара создать веб-страницу, ну и еще хочется время от времени обновлять все эти страницы. Возможно ли это сделать быстро при помощи макроса?

Автор - skov
Дата добавления - 02.06.2016 в 20:33
skov Дата: Суббота, 04.06.2016, 09:24 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - skov
Дата добавления - 04.06.2016 в 09:24
Nic70y Дата: Суббота, 04.06.2016, 09:46 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3483
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
Макрорекордер мне сказал так:
[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(22Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Суббота, 04.06.2016, 09:56
 
Ответить
СообщениеМакрорекордер мне сказал так:
[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]проверяйте вдруг правильно.

Автор - Nic70y
Дата добавления - 04.06.2016 в 09:46
KuklP Дата: Суббота, 04.06.2016, 09:52 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

В модуль листа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им! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВ модуль листа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]

Автор - KuklP
Дата добавления - 04.06.2016 в 09:52
skov Дата: Воскресенье, 05.06.2016, 09:20 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - skov
Дата добавления - 05.06.2016 в 09:20
KuklP Дата: Воскресенье, 05.06.2016, 11:24 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

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


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеИ не должен. Он будет выполняться при каждом изменении в вып. списке, в С5.

Автор - KuklP
Дата добавления - 05.06.2016 в 11:24
skov Дата: Воскресенье, 05.06.2016, 13:00 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - skov
Дата добавления - 05.06.2016 в 13:00
Nic70y Дата: Воскресенье, 05.06.2016, 13:30 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3483
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
у меня имя файла в ячейке (В1)
зачем?
[vba]
Код
Workbooks.Open Filename:="C:\Users\user\Downloads\07070.xlsm" 'имя и путь файла Excel
[/vba]
путь для сохранения файла в (В2)
в строке
ActiveWorkbook.SaveAs Filename:=Cells(2, 3) & Cells(5, 3) & ".htm", _
Cells(2, 3) заменить на Cells(1, 2)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Воскресенье, 05.06.2016, 13:32
 
Ответить
Сообщение
у меня имя файла в ячейке (В1)
зачем?
[vba]
Код
Workbooks.Open Filename:="C:\Users\user\Downloads\07070.xlsm" 'имя и путь файла Excel
[/vba]
путь для сохранения файла в (В2)
в строке
ActiveWorkbook.SaveAs Filename:=Cells(2, 3) & Cells(5, 3) & ".htm", _
Cells(2, 3) заменить на Cells(1, 2)

Автор - Nic70y
Дата добавления - 05.06.2016 в 13:30
KuklP Дата: Воскресенье, 05.06.2016, 13:32 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

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


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеСохраняться будет в той же папке, где и исходный файл, с именем из списка. А насчет:
а желаемое имя файла в другой ячейке
- перечитайте свой первый пост в теме.

Автор - KuklP
Дата добавления - 05.06.2016 в 13:32
skov Дата: Воскресенье, 05.06.2016, 14:28 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Я думал просто поменяю ссылку на другую ячейку, там где имя файла. То есть в этой ячейке обязательно должен быть выпадающий список? У меня в этом списке названия, которые не годятся для имен файлов.
К сообщению приложен файл: Kart1.xlsx(14Kb)
 
Ответить
СообщениеЯ думал просто поменяю ссылку на другую ячейку, там где имя файла. То есть в этой ячейке обязательно должен быть выпадающий список? У меня в этом списке названия, которые не годятся для имен файлов.

Автор - skov
Дата добавления - 05.06.2016 в 14:28
Nic70y Дата: Воскресенье, 05.06.2016, 14:38 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3483
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
каждый файл же должен называться по разному, как я понял.
другую ячейку
она динамическая?
См. Cells(1, 1) - это A1 (первая 1 это строка, вторая столбец.)
т.е. к примеру A2= Cells(2, 1)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Воскресенье, 05.06.2016, 14:39
 
Ответить
Сообщениекаждый файл же должен называться по разному, как я понял.
другую ячейку
она динамическая?
См. Cells(1, 1) - это A1 (первая 1 это строка, вторая столбец.)
т.е. к примеру A2= Cells(2, 1)

Автор - Nic70y
Дата добавления - 05.06.2016 в 14:38
KuklP Дата: Воскресенье, 05.06.2016, 14:46 | Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

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


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Я думал просто поменяю ссылку
- а я подумал, что Вы достаточно взрослый и разумный человек, умеющий формулировать, свои желания :) Похоже, мы с Вами ошиблись. Мой ответ будет уже 12-м, а что Вам надо было, до сих пор непонятно ни мне, ни похоже, Николаю. Ладно, удачи Вам.

Автор - KuklP
Дата добавления - 05.06.2016 в 14:46
skov Дата: Воскресенье, 05.06.2016, 14:46 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - skov
Дата добавления - 05.06.2016 в 14:46
skov Дата: Воскресенье, 05.06.2016, 14:48 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
KuklP

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

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

Автор - skov
Дата добавления - 05.06.2016 в 14:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение данных в формате htm (Макросы/Sub)
Страница 1 из 11
Поиск:

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