下記にて修正ウインドウは閉じる事が出来ました。 Dim title_str As String = "データの表示&修正" Hwnd_syuusei = FindWindow(vbNullString, title_str)retValue = SendMessage_B(Hwnd_syuusei, WM_CLOSE, 0&, 0&)まだ修正ウインドウの [ Save ] が押せないです。
Call 名前 ※必須 文字色 ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ Eメール 公開または未記入非公開 タイトル sage URL メッセージ 手動改行 強制改行 図表モード メッセージには上記と同じURLを書き込まないで下さい > 下記にて修正ウインドウは閉じる事が出来ました。 > > Dim title_str As String = "データの表示&修正" > Hwnd_syuusei = FindWindow(vbNullString, title_str) > retValue = SendMessage_B(Hwnd_syuusei, WM_CLOSE, 0&, 0&) > > まだ修正ウインドウの [ Save ] が押せないです。 > 画像File (130kBまで) 暗証キー (英数字で8文字以内) 投稿キー (投稿時 を入力してください) プレビュー