Excel VBA質問箱 IV

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

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


9332 / 76732 ←次へ | 前へ→

【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
1 hits

【72962】マクロのエラーについて タカマチ 12/10/18(木) 5:58 質問
【72965】Re:マクロのエラーについて ウッシ 12/10/18(木) 10:28 回答

9332 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free