☰

Перемещайтесь между листами каждые 10 секунд и переносите данные каждые 20 минут в один код

tag-icon • tag-icon microsoft-excel vba
Перемещайтесь между листами каждые 10 секунд и переносите данные каждые 20 минут в один код

Мне нужен скрипт, который переключается между листами каждые 10 секунд, а затем каждые 20 минут запускает какой-то код, который выводит некоторые данные с помощью функции копирования-вставки, а затем выполняет цикл, пока я не нажму «Esc».

Вот мой код на данный момент:

Sub Move_Between_Sheets()
  Dim i As Long, j As Long, t As Single, k As Long
  Application.ScreenUpdating = True
i = 0
  j = Sheets.Count
  On Error GoTo exit_
  Application.EnableCancelKey = xlErrorHandler

  Do
  For k = 1 To 3
    i = i + 1
    If i > j Then i = 1
    Sheets(i).Select
    t = Timer + 1
    Application.Wait Now + TimeSerial(0, 0, 10)
    If Timer < t Then Exit Do
  Next k
  Call BringPK03
  Loop
exit_:
End Sub 
------------------
Sub BringPK03()

Dim sheet As Worksheet
Dim wbPlantillas As Workbook
Dim wbAplicativo As Workbook

Set wbAplicativo = ThisWorkbook
 Application.ScreenUpdating = False
    'Application.Calculation = xlCalculationManual
'13. URL [Link]
'The database workbook is opened from WorkPoint. The sheets in database workbook are copied and pasted in wbAplicativo
   Set wbPlantillas = Workbooks.Open("C:\Users\jmartine\Desktop\Tracking Advance.xlsx", True, True)

   wbPlantillas.Sheets("FC Paso a Paso").Range("A1:AU4500").Copy

   wbAplicativo.Sheets("Sheet1").Range("A1:AO1573").PasteSpecial xlPasteValues
   Application.CutCopyMode = False

   wbPlantillas.Close savechanges:=False
   Windows("BringData.xlsm").Activate

   wbAplicativo.Worksheets("Sheet1").Activate
   Application.ScreenUpdating = True
   Range("A1").Select
   Call Move_Between_Sheets


End Sub

Мой код выполняется до тех пор, пока функция BringPK03 не принесет данные и не вставит их в мою книгу, а затем код продолжает выполняться, но почему-то перемещение между листами не работает.

решение1

В Move_Between_Sheets() вы выбираете лист, но не активируете его. Переключение будет выполнено только после его активации.

Связанный контент