GBKEE

¦^´_ 3# jewayy
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2. Dim t As Date
   
3.     t = Time
   
4.     On Error Resume Next
   
5. 1:
   
6.     Sheet1.QueryTables(1).Refresh False
   
7.     Debug.Print Err.Number                 '§Y®É¹Bºâµøµ¡¬d¬Ý Err.Number
   
8.     If Err.Number > 0 Then                 'Web¬d¸ß ¥¢±Ñ
   
9.         If Time > t + #12:00:10 AM# Then   '³s½u®É¶¡¶W¹L1¤ÀÄÁ
   
10.             If MsgBox("³s½u®É¶¡¶W¹L1¤ÀÄÁ Ä~ÄòWeb¬d¸ß ??", vbYesNo) = vbNo Then Exit Sub
    
11.             t = Time
    
12.         End If
    
13.         GoTo 1
    
14.     End If
    
15. End Sub

½Æ»s¥N½X

1. Sub Ex1()
   
2.     Dim t As Date
   
3.     t = Time
   
4.     On Error Resume Next
   
5.     Do
   
6.         Err.Clear
   
7.         Sheet1.QueryTables(1).Refresh False
   
8.         If Err.Number > 0 Then                 'Web¬d¸ß ¥¢±Ñ
   
9.             If Time > t + #12:00:10 AM# Then   '³s½u®É¶¡¶W¹L1¤ÀÄÁ
   
10.                 If MsgBox("³s½u®É¶¡¶W¹L1¤ÀÄÁ Ä~ÄòWeb¬d¸ß ??", vbYesNo) = vbNo Then Exit Sub
    
11.                 t = Time
    
12.             End If
    
13.         End If
    
14.     Loop While Err.Number > 0
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# jewayy

1. Sub Ex1()
   
2.     Dim t As Date
   
3.     t = Time
   
4.     On Error Resume Next
   
5.     With Sheet1
   
6.         .Range("A1:A3").Value = .Range("C1:C3").Value
   
7.     End With
   
8.     With Sheet2
   
9.         .Cells.Interior.ColorIndex = xlNone
   
10.         For I = 1 To .QueryTables.Count
    
11.             Err.Clear
    
12.             .QueryTables(I).Refresh False
    
13.             If Err.Number > 0 Then                 'Web¬d¸ß ¥¢±Ñ
    
14.                 With .QueryTables(I).ResultRange
    
15.                     .Interior.ColorIndex = 37
    
16.                     .Cells(1).Offset(1).Resize(.Rows.Count - 1, .Columns.Count) = "¬dµL¸ê®Æ"
    
17.                 End With
    
18.             End If
    
19.         Next I
    
20.     End With
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# jewayy
©_©Ç ´ú¸Õ¨S°ÝÃDªº, «ç¤S¥X²{ ,½Ð§ï¥Îª«¥óÃþ§O¼Ò²Õ.
½Ð¦b VAB¤¤´¡¤J¤@ ª«¥óÃþ§O¼Ò²Õ  ·|¦Û°Ê¦W¬° Class1
°õ¦æ Ex
Module1ªºµ{¦¡½X

1. Sub Ex()
   
2.     Dim i As Integer, Test() As New Class1
   
3.     'Test«ü©w¬° ·sª«¥óÃþ§O¼Ò²Õ :  Class1ª«¥ó
   
4.     On Error Resume Next
   
5.     For i = 1 To Sheet2.QueryTables.Count
   
6.         ReDim Preserve Test(1 To i)
   
7.         Set Test(i).Query = Sheet2.QueryTables(i)
   
8.         Test(i).Query.Refresh False
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

ª«¥óÃþ§O¼Ò²Õ   : Class1 ªºµ{¦¡½X

1. Option Explicit
   
2. Public WithEvents Query As QueryTable    'Query«ü©w¬°QueryTableª«¥ó
   
3. Private Sub Query_AfterRefresh(ByVal Success As Boolean)   '¬d¸ß«áªº¨Æ¥ó
   
4.   If Success = False Then    '¬d¸ß¥¢±Ñ   'Success = True   ¬d¸ß¦¨¥\
   
5.         With Query.ResultRange
   
6.             .Interior.ColorIndex = 37
   
7.             .Cells(1).Offset(1).Resize(.Rows.Count - 1, .Columns.Count) = "¬dµL¸ê®Æ"
   
8.         End With
   
9.   End If
   
10. End Sub
    
11. Private Sub Query_BeforeRefresh(Cancel As Boolean)  '¬d¸ß«eªº¨Æ¥ó
    
12.     With Query.ResultRange
    
13.             .Interior.ColorIndex = xlNone
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# jewayy
¨S¿ìªk¸Ñ¨M    §Aªº Web¬d¸ß ³]©w°Ñ¼Æ ÅÜ°Ê   ¨t²Î  ¦Û°Ê§ó·s¸ê®Æ    VBAµLªk±±¨î   
   

1. With Sheet1
   
2.             .Range("A1:A3").Value = .Range("C1:C3").Value    '±Ò°Ê ¨t²Î  ¦Û°Ê§ó·s¸ê®Æ
   
3.         End With

½Æ»s¥N½X

GBKEE

¦^´_ 13# blue2263
¥H¤U¬O§Úªº¨£¸Ñ

1.    On Error GoTo 101 '   'web ¬dµL ¨ì¤U¤@­Ó¥N½X  
   
2. ** ³æ¤@¦¸ªºRefresh¥¢±Ñ On Error GoTo 101 ¥i¥H³B²z
   
3. ** ¦ý³sÄòªºRefresh¥¢±Ñ On Error GoTo 101 µLªk³B²z(µL¸Ñ)
   
4.              .Range("az7").QueryTable.Refresh BackgroundQuery:=False
   
5. QueryTable.Refresh BackgroundQuery:=False           

½Æ»s¥N½X