サービス終了のお知らせ いつもYahoo! JAPANのサービスをご利用いただき誠にありがとうございます。 お客様がアクセスされたサービスは本日までにサービスを終了いたしました。 今後ともYahoo! JAPANのサービスをご愛顧くださいますよう、よろしくお願いいたします。
えー! そんなことできるの? という感じですが。。。 Sub Push(Items,Item) ReDim Preserve Items(UBound(Items)+1) Set Items(UBound(Items))=Item End Sub Applications=Array() On Error Resume Next Set Application1=GetObject(,"Excel.Application") On Error GoTo 0 If Not IsEmpty(Application1) Then Count1=GetObject("winmgmts:root\CIMV2").ExecQuery("SELECT * FROM Win32_Process WHERE Name='EXCEL.EXE'").Count Push Applications,Applica
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く