Прошу помощи с импортом данных

[DimST]

Здравствуйте.

Прошу помочь, так как мозг не очень понимает Excel (

1. Есть первый файл, в котором лишь 3 столбца данных, Ячейки А1, В1 и С1 - заголовок (Наименование, Количество, Цена). Данные начинаются с ячеек А2, В2 и С2. Строк в каждом столбце не более 10 000. (во вложении - File1).

2. Есть основной файл (во вложении - File2), куда требуется осуществлять импорт данных из первого файла, с диапазона А2:C10000 (это если учитывать, что максимум данных есть) в аналогичный в основном файле. Беда в том, что строк может быть и 820 и 9900 и 10000.

Как макросом можно импортировать регулярно данные из первого файла в основной?

Заранее огромное спасибо!

[IgorGO]

а "регулярно импортировать" - это как?
по времени, по пинку оператора?

каждая очередная порция импортируемых данных должна:
- дописаться в конец данных
- должна обновить данные
- предварительно удалить старые данные

[DimST]

Сообщение от IgorGO

а "регулярно импортировать" - это как?
по времени, по пинку оператора?

каждая очередная порция импортируемых данных должна:
- дописаться в конец данных
- должна обновить данные
- предварительно удалить старые данные

Простите, сразу не указал.

Да, по пинку оператора.

Я сделаю макрос, зачищающий диапазон А2:С10000 (чтоб наверняка)

Соответственно, перед запуском процедуры импорта все будет писаться по-новому...

[IgorGO]

предполагается, что файл1 открыт в экселе

при активном листе, в который собираетесь импортировать данные, выполните этот макрос:

Sub Import1()
  Cells(2, 1).Resize(ActiveSheet.UsedRange.Rows.Count, 3).ClearContents
  With Workbooks("file1.xlsx").Worksheets(1)
    .Cells(2, 1).Resize(.UsedRange.Rows.Count, 3).Copy Cells(2, 1)
  End With
End Sub

[DimST]

Сообщение от IgorGO

предполагается, что файл1 открыт в экселе

Спасибо огромное!

А с закрытым возможно операцию подобную сделать?

Что-то вроде

Workbooks.Open Filename:="file.xlsx"
Workbooks("file.xlsx").Close

не поможет в таком случае?

[IgorGO]

поможет, только здесь укажите имя файла с полным путем к нему:

Filename:="диск:\папка\...file.xlsx "

[Hugo121]

Не проще ли сделать копию файла под новым именем? Или ещё проще - переименовать.

[DimST]

Сообщение от IgorGO

поможет, только здесь укажите имя файла с полным путем к нему:

Filename:="диск:\папка\...file.xlsx "

Огромное спасибо Вам за помощь!

[DimST]

Как обычно в таких случаях происходит, доп вопрос разве что возник

Не подскажете, каким образом такое же копирование осуществляется между листами? То есть, имеется лист с данными в 3 столбца, эти 3 столбца просто скопировать в другой лист в таком же виде, как и импортировались они?

Опять же, по пинку оператора

Я понимаю, что можно выделить и скопировать, однако если уж началась автоматизация, кнопкой было бы просто эстетичнее ))

[DimST]

В принципе, разобрался.

Sheets("Лист1").Range("A2:С10000"). Copy Sheets("Лист2").Range("A2")

Больше, чем 10000 все равно не будет!

Спасибо ещё раз за помощь всем откликнувшимся )