Проблема с Excel 97 если я выполняю дважды этот код,т.е. если в Excel который я создал добавляю WorkBook, а потом закрываю одну книгу он спрашивает типа сохранить я нажимаю нет и Excel с оставшейся рабочей книгой закрывается при этом остается висеть в памяти

Dim ExApp As Excel.Application
Dim ExWrb As Excel.Workbook
Dim ExWsh As Excel.Worksheet

Dim hwnd As Long
On Error Resume Next
Set ExApp = GetObject(, "Excel.Application") ' Пытаемся получить первый уже существующий объект приложение Excel
If Err.Number <> 0 Then
Err.Clear
Set ExApp = CreateObject("Excel.Application")
End If
hwnd = FindWindow("XLMAIN", 0)
If hwnd <> 0 Then ' 0 means Excel not running.
SetWindowPos hwnd, 0, -15000, 0, 0, 0, SWP_NOSIZE + SWP_NOZORDER
End If
If ExApp Is Nothing Then Err.Raise 10001, , "Ошибка при создании объекта Excel"
Set ExWrb = ExApp.Workbooks.Add
Set ExWsh = ExWrb.Sheets.Item(1)
ExWsh.Name = "Выборка "
ExWsh.Range("A1:B1").Value = "Тест"
ExApp.Visible = True
SetWindowPos hwnd, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW + SWP_NOSIZE

Set ExWrb = Nothing
Set ExWsh = Nothing
Set ExApp = Nothing

Мне не нужно его программно закрывать, надо его показать пользователю и если он делает еще раз экспорт то использоваться должен тот же Excel.

ТО вранье какое-то
Тебе описали ситуацию в которой происходит ошибка.Если в каком то месте код не правильно написан укажи на это место.А то прогнал пургу какую то.

Если вот так пишешь не работает

Dim ExApp As Excel.Application
Dim ExWrb As Excel.Workbook
Dim ExWsh As Excel.Worksheet

On Error Resume Next
Set ExApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set ExApp = CreateObject("Excel.Application")
End If
If ExApp Is Nothing Then Err.Raise 10001, , "Ошибка при создании объекта Excel"
ExApp.Visible = False
Set ExWrb = ExApp.Workbooks.Add
Set ExWsh = ExWrb.Sheets.Item(1)
ExWsh.Name = "Выборка "
ExWsh.Range("A1:B1").Value = "Тест"
ExApp.Visible = True

Set ExWrb = Nothing
Set ExWsh = Nothing
Set ExApp = Nothing

Если ExApp.Visible = False ставишь после Set ExWrb = ExApp.Workbooks.Add
То работает

Dim ExApp As Excel.Application
Dim ExWrb As Excel.Workbook
Dim ExWsh As Excel.Worksheet

On Error Resume Next
Set ExApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set ExApp = CreateObject("Excel.Application")
End If
If ExApp Is Nothing Then Err.Raise 10001, , "Ошибка при создании объекта Excel"
Set ExWrb = ExApp.Workbooks.Add
ExApp.Visible = False
Set ExWsh = ExWrb.Sheets.Item(1)
ExWsh.Name = "Выборка "
ExWsh.Range("A1:B1").Value = "Тест"
ExApp.Visible = True

Set ExWrb = Nothing
Set ExWsh = Nothing
Set ExApp = Nothing