Вернуть значение ячейки из листа книги (название листа меняется)

[krong]

Господа и дамы, вопрос жизни и смерти! Хелп.

С программированием в Excel ранее не сталкивался.

Задача такая - в главный файл возвращать значение ячеек из второстепенного файла. Названия листов второстепенного файла постоянно меняются, но они находятся в одном и том же порядке. Собственно вот весь мой код:

Sub GetDataFromFile()

Range("h7").Formula = "='C:\[Апрель.xlsx]sheet(4)'!D29"
Range("h8").Formula = "='C:\[Апрель.xlsx]sheet(4)'!I29"
Range("h9").Formula = "='C:\[Апрель.xlsx]sheet(4)'!N29"
Range("h10").Formula = "='C:\[Апрель.xlsx]sheet(4)'!S29"

End Sub

Это и есть вся программа, но строк будет гораздо больше. В данном случае лист второстепенного файла идет четвертым по счету слева на право.
Вопрос:
1) Я ссылаюсь не на имя листа, а на его индекс (порядковый номер слева направо)? Или это не так и я делаю какую-то ерунду.
2) Почему при выполнении этого макроса одним нажатием заполняется лишь одна ячейка? Приходится делать 4 нажатия.
3) Почему ячейки не заполняются автоматически? При каждом нажатии вылетает окно и предлагает выбрать вручную лист второстепенного файла, откуда брать информацию.

[krong]

update

[krong]

update

[Aleksandr H.]

Option Explicit

Sub GetDataFromFile()
    Dim shN As String
    Dim fileName As String
    Dim path As String
    Dim filePath As String
    filePath = "C:\"
    fileName = "April.xlsx"
    
    shN = Get4thSheetName(filePath & fileName)
    If (shN <> vbNullString) Then
        path = filePath & "[" & fileName & "]" & shN
        Debug.Print path
        Debug.Print "='" & path & "'!D29"
        Range("h7").Formula = "='" & path & "'!D29"
        Range("h8").Formula = "='" & path & "'!I29"
        Range("h9").Formula = "='" & path & "'!N29"
        Range("h10").Formula = "='" & path & "'!S29"
    End If
    
End Sub

Function Get4thSheetName(file)
    Dim sh As Object
    Dim c As Worksheet
    Set sh = GetObject(file).Worksheets
    If sh.Count >= 4 Then
        Get4thSheetName = sh(4).Name
    Else
        Get4thSheetName = vbNullString
    End If
End Function

[krong]

Сообщение от Aleksandr H.

Option Explicit

Sub GetDataFromFile()
    Dim shN As String
    Dim fileName As String
    Dim path As String
    Dim filePath As String
    filePath = "C:\"
    fileName = "April.xlsx"
    
    shN = Get4thSheetName(filePath & fileName)
    If (shN <> vbNullString) Then
        path = filePath & "[" & fileName & "]" & shN
        Debug.Print path
        Debug.Print "='" & path & "'!D29"
        Range("h7").Formula = "='" & path & "'!D29"
        Range("h8").Formula = "='" & path & "'!I29"
        Range("h9").Formula = "='" & path & "'!N29"
        Range("h10").Formula = "='" & path & "'!S29"
    End If
    
End Sub

Function Get4thSheetName(file)
    Dim sh As Object
    Dim c As Worksheet
    Set sh = GetObject(file).Worksheets
    If sh.Count >= 4 Then
        Get4thSheetName = sh(4).Name
    Else
        Get4thSheetName = vbNullString
    End If
End Function

Спасибо большое! Все работает. Работа оптимизирована =)

[krong]

Вопрос можно закрыть