Приветствую!
Может кто подскажет?
Есть WA, есесно на ней DataGrid находится :)
Как можно со страницы запустить Excel и передать в него инфу из DG?
На VB такое можно сделать, но как на C#???
P.S.: необходимо именно открыть процесс Excel, а не просто в выходной поток сливать итнфу из DG... :)

Неужели никто не знает... :(

не работает у меня...
если кому не влом, напишите точно как сделать
задача: открыть Excel прямо с web-формы и засунуть туда данные из DataGrid, а не сохранять в файл и пересылать юзеру и не открывать этот файл Excel-ом в окне IE, а ИМЕННО ОТКРЫТЬ EXCEL!

щас кину код на vb, чтобы не быть голословным

Sub ExportExcel
    
    On Error Resume Next
    Set appl = CreateObject("Excel.Application")
    if Err.Number=429 then    
         msgbox "Невозможно создать объект Excel. " + chr(13)+chr(10) + _
            "Вам нужно изменить свойства Internet Explorer, а именно проделать следующее:" + chr(13)+chr(10) + _
            "Меню Сервис -> Свойства обозревателя -> Безопастность ->" + chr(13)+chr(10) + _
            "Зона интернет -> кнопка Другой -> Элементы ActiveX и модули подключения ->" + chr(13)+chr(10) + _
            "установить флажок для поля Использование элеменов ActiveX " + chr(13)+chr(10) + _
            "не помеченных как безопастные в положение Разрешить" + chr(13)+chr(10)

    else
    Set twb = appl.Workbooks.Add()
    
    Dim tmp, i, j
    tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    For i = 0 To 600
    If i > 25 Then snab(i) = Trim(Mid(tmp, i \ 26, 1)) Else snab(i) = ""
        snab(i) = snab(i) + Mid(tmp, i Mod 26 + 1, 1)
    Next

    appl.ScreenUpdating = False
    twb.Sheets(1).Activate
    twb.Sheets(1).Application.Range(b(excel_freeze_column,3)).Activate
    appl.ActiveWindow.FreezePanes = True
    
    Dim tttt
    ReDim tttt(y_size,x_size)    
    
    Dim RegX
    Set RegX=new RegExp
    RegX.Pattern=chr(13)
    RegX.Global=True    
    
    For i = 0 To x_size-1    
     twb.Sheets(1).Range(b(i+2, 1)).EntireColumn.ColumnWidth=CLng(Mid(document.all("header"+Trim(CStr(i+1))).style.width,1,instr(1,document.all("header"+Trim(CStr(i+1))).style.width,"px")-1)/7)
     twb.Sheets(1).Range(b(i+2, 1)).EntireColumn.IndentLevel = 1    
     tttt(0,i) = RegX.Replace(document.all("header"+Trim(CStr(i+1))).innerText,"")
    Next
    
    RegX.Pattern=","
    RegX.Global=True    
    For i = 0 To x_size-1    
        For j = 1 To y_size-1
            tttt(j,i) = RegX.Replace(CStr(document.all("field"+Trim(CStr(j))+"_"+Trim(CStr(i+1))).innerText),".")
        next
    next

    twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2+y_size-1)).NumberFormat="@"
    twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2+y_size-1))=tttt
    twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2)).WrapText = True
    twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2)).VerticalAlignment=2
    twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2)).HorizontalAlignment=3
    twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2)).Interior.Color=&HDDDDFF
    twb.Sheets(1).Range(b(2, 2)).EntireRow.RowHeight=twb.Sheets(1).Range(b(2, 2)).EntireRow.RowHeight*2
    twb.Sheets(1).Range(b(1, 1)).EntireRow.RowHeight=4
    twb.Sheets(1).Range(b(1, 1)).EntireColumn.ColumnWidth=0.5
    With twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2+y_size-1)).Borders
    .ColorIndex = 16
    .Weight = 2
    .LineStyle = 1
    End With
    twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2+y_size-1)).Font.Size=8
    twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2+y_size-1)).BorderAround 1,3
    twb.Sheets(1).Range(b(2, 2)+":"+b(2+x_size-1, 2)).BorderAround 1,3
    
    appl.ScreenUpdating = True
    appl.Visible=True
    End if
    
End Sub

Задача "чтобы работало везде" - не стоит. Есть предположения как сделать просто копию того, что я привёл на VB на C#? :)

Это называется - переглючило... Причём меня так глючило 2 дня... Спасибо большое за ответы, я разобрался.

Иногда полезно почувствовать себя полным идиотом...