Может код соблаговолите представить? У меня на Windows 7 64 Excel 2010 32 ничего подобного не наблюдается.
да раньше тоже все работало просто такая же ситуация была на win xp и там было тупо обновление безопасности и офиса или вместе вообщем там я их удалил и все заработало, думаю на win 7 так же, пол года назад тоже работало, но пол года назад стояла тоже 10 а сечас 13 ексель стоит + assecc 2003 для базы
событие кнопки:
[vba]Код
Private Sub Кнопка74_Click()
'On Error GoTo Err_Кнопка74_Click
Dim ExcelWasNotRunning As Boolean ' Flag for final release.
Dim oApp As Object
On Error Resume Next
Set oApp = GetObject(",Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear ' Clear Err object in case error occurred.
' Check for Microsoft Excel. If Microsoft Excel is running,
' enter it into the Running Object table.
DetectExcel
' On Error GoTo rr2:
Set oApp = GetObject("C:\acsess\newlic\Реестр.xls")
oApp.Visible = True
'Only XL 97 supports UserControl Property
oApp.Application.Visible = True
oApp.Parent.Windows(1).Visible = True
'On Error Resume Next
oApp.UserControl = True
If ExcelWasNotRunning = False Then
oApp.Application.Quit
End If
'Set oApp = Nothing ' Release reference to the application and spreadsheet.
'rr2:
'MsgBox "Не найден файл! " & Err.Description
'Resume Next
' MsgBox "The user started Access: " & Application.UserControl
'oApp.Close
' oApp.Quit
'oApp.Application.Quit
'Exit Sub
'oApp.Application.Close
'Exit_Кнопка74_Click:
' Exit Sub
'Err_Кнопка74_Click:
' MsgBox Err.Description
' Resume Exit_Кнопка74_Click
End Sub
[/vba]