• На форуме с 21 февраля 2003г.
  • Сообщений: 67
  • Спасибо: 0

Тема: запуск Ecxel

Подскажите пожайлуста как запустить  Ecxel из *.dvb файла. Т.е. как Shell грамотно использовать. Почему то не запускается. Да и еще нужно чтобы после запуска окно Ecxel стало активным.

  • Павел
  • Восстановленный участник
  • На форуме с 14 сентября 2001г.
  • Сообщений: 119
  • Спасибо: 0

Re: запуск Ecxel

Sub qqq()

Dim Excel, CurSheet, CurBook As Object

On Error Resume Next

Set Excel = GetObject(, "Excel.Application")

If Err Then
    Err.Clear
    Set Excel = CreateObject("Excel.Application")
    If Err Then
       GoTo ExitHere
    End If
End If

Set CurBook = Excel.Workbooks.Add
Set CurSheet = CurBook.Sheets(1)

Excel.WindowState = acMax
Excel.Visible = True

ExitHere:

Set Excel=Nothing
Set CurSheet=Nothing
Set CurBook=Nothing

End Sub

  • На форуме с 21 февраля 2003г.
  • Сообщений: 67
  • Спасибо: 0

Re: запуск Ecxel

Спасибо

  • Олег
  • Восстановленный участник
  • На форуме с 26 октября 2005г.
  • Сообщений: 1
  • Спасибо: 0

Re: запуск Ecxel

Подскажите как можно вскрить файл в Ecxel если
забыл пороль на вход на данный файл, но очень нужная информация.

  • Откуда: Москва
  • На форуме с 2 июля 2004г.
  • Сообщений: 2,538
  • Спасибо: 10

Re: запуск Ecxel

> Владимир
Если из лиспа:

(vl-cmdf "shell" "C:\\test.xls")

Если из командной строки:

shell "C:\\test.xls"

Если в названии файла с путями к нему нет пробелов, то можно без кавычек.

  • Откуда: Москва
  • На форуме с 2 июля 2004г.
  • Сообщений: 2,538
  • Спасибо: 10

Re: запуск Ecxel

Блин...
Только сейчас заметил, что вопрос был задан 2,5 года назад.
8^D

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: запуск Ecxel

Евгений Елпанов пишет:

Только сейчас заметил, что вопрос был задан 2,5 года назад.

:) Не переживай. Ты не одинок. У меня тоже подобное было :)