AccessでEXCELを最大化状態で最前面に表示するVBA


こんにちは脇村です。僕のブログでは、本業での実務上のEXCEL、ACCESSマクロ&VBAの使えそうなコードの紹介、コールドリーディングの実践例、人生の難易度を下げる方法、自己啓発コラム最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はAccess VBAについて発信させてください。
こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながります。
少しずつ発信していってその手助けができれば幸いだと思っています。
今回はAccessでEXCELを最大化状態で最前面に表示するVBAについてです。

です。

'---標準モジュール------------------------------							
'■WinAPI-Declear宣言				'①			
#If VBA7 And Win64 Then							
'64Bit用							
Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwindow As Long, ByVal cmdshow As Long) As Long							
#Else							
'32Bit用							
Declare Function ShowWindow Lib "user32" (ByVal hwindow As Long, ByVal cmdshow As Long) As Long							
#End If							
							
'■WinAPI-利用関数							
'Windowを最前面に表示							
'AppAvctive app.Caption 'appはCreateObjectで作成した変数							
Function FrontWin(h As Long) As Integer							
							
'SW_HIDE = 0 //ウィンドウを隠して他のウィンドウにフォーカス							
'SW_SHOWNORMAL = 1 //通常サイズで表示しフォーカスをあたえる							
'SW_SHOWMINIMIZED = 2 //最小化状態で表示しフォーカスをあたえる							
'SW_SHOWMAXIMIZED = 3 //最大化状態で表示しフォーカスをあたえる							
'SW_SHOWNOACTIVATE = 4 //通常サイズで表示するがフォーカスはなし							
'SW_SHOW = 5 //通常サイズで表示しフォーカスをあたえる							
'SW_MINIMIZE = 6 //最小化状態で表示し、Z オーダーが次のトップレベルウィンドウにフォーカス							
'SW_SHOWMINNOACTIVE = 7 //アイコン化して表示してフォーカスはなし							
'SW_SHOWNA = 8 //現在のサイズで表示するが、フォーカスはなし							
'SW_RESTORE = 9 //=SW_SHOWNORMAL							
'SW_SHOWDEFAULT = 10 //CreateProcessのパラメータとおりに表示							
'SW_FORCEMINIMIZE //ウィンドウを所有するスレッドがハングしていても、ウィンドウを最小化							
'//(win2000以降)							
'SW_NORMAL = SW_SHOWNORMAL							
'SW_MAXIMIZE = SW_SHOWMAXIMIZED							
'SW_MAX = SW_SHOWNOACTIVATE							
							
'最大化して最前面に							
Dim res As Long			'②				
res = ShowWindow(h, 3)							
End Function							
							
sub EXCELを最大化状態で最前面に表示する ()							
							
Dim res As Long			'③				
Dim xls As Object							
							
'Excelの生成							
Set xls = CreateObject("Excel.Application")							
xls.Workbooks.Open ("パス名\ファイル名")		'④			
xls.Visible = True							
							
'******EXCELを最前面に(1)							
AppActivate xls.Caption							
'******EXCELを最前面に(2)							
res = FrontWin(xls.Hwnd)							
Set xls = Nothing							
							
End Sub																																																																			

①から②はそっくりそのまま使用してください。②はコメントにある3という数字が最大化状態で表示しフォーカスをあたえるVBAです。
③もこのまま使用してください。EXCELが最大化状態で最前面に表示されるはずです。
④の”パス名\ファイル名”は開きたいパスのファイル名を指定してください。

以上、AccessでEXCELを最大化状態で最前面に表示するVBAついてでした。このプログラムは非常に汎用性が高いので、是非とも有効活用して下さい。次回もまたよろしくお願いします。

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
今回の記事はこれで締め切らせていただきます。 脇村の日常で役に立つ技術ー雑記ブログ記事、次回もよろしくお願い致します。

末筆ながら、本サイトのカテゴリーごとの記事です。
各記事の一番下の方に、関連記事のリンクが貼ってあるので、興味があれば参照お願い致します。
せどりで月商70万円達成する方法(ノーブランド品)
ダイナマイトモチベーションDM6「自分を愛すること」
日常のつぶやき―脇村(24年2月14日)
今の時代に必要な考え方(人間関係のトラブルを防ぐ方法)
コールドリーディング実践例その48
コールドリーディング講義(コールドリーディングの使えるフレーズ集)
おすすめ本「君しかいない!と言われる人になる」
今の時代を生き抜くために-脇村( 正社員と非正社員はどちらが得か)
Excel VBA L列規格半角文字にするVBA
電話占いの現場での嫌な質問が来た時について

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

  • Kindle本 (電子書籍)も出版しております。

タイトル:人生の難易度を下げる知識・思考法2: テクニックの前にマインドセットが重要
リンク: https://www.amazon.co.jp/dp/B0D9ZKZF88/
タイトル:人生の難易度を下げる知識・思考法!ストレスを減らして楽になる
リンク: https://www.amazon.co.jp/dp/B0DK5TLVC8/
タイトル:どんな女も口説き落とす話術!コールドリーディングの秘技
リンク: https://www.amazon.co.jp/ebook/dp/B0DD8R2SP5/

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆

ウォーターランド

関連記事
Accessでエラーテーブルを自動で削除するVBA
AccessでテーブルにIDというフィールドを追加するVBA
Accessでテーブルのデータ型を変更するVBA
Accessでテーブルに主力キーを2つ設定するVBA
AccessでDoCmd.TransferDatabaseメソッドで自DBへテーブルをエクスポートするVBA
Accessで本体右上の×を無効するVBA
Accessでフォームに変更した内容を保存するVBA
AccessでEXCELの最終行は指定しないでインポートする時のVBA
AccessでCSVを指定してインポートする時のVBA
Accessでカンマ区切りのCSVを書き出す時のVBA


コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA