' API-Deklaration zum Öffnen der Excel-Datei
Private Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" (ByVal hWnd As Long, _
  ByVal lpOperation As String, _
  ByVal lpFile As String, _
  ByVal lpParameters As String, _
  ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long
 
Private Sub Form_Load()
Dim i As Long
 
With sevGrid1
.DataMode = Mode_List
.AllowMultiSelect = True
.ColumnAdd "", "Col1"
For i = 1 To 10
    .AddItem "item " & i
Next
.Refresh
End With
 
End Sub
 
Private Sub Command1_Click()
    sevGrid1.DoExport "c:\test.xls", EXPORT_XLS
    ShellExecute Me.hWnd, "open", "c:\test.xls", "", "", 1
End Sub
 
Private Sub sevGrid1_ExportProgress(ByVal nRow As Long, ByVal nRows As Long, _
  bSkip As Boolean, bCancel As Boolean)
    If Not sevGrid1.IsSelected(nRow) Then
        bSkip = True
    End If
End Sub