Есть ли у нас функция «Exists» для поиска листов Excel с использованием VBA - PullRequest
Новая
       9

Есть ли у нас функция «Exists» для поиска листов Excel с использованием VBA

0 голосов
/ 30 января 2019

Мои листы книги Excel названы с датами («ДД-МММ-ГГГГ»), и мне нужно передать данные с каждого листа в другой Excel.Когда я использую цикл for (от даты к дате), дата, для которой лист недоступен, сдерживает мой сценарий. У нас есть что-то, что называется не существует в VBA? 

Sub gettheTips()
 Dim fromDate As Date
 Dim toDate As Date

 fromDate = InputBox("Enter the From date for the tips")
 toDate = InputBox("Enter the To date for the tips")

    'Ensure that from date less than the to date
    If (fromDate < toDate) Then

       'Select all the tips from date todate
        For i = fromDate To toDate
         dt = Format(i, "d-mmm-yyyy")
         'MsgBox (dt)
            'copy paste the tips from all the days to the Report sheet
            If Worksheet(dt <> "") Then

               Sheets(dt).Select
                Range("E9").Select
                Selection.Copy
                Sheets("Report").Select
                Range("E17").Select
                ActiveSheet.Paste
            Else
             MsgBox ("The worksheet named" & dt & "does not exists")
            End If

          Next
    Else
    MsgBox ("From Date is greater than the todate entered")

End Sub

Я ожидаю коддля отображения рабочего листа сообщения с именем «» не существует, если датированный лист недоступен в книге

...