■クリップボードへのコピーとクリップボードからのペースト
Me!Text.SetFocus
DoCmd.RunCommand acCmdCopy
Me!Text.SetFocus
DoCmd.RunCommand acCmdPaste
■起動中の他アプリケーションをアクティブ(最前面)に
AppActivate "Microsoft Excel - ABC.xls"
※パラメータには、アプリケーションのタイトルバーに表示されているタイトル文字列
例は、Excelアプリケーションがファイル名「ABC.xls」を起動中の場合。
■他アプリケーションの起動
Dim A
A = Shell(("msaccess " & Chr$(&H22) & "test.mdb" & Chr$(&H22)), vbMaximizedFocus)
AppActivate A, False上記例は、アクセスを起動し、「test.mdb」を実行、アプリケーションウインドウを最大化
■検索・置換メニューを呼び出す
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
■OSへ制御を一時渡す
DoEvents
※OSへ制御を移すDoEventsは、時間を取ります。大量のループで高速さが必要な場合は、次のように記述します。
Declare Function GetInputState Lib "USER32" () As Long ’API宣言部
:
For I = 0 to 100000
:
If GetInputState() Then DoEvents 'ループ中
Next I
■コンピュータ名、ドメイン名、ユーザー名
Dim W as Object
Set W = CreateObject("WScript.Network")
MsgBox W.ComputerName
MsgBox W.UserDomain
MsgBox W.UserName
Set W = Nothing