Visual Basic（VBAではなく）にExcel SaveAsダイアログを表示

Question

Accessデータベースに接続し、いくつかのSQL文を作成し、その結果をExcelファイルに書き込もうとするVisual Basicプログラムを作成しました。

xlApp.Dialogs(Excel.XlBuiltInDialog.xlDialogSaveAs).Show() 

ダイアログが最大化されているプログラムで、背後にある：

すべてが、それは名前を付けて保存]ダイアログを呼び出したときを除いて、正常に動作します。したがって、ダイアログが閉じるのを待っている間にプログラムがハングアップしているように見えますが、ダイアログにはアクセスできません（Alt + Tabは除きますが、これは醜い回避策です）。

私はダイアログを前面に押し込むための方法はありますか？私は関連するスレッドhereを見つけましたが、私は別のスレッドを扱っていません。そこのOPはBringToFrontメソッドを示唆していますが、私はxlApp.Dialogsでそのメソッドを使用する方法がわかりません。

ありがとうございました！

Answer 1

ウィンドウハンドルを見つけ、したがって、上記の機能を使用すると、のような何かを行うことができるはずですSetForegroundWindow

Public Function FindWindowByPartialTitle(ByVal _ 
    TestFlex_string As String) As Long 
    m_TestFlexString = TestFlex_string 
    m_TestFlexHwnd = 0 

    ' Enumerate windows. 
    EnumWindows AddressOf EnumCallback, 0 

    ' Return the hWnd found (if any). 
    FindWindowByPartialTitle = m_TestFlexHwnd 
End Function 

' Check a returned task to see if it's the one we want. 
Public Function EnumCallback(ByVal app_hWnd As Long, ByVal _ 
    param As Long) As Long 
Dim buf As String 
Dim title As String 
Dim Length As Long 

    ' Get the window's title. 
    Length = GetWindowTextLength(app_hWnd) 
    buf = Space$(Length) 
    Length = GetWindowText(app_hWnd, buf, Length) 
    title = Left$(buf, Length) 

    ' See if the title contains the TestFlex string. 
    If InStr(title, m_TestFlexString) <> 0 Then 
     ' This is the one we want. 
     m_TestFlexHwnd = app_hWnd 

     ' Stop searching. 
     EnumCallback = 0 
    Else 
     ' Continue searching. 
     EnumCallback = 1 
    End If 
End Function 

を呼び出す：だけでなくSetForegroundWindow decalreすることを忘れないでください

Dim saveAsHwnd as Long 

call saveAsHwnd = FindWindowByPartialTitle("Save") 
call SetForegroundWindo(saveAsHwnd) 

を：

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long