我写了下面的VBA。它正在工作,但有以下问题。任何帮助,将不胜感激。问题:
- 它不会完全按照指定的时间间隔粘贴。
- 当电子表格最小化时它停止工作 - 并在 Worksheets("IV track").Select 上给出错误。
Sub CopyPaste()
'
' Workbooks("Option Chain.xlsm").Activate
Worksheets("IV track").Select
Range("A14").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("A19").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Nifty Analysis").Select
Range("B4").Select
Call Test
End Sub
Sub Test()
Application.OnTime Now + TimeValue("00:15:00"), "CopyPaste"
End Sub