См. Конкретный лист

Я хочу найти конкретную Рабочую таблицу (скажем «FebData») во всех открытых книгах, при условии, что имя всех книг полностью зависит от пользователя (это может быть что угодно). Честно говоря, googling и прикладывать некоторые усилия к моей стороне, а также я получил этот код.

Dim wbSearch As Workbook, wsSearch As Worksheet, wsFind As Worksheet
Dim name As String
Dim j As String
name = InputBox("Enter your Sheet Name, You are searching for.")
If Len(name) = 0 Then 'Checking if Length of name is 0 characters
MsgBox "Please enter a valid name!", vbCritical
Else
j = name
End If
' to search a worksheet in all opened worksheets
For Each wbSearch In Application.Workbooks
    For Each wsSearch In ActiveWorkbook.Sheets
        if wsFInd = j then 
        worksheet("j").activate
        else
    Next wsSearch
Next wbSearch
end if

Наконец, я хочу добавить функцию, которая не имеет представления о том, как писать код для этого, - если присутствуют два листа с одним и тем же именем (вход от пользователя), просто появляется msgbox «Duplicate sheet found».

vba,excel-vba,excel,

0

Ответов: 1

0

Это будет проходить через книги, а затем прокручивать каждый лист

    Sub LoopBks()

    Dim wb As Workbook, sh As Worksheet

    For Each wb In Application.Workbooks
        If wb.Name <> ActiveWorkbook.Name Then
            For Each sh In wb.Sheets
                If sh.Name = "FebData" Then
                    MsgBox "Sheets found in..." & wb.Name
                End If
            Next sh
        End If
    Next wb

End Sub
VBA, Excel-VBA, первенствует,
Похожие вопросы
Яндекс.Метрика