謝謝請教

陳老闆

我想設定日期和時間(2024-01-01/12:00:00)開始執行Test1,應如何修改,謝謝請教

Sub Test1()
Application.OnTime TimeValue("2024-01-01,12:00:00"), Test1"

    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:="URL;https://club.excelhome.net" _
        , Destination:=Range("$A$1"))
        .Name = "club.excelhome"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

End Sub

红军2023

1. Sub Test1(Optional StartTime As Date = "2024/01/01 11:59:59", Optional EndTime As Date = "2024/01/01 12:00:00")
   
2. 
   
3.     Application.EnableEvents = False
   
4.     Application.ScreenUpdating = False
   
5.     OnTime
   
6.     Application.CutCopyMode = False
   
7. 
   
8.     With ActiveSheet.QueryTables.Add(Connection:="URL;https://club.excelhome.net" _
   
9.         , Destination:=Range("$A$1"))
   
10.         .Name = "club.excelhome"
    
11.         .FieldNames = True
    
12.         .RowNumbers = False
    
13.         .FillAdjacentFormulas = False
    
14.         .PreserveFormatting = True
    
15.         .RefreshOnFileOpen = False
    
16.         .BackgroundQuery = True
    
17.         .RefreshStyle = xlInsertDeleteCells
    
18.         .SavePassword = False
    
19.         .SaveData = True
    
20.         .AdjustColumnWidth = True
    
21.         .RefreshPeriod = 0
    
22.         .WebSelectionType = xlEntirePage
    
23.         .WebFormatting = xlWebFormattingNone
    
24.         .WebPreFormattedTextToColumns = True
    
25.         .WebConsecutiveDelimitersAsOne = True
    
26.         .WebSingleBlockTextImport = False
    
27.         .WebDisableDateRecognition = False
    
28.         .WebDisableRedirections = False
    
29.         .Refresh BackgroundQuery:=False
    
30.     End With
    
31. 
    
32.     Application.Wait Now + TimeValue("0:00:01")
    
33. 
    
34.     Application.PrintPreview
    
35.     Application.PrintOut Preview:=False, Copies:=1, PreviewType:=xlPreviewPrint, PrintToFile:=False, From:=1, To:=1, IncludeDocProperties:=False, IgnorePrintAreas:=False, UseISO12208:=False, OpenAfterPublish:=False
    
36. 
    
37.     Application.EnableEvents = True
    
38.     Application.ScreenUpdating = True
    
39.     Application.CutCopyMode = xlOff
    
40. End Sub
    

复制代码

qline302

Sub RunTest1()
'定时运行语句应单独Sub
Application.OnTime TimeValue("2024-01-01 12:00:00"), "Test1"
End sub

陳老闆

謝謝老師, 已解決

liulang0808

https://club.excelhome.net/blog-238368-1680.html?_dsign=907b57e7
资料供参考。。。。。。