экспорт xml excel на zip

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

экспорт xml excel на zip (Макросы/Sub)

raufjonaxmatov

Дата: Понедельник, 23.05.2022, 20:51 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

народ помогите пожалуйста надо изменить макроса

[vba]

Код

Sub ExportAsXMLData()
Dim objMapToExport As XmlMap

Set objMapToExport = ActiveWorkbook.XmlMaps("main_data_карта")

If objMapToExport.IsExportable Then

ActiveWorkbook.SaveAsXMLData "C:\Users\R.Axmatov\Desktop\cn22-cn23.xml", objMapToExport
Else
MsgBox "Cannot use " & objMapToExport.Name & _
"to export the contents of the worksheet to XML data."
End If
End Sub

[/vba]

можно ли сделать так
1. создаваемый cn22-cn23.xml файл был в .zip архиве
2. вручную написать имя .zip архива на каком-то окошке
3. путь сохранения, можно ли сделать его универсальном чтоб этот макрос работал на любом другом компьютере и указал только рабочего стола

Сообщение отредактировал Serge_007 - Вторник, 24.05.2022, 09:07

Ответить

китин

Дата: Вторник, 24.05.2022, 07:55 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 7029

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

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

Excel 2007;2010;2016

raufjonaxmatov, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

экспорт xml excel на zip (Макросы/Sub)

Страница 1 из 1
1