Процедура отлично работает с разъединенными ячейками,
а прочитать надо как раз значения, которые объединены.
Sub myCellValue(myPath As String, myFile As String)
Dim mySheet As String
mySheet = "Sheet1"
With Range("C2:C11"
.UnMerge '!!!!!!!!!!!!!не так надо, похоже
.Formula = "='" & myFile & "[" & myFile & "]" & mySheet & "'!" & "A1:A10"
.Value = .Value
End With
В приложении файлик закрытой книги для для примера, в котором интересуют значения
желтых ячеек.
Файл рабочий, но коммерческой тайны не содержит
а прочитать надо как раз значения, которые объединены.
Sub myCellValue(myPath As String, myFile As String)
Dim mySheet As String
mySheet = "Sheet1"
With Range("C2:C11"

.UnMerge '!!!!!!!!!!!!!не так надо, похоже
.Formula = "='" & myFile & "[" & myFile & "]" & mySheet & "'!" & "A1:A10"
.Value = .Value
End With
В приложении файлик закрытой книги для для примера, в котором интересуют значения
желтых ячеек.
Файл рабочий, но коммерческой тайны не содержит
Почему это я ничего не могу? Я могу быть плохим примером... ;)