Degassad, спасибо за «МегаКруть» :-)
Тоже гадал дописывать или очищать и проч., но решил на основе Вашего видения задачи привести вариант без заморочек, чтобы показать сам принцип.
Выравнивание ширины столбцов с помошью .Columns.AutoFit – это для удобства, не принципиально конечно.

Константин, приложил вариант с переменой XlsFilePath, в которой можно прописать папку с XLS-файлом данных. Можно вызывать и диалоговое окно для выбора файла данных, но это уже нехитрое дело.

Нужно учитывать, что форматирование ячеек, куда производится импорт приведенным методом, нужно делать самостоятельно либо вручную, как у меня в примере, либо кодом.

ZVIDegassad, спасибо
Извиняюсь за опечатку, Deggasad

Чтобы задать лист, куда импортировать, достаточно было в строке с
With ThisWorkbook.Sheets(1).UsedRange
вместо единицы в круглых скобках вписать требуемый номер листа или имя листа в двойных кавычках.

Для большей гибкости переписал процедуру с аргументами вместо констант - см. приложение.
Теперь совершенно очевидно как изменить вызов процедуры под конкретные нужды.

Константин, похвально, если Вы хотите научиться VBA.
Но ошибки при этом неизбежны, и не нужно их стесняться, потому что разбор своих ошибок чуть ли не лучшая школа.
Выкладывайте файл с кодом, показывайте, где что « перестает работать », и Вам помогут разобраться и исправить ошибки.

Если же нет времени/желания/возможности/смысла изучать VBA, то тоже всё нормально - не всем это нужно в жизни.
Но тогда лучше явно написать, что требуется не помощь в исправлении ошибок кода или формул, а полное решение такой-то проблемы.
Часто и в этом случае кто-то «подрывается» решить проблему, в крайнем случае, подскажут, где её быстро могут решить.

Константин Сочи... так как данных очень много, есть значения в виде текста типа "68 E 88"
при импорте данных если в ячейке книги с запросом формат данных как "текст" то Excel читает как " 6,8 Е +89"...
Есть какие нибудь мысли по поводу такого
Вы же сами хотели смешанных типов данных :-)
В данном случае Excel по своим встроенным правилам определяет, что записано число в экспоненциальной форме, а не текст. Если использовать русскую букву Е вместо английской, или с двух строн ставить двойные кавычки, то воспримется как текст.

Deggasad, Ваш вариант – супер! Сохранил в своей коллекции :-)

Константин СочиZVI MixedDataImport "=\\Pentium\Bases\", "Test.xls", "Лист1_Data", ThisWorkbook.Sheets(1). Range("A1")Константин, знак равенства не нужен при вызове функции,
т.е. вместо " = \\Pentium\Bases\" нужно "\\Pentium\Bases\"