[Deputy]

Цитата: Сообщение от AdmiralMK Dim iRow As Integer Dim iClm As Integer FList = Application.GetOpenFilename("Excell (*.xls), *.xls", , "Open", , True) For Each FName In FList Application.Workbooks.Open FName Application.ActiveWorkbook.Sheets(1).Select With ActiveSheet.UsedRange iRow = .Row + .Rows.Count - 1 iClm = .Column + .Columns.Count - 1 End With Cells(iRow + 1, 1).Value = FName Next

Это что? Вопрос или ответ?