質問: dir(myfilename) then msgbox "指定したファイルは開かれています" exit sub else msgbox "powerpointの処理を実行します" '処理 end if next end sub
回答: こんばんは。 どこが間違いとかいうよりも、私なら、こう書いているかなっていう感じですね。直してみると、違った趣旨のコードが残る所をみると、まったく違ったことを考えていらっしゃるのかなぁっていう気がします。 '// sub test1() dim pptapp as object dim pptfile as object dim myfilename as string myfilename = "powerpointの使い方" 'application.getopenfilename 'ここでファイル名を求めると、まったく違った内容になるはずです。 set pptapp = getobject(, "powerpoint.application") if pptapp is nothing then msgbox "powerpointは、起動しておりません", vbexclamation exit sub else for each pptfile in pptapp.presentations if pptfile.name like myfilename & "*" then msgbox "指定したファイルは開かれています" exit sub else msgbox "powerpointの処理を実行します" 'この意味が分かりません。 '処理 end if next end if end sub '//