[ Каскадный ] · Стандартный · Линейный+ F1, F1!, Нужон хэлп по Excel

[[Dominant]]

Общий привет.

Может кто подскажет по такому вопросу:
Нужно из одного листа Экселя организовать запись значений определенных ячеек в другой файл экселя.

Принцип:
Человек заполняет ячейки в исходном файле, давит на батон... Данные помещаются в другой файл ДОБАВЛЯЯСЬ новой строчкой к уже существующим там данным.

Во.

[shura51]

Ну если совсем в лоб...
Два файла Sor.xls и Targ.xls
Targ.xls изначально закрыт закрыт
Ha первом листе Sor.xls вводятся данные в ячейки A1 и B1...
В Targ.xls данные записываются на первый лист в ячейки Ai и Bi с каждым разом о первую пустую строчку под существующими данными...
После чего Targ.xls сохраняется и закрывается...

На первом листе Sor.xls нарисовать кнопку и на кнопке написать такой код


Private Sub CommandButton1_Click()

Workbooks.Open Filename:="D:\Мои документы\Targ.xls"
Workbooks("Targ.xls").Activate

'Определение последней пустой строки при условии хотя бы одной заполненной ячейке в диапазоне.

i = 1

While Workbooks("Targ.xls").Sheets(1).Cells(i, 1).Value <> "" Or Workbooks("Targ.xls").Sheets(1).Cells(i, 2).Value <> ""
i = i + 1
Wend

'Запись данных из одного файла в другой

Workbooks("Targ.xls").Sheets(1).Cells(i, 1) = Workbooks("Sor.xls").Sheets(1).Cells(1, 1)
Workbooks("Targ.xls").Sheets(1).Cells(i, 2) = Workbooks("Sor.xls").Sheets(1).Cells(1, 2)

Workbooks("Targ.xls").Save
Workbooks("Targ.xls").Close

End Sub


Ну я понимаю, что это коряво, но рыть нужно в этом направлении...

Лучше в Targ.xls на отдельном листе организовать счётчик строк, который будет увеличиваться на единицу при внесении очередной порции данных, а то с каждой новой строкой время выполнения будет увеличиваться...