VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

リンク元へ戻ります。 Excel・Word 関係のメニュー
1.VBからExcel及びWordを操作する時の注意事項
2.VBからエクセルを起動・終了する基本操作例
3.上記、基本操作例を使ってのVBからExcel にデータを送りグラフを表示
4.Excel ワンポイントテクニック集
5.Excel 2007 以降のリボンを操作する及びユーザーからの操作を禁止する
6.指定のセル範囲の列幅・行の高さを含めてコピー・アンド・ペーストする
7.
8.
9.
10.
11.VB6.0 からワードを起動・終了する基本操作例
12.Word の既存ファイルを読み込み検索・置き換え後保存する
13.VB6.0からExcel/Wordを起動しExcelの表をWordに貼付印刷する
14.VBから Word の差し込み印刷機能を使って[宛て名ラベル]を印刷する
15.Word の Tasks プロパティを使ってのタスク(プロセス)の一覧を取得・他
16.Word VBA 簡易リファレンス及び使用例
17.
18.
19.
20.


15.Word の Tasks プロパティを使ってのタスク(プロセス)の一覧を取得及び操作色々
1.Word の Tasks プロパティを使ってのタスク(プロセス)の一覧を取得
2.指定のアプリケーションが起動中かを調べ、起動していない場合は、起動する
3.Excel が現在実行中であるかどうかを調べ、起動中なら Excel をアクティブにします
4.指定のファイル(*.xls/*.txt等)が使用中かどうかを調べる
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Word 2007/Word 2010(Word 2000〜Word 2003)
Option :[Option Explicit]
参照設定:Microsoft Word *.* ObjectLibrary  参照設定方法参照
使用 API:

その他 :
    :
このページのトップへ移動します。 1.Word の Tasks プロパティを使ってのタスク(プロセス)の一覧を取得

Private Sub Command1_Click()
'起動中のタスク(プロセス)の一覧を取得
  Dim wdApp  As New Word.Application
  Dim myTk As Task
  For Each myTk In wdApp.Tasks
    '表示中(Windouがある)のプロセスだけを表示
    If myTk.Visible Then
      Debug.Print myTk.Name
    End If
  Next
  wdApp.Quit
  Set wdApp = Nothing
End Sub

このページのトップへ移動します。 2.指定のアプリケーションが起動中かを調べ、起動していない場合は、起動する

Private Sub Command2_Click()
  Dim wdApp  As New Word.Application
  Dim myTasks As Tasks
  Set myTasks = wdApp.Tasks      '何度も使用するなら
  If myTasks.Exists("電卓") Then
    With myTasks("電卓")
      .Activate
      .WindowState = wdWindowStateNormal
    End With
  Else
    Shell "calc.exe"
    myTasks("電卓").WindowState = wdWindowStateNormal
  End If

  Set myTasks = Nothing
  wdApp.Quit
  Set wdApp = Nothing
End Sub

このページのトップへ移動します。 3.Excel が現在実行中であるかどうかを調べ、起動中なら Excel をアクティブにします

Private Sub Command3_Click()
  Dim wdApp  As New Word.Application
  Dim myTasks As Tasks
  Set myTasks = wdApp.Tasks      '何度も使用するなら
  If myTasks.Exists("Microsoft Excel") = True Then
    With myTasks("Microsoft Excel")
      .Activate
      .WindowState = wdWindowStateMaximize
    End With
  Else
    MsgBox "Microsoft Excel は、起動されていません。"
  End If
  Set myTasks = Nothing
  wdApp.Quit
  Set wdApp = Nothing
End Sub


このページのトップへ移動します。 4.指定のファイル(*.xls/*.txt等)が使用中かどうかを調べる

Private Sub Command4_Click()
  Dim wdApp As New Word.Application
  Dim myTk As Task
  Dim Mekke As Boolean
  For Each myTk In wdApp.Tasks
    'Windows 7 の IDE 環境では、vbTextCompare が動作しない場合があります。(EXE の場合は OK )
    If InStr(1, myTk.Name, "Address.xls", vbBinaryCompare) Then 'vbTextCompare
      MsgBox "そのファイルは現在使用中です"
      Mekke = True
      Exit For
    End If
  Next
  If Mekke = False Then
    MsgBox "そのファイルは使用されていません"
  End If
  wdApp.Quit
  Set wdApp = Nothing
End Sub

メモ帳・Excel・Word 等で使用されている場合なら有効ですが、ファイル名を WindouText に表示しない場合は無効です。

このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
VB6.0 から Word を起動する VB6.0 から Word を終了する VB6.0 から ワード を起動する VB6.0 から ワード を終了する
タスクの一覧を取得  プロセスの一覧を取得 指定のアプリが起動中かどうかを調べる 指定のファイルが使用中かどうかを調べる プロセス一覧から表示中のファイルを調べる EnumWindows
VBA  Visual Basic for Applications


このページのトップへ移動します。