VBAでLAN内のフォルダに格納されているファイルを開く処理を行いたいのですが、
エラーが出ます。(下記参照)
実行時エラー'462'
リモートサーバーがないか、使用できる状態ではありません。
詳細ですが、
Excel2000をベースにWord2000を組合せてマクロを組んでいます。
まずExcelでシート内のファイル名とそのフォルダを指定してやり、
そのフォルダにある該当する名前のWord2000ファイルを
開いて印刷、そして一旦閉じるという処理です。
これをファイルやフォルダを変えてExcelのリストにある
全てのファイルを順々に印刷させていきたいのです。
ループ処理で順々に開いて印刷、そして閉じる為、
そのファイルが格納されているフォルダのディレクトリを
一回一回 ChangeFileOpenDirectory で指定することになります。
ループ処理の1回目はうまくいきました。
しかし、2回目からが上記のエラーが出て進みません。
最初からマクロを起動し直すと、やはり1回目のループだけ
うまくいきます。
ヘルプでも詳しく解説されていないので、参っています。
分かりにくい部分は補足しますので、
お力を貸して下さい。
No.2
- 回答日時:
こんばんは。
KenKen_SP です。#1 の後、何となく思いあたったので取り合えず投稿してみます。
Word VBA の MSDN ライブラリを見て。
[参考URL引用] ChangeFileOpenDirectory メソッド
メモ ユーザーが [ファイルを開く] ダイアログ ボックスでフォルダを変更
するか、Word の現在のセッションが終了するまで、指定したフォルダから
文書が検索されます。
この辺の内容に思い当たりますか?
もう一つ。
Document.Open Filename:=ファイル名
でファイル名にはフルパスが使えます。ChangeFileOpenDirectory メソッド
を止めて Open メソッドにフルパスを渡す方法に変えてみては?
参考URL:http://msdn.microsoft.com/library/ja/default.asp …
No.3ベストアンサー
- 回答日時:
連続でスミマセン。
さらにもう一つ。[OFF2003] [INFO] Visual Basic の事前バインディングを使用すると、
Office オートメーションでエラーまたは予期しない現象が発生する
http://support.microsoft.com/kb/319832/ja
このページ内の下記内容。
・ "エラー 462" または "エラー -2147417848" :
Quit メソッドを呼び出すなどして既に終了している Office インスタンス
に対して、修飾されていないメソッドを使用しています。
実行するたびに Office アプリケーションの新しいインスタンスを作成する
ように記述されたコードは、通常はタスクが終了するとインスタンスを閉じ
ます。このコードを次に実行すると、修飾されていない呼び出しは失敗しま
す。Visual Basic は直前のインスタンスを呼び出しますが、リモート サー
バーはアンロードされています。
多分これかな? どこが原因なのかはコードを見ないとわかりませんが。
お騒がせしました。解決しました!
”修飾”などを確認している最中にハッとしました。
For文でループさせて、その
最後(ループ内)にQuitがあるのですが、
参考URLのサンプルを元にさせてもらいますが、
Set oXL = New Excel.Application
oXL.Visible = True
の部分がループに入る前、つまりループ外にいました。
気付くと単純なミスですね。
Setも色々例文を探しまくって転記したような感じがあり、
完全に理解出来ないまま使っていたのも原因です。
だんだんと分かってきました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「パス名が無効です」の発生原因
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
VBから参照できないCのDLLを使...
-
Returnに対するGoSubがありません
-
Excel VBAのApplication.Execut...
-
EXCELのVBAでWORDが開いてある...
-
[VBS]ファイルコピーで怪奇現象
-
VBA ExecuteExcel4Macro 型が一...
-
VB スクリプトで
-
FORTRANの実行エラーについて
-
今DirectSoundの初期化でわから...
-
gccを行ってもexeファイルが生...
-
EXCELのVBAでの保存方法
-
Excel 2003 のエラーメッセージ
-
アクセスでイベントのロジック...
-
fgets関数のEOFの扱い方について
-
【COBOL】read文でエラー
-
access テキストボックスの値取得
-
すでにファイルが開かれている...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
gccを行ってもexeファイルが生...
-
VBでファイルが開かれているか...
-
「パス名が無効です」の発生原因
-
batファイルでレジストリキーの...
-
Returnに対するGoSubがありません
-
VBから参照できないCのDLLを使...
-
PowerShellを使って関連付けら...
-
アクセスのクエリでコンパイル...
-
VB6 Dir関数で52エラー発生
-
FTPの送信結果を検知したい
-
NAS上のファイルの使用中が解除...
-
VBA ExecuteExcel4Macro 型が一...
-
access テキストボックスの値取得
-
EXCELのVBAでWORDが開いてある...
-
すでにファイルが開かれている...
-
EXCELVBAでONEDRIVE上への保管...
-
Excelファイルのマクロによる排...
-
OUTLOOK VBA 指定フォルダ内の...
-
RAR圧縮ファイル(分割)の順番が...
-
エクセルマクロでエラーの原因...
おすすめ情報