Сохранить лист в xml! / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранить лист в xml!

13 сообщений из 13, страница 1 из 1

Сохранить лист в xml!

#36486470

cosco

Гость

Не могу сохранить отдельный лист в формате xml.

у меня в книге 84 листа, мне нужно 84 файла xml с каждым листом отдельно.

Нашел только что можно сделать так:
ActiveWorkbook.SaveAs Filename:="test.xml", FileFormat:=xlXMLSpreadsheet, ReadOnlyRecommended:=False, CreateBackup:=False

но так xml файл содержит в себе все листы!

Есть идеи?

...

Рейтинг:

0 / 0

24.02.2010, 17:55

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36486493

Dophin

Гость

cosco,

создавайте новую книгу, в нее по очереди вставляйте лист, сохраняйте, удаляйте лист и так до конца

...

Рейтинг:

0 / 0

24.02.2010, 18:02

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36486507

cosco

Гость

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

...

Рейтинг:

0 / 0

24.02.2010, 18:07

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36486626

Dophin

Гость

cosco,

дык я Вам и описал алгоритм для макроса)

Все достаточно легко делается. Завтра может сделаю

...

Рейтинг:

0 / 0

24.02.2010, 19:17

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36486658

cosco

Гость

Я сам к сожалению написать не смогу.((

Буду благодарен если завтра у Вас получиться

...

Рейтинг:

0 / 0

24.02.2010, 19:42

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36486813

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

Dophincosco,

создавайте новую книгу, в нее по очереди вставляйте лист, сохраняйте, удаляйте лист и так до концаи зачем это все? Читай описание команды Copy для листов.

Код: plaintext

1.
2.
3.
4.

for each ws in thisworkbook.worksheets
    ws.copy
    activeworkbook.saveas ...
    activeworkbook.close
next

...

Рейтинг:

0 / 0

24.02.2010, 21:43

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36487185

Hugo121

Гость

Я сохранять в xml не могу, тренировался на csv и xls:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.

Option Explicit

Sub SaveAsXYZ()
Dim sh  As Object
Dim wb  As Object
Dim count As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each sh In ThisWorkbook.Sheets
count = count +  1 
Set wb = Workbooks.Add( 1 )
wb.Sheets(wb.Sheets.count).Name = "ThisSheetsMustBeDeleted"
sh.Copy before:=wb.Sheets(wb.Sheets.count)
wb.Sheets(wb.Sheets.count).Delete
    wb.SaveAs Filename:= _
        ThisWorkbook.Path & "\TestSave" & Format(count, "00") & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

'    wb.SaveAs Filename:= _
        ThisWorkbook.Path & "\TestSaveXML" & Format(count, "00") & ".xml ", FileFormat:= _
        xlXMLSpreadsheet, ReadOnlyRecommended:=False, CreateBackup:=False"

'    wb.SaveAs Filename:= _
        ThisWorkbook.Path & "\TestSaveCSV" & Format(count, " 00 ") & ".csv", FileFormat:= _
        xlCSVMSDOS, CreateBackup:=False
Application.StatusBar = "Sheet " & count & " saved!"

wb.Close False
Set wb = Nothing
Next
Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

...

Рейтинг:

0 / 0

25.02.2010, 09:06

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36487197

Hugo121

Гость

White OwlDophincosco,

создавайте новую книгу, в нее по очереди вставляйте лист, сохраняйте, удаляйте лист и так до концаи зачем это все? Читай описание команды Copy для листов.

Код: plaintext

1.
2.
3.
4.

for each ws in thisworkbook.worksheets
    ws.copy
    activeworkbook.saveas ...
    activeworkbook.close
next

Действительно, зачем я столько книг создавал? Можно обойтись одной, названия листов ведь повторяться не будут:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.

Option Explicit

Sub SaveAsXYZ()
Dim sh  As Object
Dim wb  As Object
Dim count As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wb = Workbooks.Add( 1 )
wb.Sheets(wb.Sheets.count).Name = "ThisSheetsMustBeDeleted"

For Each sh In ThisWorkbook.Sheets
count = count +  1 
sh.Copy before:=wb.Sheets(wb.Sheets.count)
wb.Sheets(wb.Sheets.count).Delete
    wb.SaveAs Filename:= _
        ThisWorkbook.Path & "\TestSave" & Format(count, "00") & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

'    wb.SaveAs Filename:= _
        ThisWorkbook.Path & "\TestSaveXML" & Format(count, "00") & ".xml ", FileFormat:= _
        xlXMLSpreadsheet, ReadOnlyRecommended:=False, CreateBackup:=False"

'    wb.SaveAs Filename:= _
        ThisWorkbook.Path & "\TestSaveCSV" & Format(count, " 00 ") & ".csv", FileFormat:= _
        xlCSVMSDOS, CreateBackup:=False
Application.StatusBar = "Sheet " & count & " saved!"

Next
wb.Close False
Set wb = Nothing

Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

...

Рейтинг:

0 / 0

25.02.2010, 09:12

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36487213

Hugo121

Гость

Что-то главное-то я и не заметил... Спасибо, не знал, что книгу можно и не создавать:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Sub White_Owl_SaveAs()
Dim ws  As Object
Dim count As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Worksheets
    ws.Copy
    count = count +  1 
    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\TestSave" & Format(count, "00") & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

 ActiveWorkbook.Close
 Application.StatusBar = "Sheet " & count & " saved!"
 Next

Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True

End Sub

...

Рейтинг:

0 / 0

25.02.2010, 09:22

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36488611

cosco

Гость

Огромное спасибо!
Работает!

...

Рейтинг:

0 / 0

25.02.2010, 17:43

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36489350

Hugo121

Гость

Чуть подправил - счётчик не нужен, ведь есть порядковый номер листа:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Sub SaveAllSheets()
Dim ws  As Object
Dim count As Integer
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Copy
        ActiveWorkbook.SaveAs Filename:= _
            ThisWorkbook.Path & "\TestSave" & Format(ws.Index, "00") & ".xls", FileFormat:= _
            xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
            , CreateBackup:=False
    
     ActiveWorkbook.Close
     .StatusBar = "Sheet " & ws.Index & " saved!"
    Next
    
    .DisplayAlerts = True
    .StatusBar = False
    .ScreenUpdating = True
End With
End Sub

...

Рейтинг:

0 / 0

26.02.2010, 09:16

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36490738

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

Hugo121Чуть подправил - счётчик не нужен, ведь есть порядковый номер листа:А еще есть намного более полезное имя листа, но это видимо уже совсем высший пилотаж, да? :)

...

Рейтинг:

0 / 0

26.02.2010, 17:42

| Ответить | Цитировать | Написать

Сохранить лист в xml!

#36490911

Hugo121

Гость

Ну поменяйте .Index на .Name - вполне сработает.

...

Рейтинг:

0 / 0

26.02.2010, 18:36

| Ответить | Цитировать | Написать

13 сообщений из 13, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранить лист в xml!

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=169&tid=2178439]:	0ms
get settings:	5ms
get forum list:	12ms
check forum access:	2ms
check topic access:	2ms
track hit:	29ms
get topic data:	7ms
get forum data:	1ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	200ms

total:	297ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы