|
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
|
|