|
いつもお世話になっています。
標記について教えてください。
Openステートメントを使えばいいのかな、
と思い、やってみているのですが、どうにもうまくいきません。
処理の流れは、
myDir = "C:\tmp\"
fileName = Dir(myDir & "*.ai", vbNormal)
iniFF = FreeFile
Do While fileName <> ""
Open myDir & fileName For Append As #iniFF
On Error GoTo err1
Set docRef = illApp.Documents(1)
docRef.PrintOut
fileName = Dir
Close #iniFF
Loop
Exit Sub
err1:
Close #iniFF
こんな感じです。
目的は、フォルダの中にあるillustratorファイルを開き、
それを印刷する、というものです。
JavaScriptでは、open()を使うことでわかっているのですが、
VBAでの、illustratorとかのファイルの開き方がわかりません。
エラーは、there is no such elmentというメッセージが、
Set docRef = illApp.Documents(1)
の部分で、発生します。docRefはNothingのままです。
|
|