Set xlApp = createObject("Excel.Application") 'создаем объект Excel
Set xlWB = xlApp.Workbooks.Add 'создаем новую книгу
Set xlSheet = xlWB.Sheets(1) ' выбираем первую "страницу"
xlApp.visible = True ' делаем объект видимым
xlApp.Selection.InsertFile( "c:\" & embed.Name) не пойму почему не присоединяется!

 

<!--QuoteBegin-Fan13tom+27:01:2006, 09:38 -->
<span class="vbquote">(Fan13tom @ 27:01:2006, 09:38 )</span><!--QuoteEBegin-->embed.Name

[snapback]29870" rel="nofollow" target="_blank[/snapback]​

[/quote]

А это где определено ?

<!--QuoteBegin-Fan13tom+27:01:2006, 09:38 -->
<span class="vbquote">(Fan13tom @ 27:01:2006, 09:38 )</span><!--QuoteEBegin-->xlApp.Selection.InsertFile( "c:\" & embed.Name)

[snapback]29870" rel="nofollow" target="_blank[/snapback]​

[/quote]
замени на

filepath$="c:\" & embed.Name
Print filepath$
xlApp.Selection.InsertFile(filepath$)

и все станет ясно