PowerPoint и Excel

[Филатова Галина]

Как в макросе PowerPoint переменной присвоить значение ячейки Excel?

[doober]

______Ваш код_______________________

Dim sh As Object
Dim Peremennaia As Variant

Set sh = GetObject("C:\1.xls").Sheets(1) ' Или Set sh = GetObject("C:\1.xls").Sheets("Имя листа")

Peremennaia = sh.Cells(2, 2) ' строки идентичны

Peremennaia = sh.Range("B2")  '   строки идентичны

_____________________________
Ваш код

[Филатова Галина]

Спасибо! Работает!