Вопросы по Excel - открытие файла, печать и т.д.

[Perf2k2]

Всем привет опять. Обещал задать еще вопросы и задаю)

В общем настал в написании моей проги тот момент, когда надо работать вплотную с Экселем. Поэтому два вопроса:

1) У меня есть код:

Код: Выделить всё

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = GetObject("C:\Program Files\Microsoft Visual Studio\VB98\urist\tmpl\day.report.xls", Excel.Application)
Set xlBook = GetObject(mdlMain.xls_file_path & "day.report.xls", Excel.Workbooks)
Set xlSheet = GetObject(mdlMain.xls_file_path & "day.report.xls", Excel.Worksheets)
xlApp.Application.Visible = True
xlApp.Parent.Windows(1).Visible = True



Вот этот самый код и не работает. Показывает ошибку в строчке "Set xlApp..." и пишет ActiveX component cant create object. В чем может быть проблема?

2. Как вывести из Экселя на печать по средствам ВБ?

Спасибо.

[GSerg]

Код: Выделить всё

with new excel.application
  .workbooks.open "C:\Program Files\Microsoft Visual Studio\VB98\urist\tmpl\day.report.xls"
  .visible=true
end with

Код: Выделить всё

with new excel.application
  with .workbooks.open ("C:\Program Files\Microsoft Visual Studio\VB98\urist\tmpl\day.report.xls")
    .printout
  end with
  .visible=true
end with

[Perf2k2]

Класс! Спасибо, заработало. Еще такой ламерский вопросик - какая функция говорит ВБ, чтобы он перестал выполнять данную процедуру? Мне, например, если выборка из Аксеса получилось пустой, нужно сказать "Ни одной записи не выбрано" и прервать выполнение процедуры до того, как она начнет создавать Эксель.

[uhm]

Напиши в нужном месте End Sub

[Perf2k2]

Напиши в нужном месте End Sub

Не получится - напишет, что нету ЕНД ИФА:

Код: Выделить всё

If lrs.RecordCount = 0 Then
MsgBox "За данный период небыло заведено ни одного дела", 16, "Ошибка"
End Sub
End If


[GSerg]

exit sub...

[uhm]

Упс, промахнулся

[Perf2k2]

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

[GSerg]

Код: Выделить всё

with new excel.application
  .visible=true
  with .workbooks.open ("C:\Program Files\Microsoft Visual Studio\VB98\urist\tmpl\day.report.xls")
    .application.dialogs(xlDialogPrinterSetup).show
    .printout
  end with 
end with

Чел! Ты F1 нажимал когда-нибудь в жизни?

[Perf2k2]

Одноко.. пасиба...
Я нажимал, было дело - просто MSDN у меня не установлен

[GSerg]

Дык в экселе, в экселе нажимай!

[Shururik]

Ребят. А кто-нибудь знает такую фишку.
Мне нужен код, чтобы эксель открывался не в новой сессии, а взаимодействовал с другими. И открывался во всю душу.

Код: Выделить всё


Dim MyXlApp As New Excel.Application
Sub ВводЗначенийВЭксель()
With MyXlApp
        .Visible = True
        .Workbooks.Open (DefaultPath & ИмяФайла)
        .Workbooks(1).Activate
        МояПроцедура
        '.Workbooks(1).Close
        '.Quit
    End With
End Sub


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