Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1638 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【72962】マクロのエラーについて タカマチ 12/10/18(木) 5:58 質問[未読]
【72965】Re:マクロのエラーについて ウッシ 12/10/18(木) 10:28 回答[未読]
【72962】マクロのエラーについて
質問  タカマチ  - 12/10/18(木) 5:58 -
引用なし
パスワード
   1.実行時エラー‘‐2147417848(80010108)‘：
オートメーションエラーです。起動されたオブジェクトはクライアントから切断されました。
2.実行時エラー‘50290‘：
アプリケーション定義またはオブジェクト定義のエラーです。
問題のある個所をそれぞれ1.、2.と示しました。それぞれの対処法のご指導お願いいたします。
[エクセルのバージョン]Excel2010
[OSのバージョン]Windows Vista
以下デバッグ
Sub update()
'
' update Macro
'
Sheets("real").Select '
Dim 開始時間, 待機時間
開始時間 = TimeValue(Now)
待機時間 = Now + TimeValue("0:01:00")
Application.OnTime 待機時間, "書き込み"
End Sub
Sub 書き込み()
　　Windows("MasterMulti64exp.xls").Activate　←2.
　　　待機時間 = Now + TimeValue("0:01:00")
Application.OnTime 待機時間, "書き込み"
　　 Sheets("real").Select
　　　　Range("R1").Select
　　ActiveCell.FormulaR1C1 = "=NOW()"
　　Range("R2").Select
　　Sheets("rate").Select
　　Range("A1").Select
　　Selection.QueryTable.refresh BackgroundQuery:=False　←1.
Sheets("real").Select
　　　　 Range("AA14:AE81").Select
　　Selection.Copy
　　Range("AA13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
If Range("AM3").Value = 1 Then
　　Range("BL14:BQ80").Select
　　Selection.Copy
　　Range("BL13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
　　 Range("AM2:AR2").Select
　　Selection.Copy
　　Range("BL80").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
ElseIf Range("V4").Value = 0 Then
　　Range("AY14:BC81").Select
　　Selection.Copy
　　Range("AY13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
　　 Range("AS14:AW81").Select
　　Selection.Copy
　　Range("AS13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
　　　　Range("AM14:AQ81").Select
　　Selection.Copy
　　Range("AM13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
　　　　Range("AG14:AK81").Select
　　Selection.Copy
　　Range("AG13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
ElseIf Range("V3").Value = 0 Then
　　Range("AS14:AW81").Select
　　Selection.Copy
　　Range("AS13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
　　Range("AM14:AQ81").Select
　　Selection.Copy
　　Range("AM13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
　　　　Range("AG14:AK81").Select
　　Selection.Copy
　　Range("AG13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
　 ElseIf Range("V2").Value = 0 Then
　　Range("AM14:AQ81").Select
　　Selection.Copy
　　Range("AM13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
ElseIf Range("V1").Value = 0 Then
　　Range("AG14:AK81").Select
　　Selection.Copy
　　Range("AG13").Select
　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　IconFileName:=False
　　Sheets("real").Select
　　　　Range("A1:D3").Select
　　End If
　　 Range("A4:A6").Select
End Sub
【72965】Re:マクロのエラーについて
回答  ウッシ  - 12/10/18(木) 10:28 -
引用なし
パスワード
   こんにちは

マクロの設定してあるブックと、「MasterMulti64exp.xls」は別ですか？

もう少し、コードを整理出来るようになって下さい。

Selectだらけで、読む気になれません。
どのブックのどのシートのどのセルか明示して、Selectを省略出来ると
「Windows("MasterMulti64exp.xls").Activate」は不要になるかも知れません。

「Selection.QueryTable.refresh BackgroundQuery:=False」も
実際はどのブックのどのシートに設定したクエリーなのか・・・
「Selection」が意図した場所と違うかも？

コードの整理が出来れば、今回のエラーも解消されるのではないかと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1638 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free