экспорт в Excel

[drronnie]

Господа, как экспортировать данные в Эксель?
Короче сделать следующее:
- Запустить Эксель (независимо от того, какой Офис установлен на тачке);
- создать там чистый лист;
- и в определённые ячейки записать данные;

[GSerg]

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

with createobject("excel.application")
  with .workbooks.add.worksheets(1)
    .cells(1,1).value="a"
    .cells(1,2).value="b"
    .cells(1,3).value="c"
  end with
  .visible=true
end with

[drronnie]

Благодарю-с...

[drronnie]

А что делать если мне нужно объявить объект типа Range?
Т.е. как объявить range этого объекта, подключённого таким образом?

[GSerg]

as object

[drronnie]

Спасибо
И последнее: если мы ищем, какое-либо значение нам возвращается Range, а если ничего не находит, тогда объект равен Nothing. Как проверить, что объект не Nothing.

[lord0n]

Спасибо
И последнее: если мы ищем, какое-либо значение нам возвращается Range, а если ничего не находит, тогда объект равен Nothing. Как проверить, что объект не Nothing.

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


a=oEx.range("a1").cells
if cstr("" & a) = "" then
....
end if


[Antonariy]

Как проверить, что объект не Nothing.

a=oEx.range("a1").cells
if cstr("" & a) = "" then
....
end if

lord0n, ну ты и выдал.

Не проще ли If [not] obj is nothing then

[lord0n]

Как проверить, что объект не Nothing.

a=oEx.range("a1").cells
if cstr("" & a) = "" then
....
end if

lord0n, ну ты и выдал.

Не проще ли If [not] obj is nothing then

у меня на компе такая конструкция почемута выдает ошибку
вот и использую cstr

[MeMBus]

Antonariy и lord0n, а еще какие способы есть?

[drronnie]

If [not] obj is nothing then
Работает
Спасибо!

[drronnie]

Я всё экспортнул в Эксель, всё ок.
SaveAs,
Затем Quit

А вот если в SaveAs передать имя файла который существует он спрашивает заменить ли его? Я сам проверяю на это в программе... как сделать чтобы он не спрашивал, а заменял сразу...

Quit.... Если не сохранить перед выходом он спрашивает не хочу ли я сохранить документ.... как сделать чтобы не спрашивал?

[hCORe]

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

oEx.Application.DisplayAlerts = False

[drronnie]

hCORe, спасибо! и всем остальным!!!