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

Тема в разделе "Lotus - Программирование", создана пользователем Gor, 16 авг 2006.

  1. Gor

    Gor Well-Known Member

    Регистрация:
    7 июн 2005
    Сообщения:
    517
    Симпатии:
    2
    Всех приветствую!
    У меня вот возникли вопросы по xls...
    даже парочка...
    Первый:
    Код (Text):
    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 файл(шаблон) в определённые ячейки определённые значения и сохранить в опрделённом месте
    пробовал так:
    Код (Text):
    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 найти к примеру которые бы в лотусе отрабатывались? Спасибо заранее за любые ответы...
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    exApp.Workbooks.Add( FilePath ) - вот тебе WorkBooks
    его свойства и етоды описаны в хелпе офиса

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

    Example
    This example saves the active workbook.
    ActiveWorkbook.Save

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

    Gor Well-Known Member

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

     
  4. Gor

    Gor Well-Known Member

    Регистрация:
    7 июн 2005
    Сообщения:
    517
    Симпатии:
    2
    кстати вот ещё что заметил.... когда ставишь 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
     
  5. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Попробовать свойство Path которое вроде есть и у Workbooks и у Application
     
  6. Gor

    Gor Well-Known Member

    Регистрация:
    7 июн 2005
    Сообщения:
    517
    Симпатии:
    2
    решил вот такую задачу:
    открыл файл шаблона, туда записал значения, там всё перестроилось, сделал копию под другим именем, и закрываю приложение...
    вот код
    Код (Text):
        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' ?
    Вот мне и надо сейчас чтобы эта табличка не выскакивала и файл шаблона не изменялся по умолчанию!
    Пробовал уже много что но что то не получается...
    КАК?
     
  7. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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
     
Загрузка...

Поделиться этой страницей