blacy
Technical User
- Jun 17, 2000
- 16
I am opening an Excel worksheet and populating a cell in a named range called "MyName" with data from Access form. This works fine but when I return to Excel it is hung in the Save file mode! Excel appears to be closed but when I return to Excel I get this problem. What am I missing here?
Private Sub Command148_Click()
Dim obj As Object
Set obj = GetObject(Me.[QuoteFilePath] & "/" & "Test1.xls")
obj.Application.Visible = True
obj.Windows(1).Visible = True
obj.Application.ScreenUpdating = False
obj.Application.Goto "MyName"
obj.Application.ActiveCell.FormulaR1C1 = [QuoteRef]
obj.SaveAs [QuoteFilePath] & "/" & "Test1.xls"
obj.Application.Quit 'exit Excel
End Sub
Private Sub Command148_Click()
Dim obj As Object
Set obj = GetObject(Me.[QuoteFilePath] & "/" & "Test1.xls")
obj.Application.Visible = True
obj.Windows(1).Visible = True
obj.Application.ScreenUpdating = False
obj.Application.Goto "MyName"
obj.Application.ActiveCell.FormulaR1C1 = [QuoteRef]
obj.SaveAs [QuoteFilePath] & "/" & "Test1.xls"
obj.Application.Quit 'exit Excel
End Sub