ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel VBA Save SaveAs MS Office 2003
15 сообщений из 15, страница 1 из 1
Excel VBA Save SaveAs MS Office 2003
    #33986889
QnX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QnX
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Saved Property
Remarks
If a workbook has never been saved, its Path property returns an empty string ("").

You can set this property to True if you want to close a modified workbook without either saving it or being prompted to save it.

Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim MsgRes
    
    If Not ActiveWorkbook Is Nothing Then
    If Not ActiveWorkbook.Saved Then
            ActiveWorkbook.Save
    End If

Проблема в следующем. Если один раз документ сохранился, то метод Saved всегда возвращает True, потому что Path определен ....

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

Подскажите, что делать ?
...
Рейтинг: 0 / 0
14.09.2006, 13:17:09
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33987073
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
C чем бороться? все же ясно написано, что saved управляется тем, были изменения после сохранения или нет. path - был ли файл записан вообще или нет.
...
Рейтинг: 0 / 0
14.09.2006, 13:45:43
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33987141
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
А чего вообще пытаешься добиться? Из твоего кода ничего не понять :-(

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
14.09.2006, 13:58:22
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33987188
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
QnXЕсли один раз документ сохранился, то метод Saved всегда возвращает True, потому что Path определен ....

Чепуха - Path тут вообще не при чем. Попробуй след. код из любой единожды сохраненной книги:

Код: plaintext
1.
2.
3.
4.
5.
Sub test()
    [a1] =  2 
    MsgBox ActiveWorkbook.Saved
    ActiveWorkbook.Save
    MsgBox ActiveWorkbook.Saved
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
14.09.2006, 14:05:52
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33987272
QnX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QnX
Участник
KL (XL)А чего вообще пытаешься добиться? Из твоего кода ничего не понять :-(

KL
[MVP - Microsoft Excel]

Вообще аттачу файл к бату. Все происходит нормально, только вот файл должен перед этим быть сохранен.
...
Рейтинг: 0 / 0
14.09.2006, 14:18:39
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33987277
QnX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QnX
Участник
vbaproC чем бороться? все же ясно написано, что saved управляется тем, были изменения после сохранения или нет. path - был ли файл записан вообще или нет. Он вновь открытый, какие там изменения .... Книга новая ...
...
Рейтинг: 0 / 0
14.09.2006, 14:19:24
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33987279
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
QnX...он считает, что он знает куда сохранять и сохраняет молча...

Он не "считает", а точно знает куда сохранять, т.к. он (Excel) изучал правила игры перед началом партии :)

1) если файл не был сохранен ранее, и путь не указан, то Save и SaveAs cохранят по умолчанию в активную директорию

2) если файл был сохранен и путь не указан, то Save и SaveAs cохранят по умолчанию в директорию, откуда файл был открыт (или посл. раз сохранен)
...
Рейтинг: 0 / 0
14.09.2006, 14:19:38
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33987302
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
QnXОн вновь открытый, какие там изменения .... Книга новая ...
у новой книги Path="", Saved=True,
внес изменения: Path="", Saved=False,
сохранил: Path="..адрес..", Saved=True;
снова внес изменения: Path="..адрес..", Saved=False

или не о том речь?
...
Рейтинг: 0 / 0
14.09.2006, 14:23:38
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33987333
QnX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QnX
Участник
Ну ка попробую .... Точно Saved то TRUE .....
...
Рейтинг: 0 / 0
14.09.2006, 14:28:41
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33988416
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
у меня получалось, что если одной из открытой книг сделать saved=true, то другие открытые (с изменениями) при закрытие екцеля закрывались ничего не спрашивая и не сохраняя. Нах этот saved
...
Рейтинг: 0 / 0
14.09.2006, 18:03:59
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33988663
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Senin Viktorу меня получалось, что если одной из открытой книг сделать saved=true, то другие открытые (с изменениями) при закрытие екцеля закрывались ничего не спрашивая и не сохраняя. Нах этот saved

А код покажешь? А то сумнение у меня, что эксперимент был криво поставлен ;-)

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
14.09.2006, 19:30:00
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33988822
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
KL (XL) Senin Viktorу меня получалось, что если одной из открытой книг сделать saved=true, то другие открытые (с изменениями) при закрытие екцеля закрывались ничего не спрашивая и не сохраняя. Нах этот saved

А код покажешь? А то сумнение у меня, что эксперимент был криво поставлен ;-)

KL
[MVP - Microsoft Excel]

Я что-то тоже сомневаюсь и тоже стало интересно и тоже провел эксперимент. Вот код, который я привязал к кнопке на листе:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub CommandButton1_Click()
Dim WB As Workbook

    For Each WB In Workbooks
        MsgBox "Name:  " & WB.Name & vbLf _
                & "Saved: " & WB.Saved & vbLf _
                & "Path:  " & WB.Path
    
    Next WB
End Sub
создал три книги, проверил, внес в одну изменение, проверил, потом её сохранил, снова проверил. Saved=True только у тех, которую сохранил и которую не менял.
...
Рейтинг: 0 / 0
14.09.2006, 21:53:47
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33989728
QnX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QnX
Участник
Значит сделал я так ...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub ОтправитьПисьмом()
        If Not ActiveWorkbook Is Nothing Then
        If ActiveWorkbook.Path = "" And ActiveWorkbook.Saved Then Exit Sub
        If ActiveWorkbook.Path = "" And Not ActiveWorkbook.Saved Then
            MesRes = MsgBox("Для начала нужно сохранить документ ... Сохранить ?", vbYesNo, "Внимание")
            If MesRes = vbYes Then
                ActiveWorkbook.SaveAs ??? FileFormat:=xlNormal, _
                Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
                CreateBackup:=False
            End If
        ElseIf ActiveWorkbook.Path <> "" And Not ActiveWorkbook.Saved Then
                ActiveWorkbook.Save
        End If
    End If
End Sub

Вот не знаю что вместо вопросов нужно вписать, чтобы он все-таки показал диалог сохранения файла ! Сейчас либо ругается , на пустое имя файла, либо молча сохраняет !
...
Рейтинг: 0 / 0
15.09.2006, 12:04:25
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33989927
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
QnX...Вот не знаю что вместо вопросов нужно вписать, чтобы он все-таки показал диалог сохранения файла !

используй
Код: plaintext
Application.Dialogs(xlDialogSaveAs).Show
вместо
Код: plaintext
ActiveWorkbook.SaveAs
...
Рейтинг: 0 / 0
15.09.2006, 12:44:05
| Ответить | Цитировать | Написать  
Excel VBA Save SaveAs MS Office 2003
    #33990008
QnX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QnX
Участник
Спасибо !
...
Рейтинг: 0 / 0
15.09.2006, 13:03:21
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel VBA Save SaveAs MS Office 2003
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33987272&tid=2184285]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 239ms
total:  373ms
созд. / загр.: 373ms
x
x
Закрыть


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