Архив форумов ЦИТФорума

[Начинающий]

Из-за чего вылетает ошибка VBA?
"Невозможно создание объекта контейнером
Microsoft Active X"

"
Option Explicit

Dim WshShell
Public PrnParam
Set WshShell=WScript.CreateObject("WScript.Shell")
PrnParam="F:\Post\Recv\Raspor.rtf /p"
Dim FileObj
Set FileObj=CreateObject("Scripting.CreateFileSystemObject")
"
зы: установлен WS Shell 5.6, XP:sp1
подскажите плз,
заранее благодарен

[Гость]

Объект создаешь, а инициализацию не производишь. Добавь после строк

Set WshShell = CreateObject("WScript.Shell")
PrnParam="F:\Post\Recv\Raspor.rtf /p"

строку WshShell.Run(PrnParam)

То же и со вторым объектом...