copy một hàng trong excel vào 1 file excel khác

[THU_bt]

có anh chị nào biết copy một hàng trong 1file excel vào 1 file excel khác không ạ? Chỉ cho mèo biết với! Tks các anh chị nhiều nhé! Nếu mà có code và ví dụ thì tốt quá!

[truongphu]

Code: [Select all] [Expand/Collapse]

1. Private Sub Command2_Click()
2. ' Khai báo biê'n u'ng dung ba't buôc
3. Dim Ex As New Excel.Application
4. ' Lênh mo' file Excel
5. Set aa = Ex.Workbooks.Open(App.Path & "\book1")
6. Set bb = Ex.Workbooks.Open(App.Path & "\book2")
7. ' Lênh Copy Row1 book1 sang book2
8. aa.Worksheets("sheet1").Range("A1", "M1").Copy Destination=bb.Worksheets("Sheet2").Range("B2")
9. bb.Save bb.Close Set bb = Nothing
10. aa.Close Set aa = Nothing Set Ex = Nothing
11. MsgBox "Ðã xong"
12. End Sub

GeSHi © Codebox Plus Extension

[THU_bt]

hi hi
cảm ơn anh phú nhé!

[lipton150786]

vậy khi mình muốn input data vào exel theo nhiều dòng nhiều cột thì thì nào. Trường hợp mỉnh không xác định được số cột và số hàng.
Vd: Hàng 1 có 30 cột mà hàng thứ 2 chỉ có 10 cột thôi....

[truongphu]

vậy khi mình muốn input data vào exel theo nhiều dòng nhiều cột thì thì nào. Trường hợp mỉnh không xác định được số cột và số hàng.
Vd: Hàng 1 có 30 cột mà hàng thứ 2 chỉ có 10 cột thôi....

* Nếu bạn chỉ đưa dữ liệu vào vài cell của file xls, đương nhiên phải chỉ rõ vị trí cell
* Nếu bạn đưa dữ liệu hàng loạt: bạn buộc phải biết cấu trúc file xls
=> Access với mdb (chặt chẽ) và Excel với xls (linh động) đa số đều cấu trúc theo cột, mà theo csdl gọi là field.
Một field có thể có giá trị thực hoặc để trống
Vậy thì bạn cứ lệnh cho nhập theo field (cột) trên cùng một record (hàng)
cứ thế tuần tự
Hình như bạn lơ mơ...

[chipmunk]

Trường hợp mỉnh không xác định được số cột và số hàng.
Vd: Hàng 1 có 30 cột mà hàng thứ 2 chỉ có 10 cột thôi....

thì copy theo từng hàng một

[lipton150786]

thanks mình đã hiểu.