excel - 从 Access 将 Excel 窗口置于前台

Question

我正在尝试从 Access 打开一个 Excel 文件，它确实可以工作，但是 Excel 窗口会在后台弹出(在 Access 窗口后面)，这对用户不是很友好。这是我使用的代码:

Private Function OpenExcelAttachment()
Dim MyXL As Object
Set MyXL = CreateObject("Excel.Application")
With MyXL

   Dim FullPath As String, Name As String
   Name = "\ExcelFile.xlsx"
   FullPath = CurrentProject.Path & Name
   .Workbooks.Open FullPath
   .Visible = True

 End With

如何使 Excel 窗口出现在前台(在所有打开的窗口之上)？

谢谢!

Answer 1

我会首先检查已经打开的 Excel 实例。如果您必须允许应用程序的多个实例，那么这将更加棘手。如果您可以只使用一个 Excel 实例，那么我认为这应该可以使用 AppActivate陈述。

Private Function OpenExcelAttachment()
Dim MyXL As Object

On Error Resume Next
Set MyXL = GetObject(,"Excel.Application")
If Err.Number <> 0 Then Set MyXL = CreateObject("Excel.Application")
On Error GoTo 0

With MyXL
   Dim FullPath As String, Name As String
   Name = "\ExcelFile.xlsx"
   FullPath = CurrentProject.Path & Name
   .Workbooks.Open FullPath
   .Visible = True
End With

AppActivate "Microsoft Excel"

End Function