Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение листа excel в xml / 5 сообщений из 5, страница 1 из 1
06.04.2006, 11:15:15
    #33648334
Виктор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение листа excel в xml
Подскажите, можно ли сохранить в xml отдельный лист, а не весь эксельный файл ?
...
Рейтинг: 0 / 0
06.04.2006, 12:37:33
    #33648693
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение листа excel в xml
Попробуй следующий вариант.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub SaveWsAsXML()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=D:\1\Book1.xls;" & _
      "Extended Properties=""Excel 8.0;IMEX=1;HDR=YES"""
    
    rst.Open "SELECT * FROM [Лист1$A1:B4]", cnn, adOpenStatic
    rst.Save "D:\1\Book1.xml", adPersistXML

    rst.Close
    Set rst = Nothing
    
    cnn.Close
    Set cnn = Nothing
End Sub
...
Рейтинг: 0 / 0
06.04.2006, 18:25:58
    #33650229
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение листа excel в xml
Зачем такие сложности?
Код: plaintext
1.
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:='aaa.xml', FileFormat:=adPersistXML
все.
...
Рейтинг: 0 / 0
07.04.2006, 08:10:40
    #33650775
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение листа excel в xml
Ты наверно хотел написать.

ActiveWorkbook.SaveAs FileName:="aaa.xml", FileFormat:= xlXMLSpreadsheet

Это конечно хорошо, если у тебя Офис >= 2002, а если более ранняя версия, в которой нет полноценной поддержки XML, сохранить так, как ты указал, не получится.
...
Рейтинг: 0 / 0
07.04.2006, 18:38:36
    #33653165
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение листа excel в xml
AshtonТы наверно хотел написать.ну да, виноват, ошибся :)

AshtonЭто конечно хорошо, если у тебя Офис >= 2002, а если более ранняя версия, в которой нет полноценной поддержки XML, сохранить так, как ты указал, не получится.Получится, получится :) В 2000 можно использовать xlHTML. Оно конечно не совсем XML в чистом виде, но очень близко :)
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение листа excel в xml / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]