Вызов DTS посредстовом VBA из EXCEL

Формулировка задачи:

В ячейке Excel хранится имя DTS сервиса,
как в Excel оформить макрос, который бы вызвал работу этого сервиса.

Решение задачи: «Вызов DTS посредстовом VBA из EXCEL»

textual
                            Листинг программы 
                        
                            <font color="blue">Dim</font> dtsPackage  <font color="blue">As</font> Package
<font color="blue">Set</font> dtsPackage = <font color="blue">New</font> Package

dtsPackage.LoadFromSQLServer <font color="green">"Server"</font>, <font color="green">"login"</font>, <font color="green">"password"</font>, , , , , <font color="green">"DTSPacketName"</font> <font color="darkblue"><i>' dtspacketname - имя пакета из ячейки</i></font>
dtsPackage.Execute