Private Sub Command8_Click() 'Export
    Dim sfile As String
    Dim bResult As Boolean
    Screen.MousePointer = 11
    picProgress.Visible = True
    ShowProgress picProgress, 0, 0, 0, True
    DoEvents
    sfile = gcBenutzerPfadExport & "\export.xls"
    bResult = Grid1.DoExport(sfile, EXPORT_XLS, , EXPORT_HEADER_CAPTIONS, _
      EXPORT_FIELD_DISPLAYVALUE)
 
    If bResult Then
        If MsgBox("Export-Datei erfolgreich erstellt:" & vbCrLf & sfile & _
          vbCrLf & vbCrLf & "Export-Datei jetzt öffnen?", vbQuestion + vbYesNo) _
          = vbYes Then
            ShellExecute Me.hWnd, "open", sfile, "", "", 1
        End If
    End If
    Screen.MousePointer = 0
    picProgress.Visible = False
End Sub

Gru? Carsten

Ehrlich w?hrt am L?ngsten (sacht man...)