не могу сохранить Excel файл

15.08.2006, 14:46. **Показов** 41731. **Ответов** 6

Студворк — интернет-сервис помощи студентам

Всех приветствую!
У меня вот возникли вопросы по xls...
даже парочка...
Первый:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set xlApp = createObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Add
Set xlSheet = xlWB.Sheets(1)
xlApp.visible = True
xlSheet.name = "Заключение"
 
 
xlSheet.Cells(1,1)="ФИО:"
 
xlSheet.Cells(3,1)="ИНН:"
 
xlSheet.Cells(5,1)="Заключение сотрудника безопасности"
 
Call xlWB("C:\Книга123").save
 
Call xlApp.Quit

Создаю документ но не могу его сохранить в указанной директории....
ругается на Call xlWB("C:\Книга123").save
и на Call xlApp.Quit как быть?

И второй вопросик...
Мне надо ещё записать в xls файл(шаблон) в определённые ячейки определённые значения и сохранить в опрделённом месте
пробовал так:

Code
1
2
3
4
5
6
7
8
9
10
11
Dim xlApp As Variant
 
Set xlApp = getobject("c:\REPORT_MAY.xls")
 
Set xlSheet = xlApp.Worksheets("total_total")
 
 
xlSheet.name = "Отчёт"
 
 
xlSheet.Cells(1,1)="ВОТ!!!!!!!!!!!!!!!!!"

не полчусилось(( ниначё не ругается но и имя шита не меняет и в ячейку значения не записывает((
не охраняет понятное дело ибо я не знаю как это реализовать
А вообще подскажите где можно почитать по работе с xls? у Ионцева в книге не нашёл(( в хелпе лотусовом тоже( Где можно свойства Workbooks найти к примеру которые бы в лотусе отрабатывались? Спасибо заранее за любые ответы...

@morphyus · 15.08.2006, 18:31

exApp.Workbooks.Add( FilePath ) - вот тебе WorkBooks
его свойства и етоды описаны в хелпе офиса

попробуй для начала не пользоваться Call это в принципе и не надо

Example
This example saves the active workbook.
ActiveWorkbook.Save

хоть Excel запускается?

16.08.2006, 07:42

Для: Morpheus
Прописал Filepath добавил ещё строку xlApp.visible = True
сейчас он открывается файл именно этот значения записываются
!!
Но вот как эту хрень обойти? когда попадаем на строку xlWB.Save
он в Excel спрашивает сохранить изменения или нет и оставить там же или нет....
как сохранить по умолчанию в другой директории файл не подскажете программно чтобы он эту табличку не выдавал?
И ещё кое что можно же обойтись без строки xlApp.visible = True чтобы не видеть какие изменения в файле производились Excelевском и по умолчанию программно сохранять его после изменения в какую нить директорию введённую с клавы(директорию можно подсунуть куда нить потом из какой нить переменной из Inputboxa знать бы куда!)?

Set xlApp = createObject("Excel.Application") создаем объект Excel
Set xlWB = xlApp.Workbooks.Add("C:\REPORT_MAY.xls") создаем новую книгу
Set xlSheet = xlWB.Sheets(1) выбираем первую "страницу"
xlApp.visible = True
xlSheet.name = "Заключение"

xlSheet.Cells(1,1)="цкуукцуцк"

xlSheet.Cells(3,1)="ИНН:"

xlSheet.Cells(5,1)="Заключение сотрудника безопасности"

xlWB.save

xlApp.Quit

16.08.2006, 07:59

кстати вот ещё что заметил.... когда ставишь xlApp.visible = True значения в ячейки записываются а когда не ставишь не записываются(
Всё разобрался файл сохраняется!! Вот только он сохраняется в папку мои документы...под именем REPORT_MAY1
Как всё таки программно его сохранить в определённую папку под именем введённым с клавиатуры?
Пробую вот так сохранят ь но почему то ругается - Microsoft Excel unable to get the saas property of the wokbook class!
With xlWB.saveas("C:\REPORT\qqqq.xls","xlText Windows")
End With

@morphyus · 16.08.2006, 10:31

Попробовать свойство Path которое вроде есть и у Workbooks и у Application

17.08.2006, 10:14

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

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Set xlApp = createObject("Excel.Application") создаем объект Excel
Set xlWB = xlApp.Workbooks.open("C:\REPORT\REPORT_MAY.xls") открываем книгу
Set xlSheet = xlWB.Sheets(1)  выбираем первую "страницу"
 
With xlApp
.visible = False
End With
 
xlSheet.name = "Заключение"
 
 
xlSheet.Cells(3,1)="ПРОБА"
xlSheet.Cells(5,1)="ПРОБУЮ"
 
With xlWB
.SaveCopyAs "C:\REPORT\XXXXYYY.XLS"
End With
 
 
End With
With xlApp
.Quit
End With

проблема в том что всё равно выскакивает табличка
Do you want to save the changes you made to REPORT_MAY.xls ?
Вот мне и надо сейчас чтобы эта табличка не выскакивала и файл шаблона не изменялся по умолчанию!
Пробовал уже много что но что то не получается...
КАК?

@morphyus · 17.08.2006, 10:18

<span class="vbquote">(Gor @ 18:08:2006, 08:01 )</span>Вот мне и надо сейчас чтобы эта табличка не выскакивала
[snapback]42421" rel="nofollow" target="_blank[/snapback]?[/quote]

у Application есть вот что

Saved Property

See AlsoPropertiesMethodsEventsSpecificsTrue if no changes have been made to the specified workbook since it was last saved. Read/write Boolean.

Remarks
If a workbook has never been saved, yts Path property returns an empty string ("").

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

Example
This example displays a message if the active workbook contains unsaved changes.

If Not ActiveWorkbook.Saved Then
MsgBox "This workbook contains unsaved changes."
End If

This example closes the workbook that contains the example code and discards any changes to the workbook by setting the Saved property to True.

ThisWorkbook.Saved = True
ThisWorkbook.Close

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	15.08.2006, 18:31
	exApp.Workbooks.Add( FilePath ) - вот тебе WorkBooks его свойства и етоды описаны в хелпе офиса попробуй для начала не пользоваться Call это в принципе и не надо Example This example saves the active workbook. ActiveWorkbook.Save хоть Excel запускается? 0

kor
	16.08.2006, 07:59
	кстати вот ещё что заметил.... когда ставишь xlApp.visible = True значения в ячейки записываются а когда не ставишь не записываются( Всё разобрался файл сохраняется!! Вот только он сохраняется в папку мои документы...под именем REPORT_MAY1 Как всё таки программно его сохранить в определённую папку под именем введённым с клавиатуры? Пробую вот так сохранят ь но почему то ругается - Microsoft Excel unable to get the saas property of the wokbook class! With xlWB.saveas("C:\REPORT\qqqq.xls","xlText Windows") End With

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	16.08.2006, 10:31
	Попробовать свойство Path которое вроде есть и у Workbooks и у Application 0