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

[Gor]

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

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 файл(шаблон) в определённые ячейки определённые значения и сохранить в опрделённом месте
пробовал так:

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 найти к примеру которые бы в лотусе отрабатывались? Спасибо заранее за любые ответы...

 

[morpheus]

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

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

Example
This example saves the active workbook.
ActiveWorkbook.Save

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

 

[Gor]

Для: 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

 

[Gor]

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

 

[morpheus]

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

 

[Gor]

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

	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' ?
Вот мне и надо сейчас чтобы эта табличка не выскакивала и файл шаблона не изменялся по умолчанию!
Пробовал уже много что но что то не получается...
КАК?

 

[morpheus]

<!--QuoteBegin-Gor+18:08:2006, 08:01 -->
<span class="vbquote">(Gor @ 18:08:2006, 08:01 )</span><!--QuoteEBegin-->Вот мне и надо сейчас чтобы эта табличка не выскакивала

[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, 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.

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