Добрый день. Предо мной стоит следующая задача:

В Открытую книгу(Назовём knig1), в заранее созданный  лист с именем Лист3. Вставить значения из другой книги(Knig2) из Листа1. Причём выбор книги должен осуществляться в ручную (наверн через GetOpenFilename). В knig2 заранее не известно число строк. Так же требуютя преобразования значений из knig2 по типу ЗНАЧЕН(ПЕЧСИМВ()) + изменять формат на Числой и Дата\время в зависимости от адреса ячеек (Допустим стоьлбцы A должны иметь тип Дата, а Столбцы B - числовой.)

Перечитал много постов в различных форумах, но так как знаний по VBA пока мало, подогнать предложенные решения под себя затруднительно... Так что прошу вашей помощи....  

Ладно, это слишком сложно =) 
Со вставкой значений из другой книги я сам разобрался. Вот так:


Но вот возник другой вопрос - часть значений сохраняется как текст, как мне их сохранить как числа. В формулах это делается через ЗНАЧ()....
Если можно сразу пример для преобразования диапазона.

               With .Workbooks.Open _
                     (Filename:=arrFiles, UpdateLinks:=False, ReadOnly:=True)
  'найти ПОСЛЕДНЮЮ заполненную ячейку в A
                   sc = .Range("A:A").Find("").Row - 1  
                    for n=1 to sc
                      BazaSht.cells(n,1) = Val(.Worksheets("Лист1").cells(n,1) .Text)
                    next
                       .Close
                     End With
                End With


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

BazaSht.cells(n,1) = Val(replace(.Worksheets("Лист1").cells(n,1) .Text,".",","))