Я отправляю нужные данные из грида в ексель. Ексель первый раз открывается нормально
, а второй раз виснет. Может где то надо закрыть какую то процедуру.
И еще как сделать так чтоб при каждом открытие документ сохранялся под новым именем.
заранее спасибо!!!

Private Sub Command4_Click()
Dim n As Integer, n1 As Integer
Dim i As Integer
Dim Dat As String, ret As String, Er As String
Dim Rut As Integer
Dim objExcel As Excel.Application

Set objExcel = Excel.Application
On Error GoTo Error
objExcel.Workbooks.Open (App.Path & "\fpl.xls")

flgClient.Row = 1
flgClient.Col = 13
objExcel.Cells(10, 2).Value = flgClient.Text
flgClient.Row = 1
flgClient.Col = 9
objExcel.Cells(11, 2).Value = flgClient.Text
flgClient.Row = 1
flgClient.Col = 7
objExcel.Cells(12, 2).Value = flgClient.Text
flgClient.Row = 1
flgClient.Col = 2
objExcel.Cells(16, 4).Value = flgClient.Text
flgClient.Row = 1
flgClient.Col = 1
objExcel.Cells(16, 5).Value = flgClient.Text

objExcel.Visible = True
Set objExcel = Nothing
Exit Sub

Error:
Set objExcel = Nothing
MsgBox ("Error " & Err.Description)
End Sub

Все всем спасибо я опять сам разобрался

Может быть но с ней тоже работает всем спасибо за дискусию

спс