Trang 1/3 1 2 3 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 26
  1. #1
    Tham gia ngày
    07 2007
    Bài gởi
    7
    Cảm ơn
    2
    Được cảm ơn 2 lần trong 2 bài viết

    Smile Cách lấy dữ liệu từ 1 file Excel sang file Excel khác

    Dear all,
    Tôi mới coi về VBA nên cũng chưa rành lắm.
    Mọi người cho tôi hỏi. Tôi muốn lấy dữ liệu từ 1 file Excel (dữ liệu thô) để đổ vô 1 file Excel khác theo layout định sẵn thì làm cách nào?
    Ai biết vui lòng chỉ giúp.
    Xin cám ơn.

  2. #2
    Tham gia ngày
    02 2009
    Nơi Cư Ngụ
    Miền quê đất võ
    Bài gởi
    147
    Cảm ơn
    134
    Được cảm ơn 22 lần trong 15 bài viết
    Trích Nguyên văn bởi tackenui View Post
    Dear all,
    Tôi mới coi về VBA nên cũng chưa rành lắm.
    Mọi người cho tôi hỏi. Tôi muốn lấy dữ liệu từ 1 file Excel (dữ liệu thô) để đổ vô 1 file Excel khác theo layout định sẵn thì làm cách nào?
    Ai biết vui lòng chỉ giúp.
    Xin cám ơn.
    Muốn người khác giúp thì hay đưa file giả lập lên, mọi người xem thì dễ hiểu hơn

  3. #3
    Tham gia ngày
    08 2009
    Nơi Cư Ngụ
    Miền Tây quê hương tui
    Bài gởi
    1,078
    Cảm ơn
    1,677
    Được cảm ơn 1,207 lần trong 705 bài viết
    Trích Nguyên văn bởi tackenui View Post
    Dear all,
    Mọi người cho tôi hỏi. Tôi muốn lấy dữ liệu từ 1 file Excel (dữ liệu thô) để đổ vô 1 file Excel khác theo layout định sẵn thì làm cách nào?
    Ai biết vui lòng chỉ giúp.
    Xin cám ơn.
    Tui nghĩ bạn nên dùng record macro để ghi lại những thao tác bạn làm.Thí dụ bạn muốn copy cột A đến cột D chẳng hạn từ file dữ liệu thô sang file bạn muốn thao tác xử lý số liệu (" file excel khác của bạn đó") sao đó bạn gán nút lệnh để cho nó chạy lại những tao tác đó là xong. Bạn vào Tools > Macro > record Marco > rồi thực hiện xong bạn vào trở lại Tools > Macro >stoping Marco. Bạn vẽ hình ngôi sao hay hình gì đó gán macro đó vào là xong bằng cách click chuột phải vào hình đó chọn Asign macro > chọn new hoặc edit tuỳ theo. Tui thường làm theo cách này sao đó tự động rút gọn lại, Mong giúp ích được bạn. Thanks

  4. Có 4 thành viên cảm ơn nmhung49 về bài viết này:


  5. #4
    Tham gia ngày
    04 2009
    Bài gởi
    101
    Cảm ơn
    96
    Được cảm ơn 124 lần trong 26 bài viết
    Cách này với điều kiện là 2 file đều đã được mở ra rồi thì mới được. Xin hỏi thêm bác nmhung49 rằng: nếu muốn thực hiện việc copy và dán như trên nhưng chỉ cần mở một file "nguồn"; file "đích" đóng (2file cùng thư mục) thì phải làm thế nào ạ!?

  6. #5
    Tham gia ngày
    08 2009
    Bài gởi
    117
    Cảm ơn
    19
    Được cảm ơn 84 lần trong 57 bài viết
    Trích Nguyên văn bởi phamxuyenp171 View Post
    Cách này với điều kiện là 2 file đều đã được mở ra rồi thì mới được. Xin hỏi thêm bác nmhung49 rằng: nếu muốn thực hiện việc copy và dán như trên nhưng chỉ cần mở một file "nguồn"; file "đích" đóng (2file cùng thư mục) thì phải làm thế nào ạ!?
    Vẫn làm được khi dùng VBA. Bạn gửi file lên có người giúp
    Thân

  7. #6
    Cái này dễ thôi !
    Bạn fải biết một chút VB để nói mới biết chứ ....
    Mot doan CODE de lay mot du lieu tho (chon vung) cua mot Sheet bat ky cua mot file
    dan vao Sheet hien hanh (nguoi su dung muon dan), nhu sau
    Code cho phan mo file
    Doan code viet trong Module
    Goi lenh copy trong boxe_text_code (trong Sheet cua nguoi dung)

    Sub copy_data()
    On Error Resume Next
    Dim basebook As String
    Dim mybook As Workbook
    Dim fname As String
    Dim Mypath As String
    Application.ScreenUpdating = False
    Mypath = Application.ActiveWorkbook.Path
    basebook = ActiveWorkbook.Name
    ChDrive Mypath
    ChDir Mypath
    fname = Application.GetOpenFilename(filefilter:="Execel files (*.xls), *.xls", Title:="Chon file nguon", MultiSelect:=False)
    Set mybook = Workbooks.Open(fname)
    mybook.Worksheets(1).Activate………………… xác định tên Sheet (phải biết chính xác Sheet nào cần dán)
    ' Vung chon de dan
    Range("A1:J1").Select……………………… …………………..xac dinh vung chuan bi
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows(basebook).Activate
    ' Chon Sheet de dan
    Sheet1.Select
    Range("A1").Select………………………vùng bđầu chọn
    ActiveSheet.Paste
    Range("A4").Select………………………vùng con trỏ đứng sau khi thực hiện lệnh xong
    Application.CutCopyMode = False
    mybook.Close False
    Application.ScreenUpdating = True
    End Sub
    thay đổi nội dung bởi: dohoa_69ks, 30-07-11 lúc 06:02 PM Lý do: thêm đoạn CODE

  8. Có 2 thành viên cảm ơn dohoa_69ks về bài viết này:


  9. #7

    Cách lấy dữ liệu từ 1 file Excel sang file Excel khác

    Chào các bạn,

    Mình muốn lấy dữ liệu từ một sheet sang sheet khác, mình có gửi file dinh kem, các bạn xem giúp mình nha.

    Cảm ơn trước,,
    Tập tin đính kèm Tập tin đính kèm

  10. #8
    Trích Nguyên văn bởi dohoa_69ks View Post
    Cái này dễ thôi !
    Bạn fải biết một chút VB để nói mới biết chứ ....
    Mot doan CODE de lay mot du lieu tho (chon vung) cua mot Sheet bat ky cua mot file
    dan vao Sheet hien hanh (nguoi su dung muon dan), nhu sau
    Code cho phan mo file
    Doan code viet trong Module
    Goi lenh copy trong boxe_text_code (trong Sheet cua nguoi dung)

    Sub copy_data()
    On Error Resume Next
    Dim basebook As String
    Dim mybook As Workbook
    Dim fname As String
    Dim Mypath As String
    Application.ScreenUpdating = False
    Mypath = Application.ActiveWorkbook.Path
    basebook = ActiveWorkbook.Name
    ChDrive Mypath
    ChDir Mypath
    fname = Application.GetOpenFilename(filefilter:="Execel files (*.xls), *.xls", Title:="Chon file nguon", MultiSelect:=False)
    Set mybook = Workbooks.Open(fname)
    mybook.Worksheets(1).Activate………………… xác định tên Sheet (phải biết chính xác Sheet nào cần dán)
    ' Vung chon de dan
    Range("A1:J1").Select……………………… …………………..xac dinh vung chuan bi
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows(basebook).Activate
    ' Chon Sheet de dan
    Sheet1.Select
    Range("A1").Select………………………vùng bđầu chọn
    ActiveSheet.Paste
    Range("A4").Select………………………vùng con trỏ đứng sau khi thực hiện lệnh xong
    Application.CutCopyMode = False
    mybook.Close False
    Application.ScreenUpdating = True
    End Sub
    Đoạn code trên chỉ áp dụng cho 2 file thôi.
    Bây giờ mình có 3 file. (flie có tên là "BF" trong file "BF" có sheet "BF", Flie "BRF" có sheet tên là "BRF" file "CF" có sheet tương ứng là "CF")
    Mình có một file nguồn (file này có tên là "tong hop" va co sheet "tong hop".)
    Bây giờ mình muốn copy lần lượt 3 sheet "BF", "BRF", "CF" vào sheet "tong hop"
    Ví dụ copy sheet "BF" có 60000 dòng.
    Tiếp đến copy dữ liệu ở sheet "BRF" vào tiếp dòng tiếp theo của sheet "tong hop" (tức là copy vào dòng 60001)
    và tiếp đến là copy sheet "CF".
    Nhưng dữ liệu của mình lớn hơn 100000 dòng nên phải dùng 2007 mới chứa nổi vì excel 2003 chỉ được hơn 65000 dòng thôi.
    Mong bạn chỉ giúp mình.
    thanks

  11. #9
    Tham gia ngày
    01 2012
    Bài gởi
    18
    Cảm ơn
    0
    Được cảm ơn 3 lần trong 2 bài viết
    Trích Nguyên văn bởi tuangiang25022008 View Post
    Đoạn code trên chỉ áp dụng cho 2 file thôi.
    Bây giờ mình có 3 file. (flie có tên là "BF" trong file "BF" có sheet "BF", Flie "BRF" có sheet tên là "BRF" file "CF" có sheet tương ứng là "CF")
    Mình có một file nguồn (file này có tên là "tong hop" va co sheet "tong hop".)
    Bây giờ mình muốn copy lần lượt 3 sheet "BF", "BRF", "CF" vào sheet "tong hop"
    Ví dụ copy sheet "BF" có 60000 dòng.
    Tiếp đến copy dữ liệu ở sheet "BRF" vào tiếp dòng tiếp theo của sheet "tong hop" (tức là copy vào dòng 60001)
    và tiếp đến là copy sheet "CF".
    Nhưng dữ liệu của mình lớn hơn 100000 dòng nên phải dùng 2007 mới chứa nổi vì excel 2003 chỉ được hơn 65000 dòng thôi.
    Mong bạn chỉ giúp mình.
    thanks
    Đoạn Code này xem qua tôi ngại không thể thực hiện 2 lần được , vì lần đầu chọn Sheet1 ở ô A1 làm điểm bắt đầu và paste vào . Nếu lần thứ 2 thì nó cũng lại select A1 then Paste again in there ??? Đâu có chỗ nào bảo nó dò xem LastRow ở đau để Paste kế tiếp .

    Khi chọn Range("A1:J1").Select để copy, xlDown đi xuống cho đến khi Blank thì dừng . Ở paste thì dừng ở A4, cho thấy copy chỉ vỏn vẹn 3 rows only . Như vậy tha hồ Copy Paste đau sợ hết sheet 1 đau Cho dù 1000 lần, mỗi lần paste chỉ có 3 rows = 3000 rows . Nếu đã giả sử là nhiều rows cần copỵ mà mình không biết là bao nhiêu rows thì dùng xlDown , vậy có cần With không ??

    Chứa không nổi thì dùng loop (For hoặc Do) copy từ range nào đến đau . Nếu trang đó full thì qua tiếp paste trang khác

    Tôi chập chững học VBA, có gì sai mong thứ lỗi nhé
    thay đổi nội dung bởi: scooby, 11-03-12 lúc 03:28 PM

  12. #10
    Tham gia ngày
    12 2009
    Bài gởi
    1,516
    Cảm ơn
    624
    Được cảm ơn 1,019 lần trong 631 bài viết

    chuyển dữ liệu từ FILE này sang FILE khác

    Xin được các cao thủ cho ý kiến bài này dùm, xin cảm ơn
    Tôi có 2 file FILE1 FILE2 bây giờ tôi muốn dùng code VBA để chuyển dữ liệu từ FILE1 sang FILE2
    với điều kiện là
    FILE2 có thể đang mở hoặc không
    xin chân thành cảm ơn các cao thủ nhiều, xin chào
    Tập tin đính kèm Tập tin đính kèm
    ---------------------------------
    Hồ Ngọc Phi
    GV Tin học (Chuyên Dạy kèm THVP)
    ĐT: 0918.843.213
    Hứa Với lòng hạn chế sử dụng DIS
    Để phát triển tư duy thuật toán cho mình


Trang 1/3 1 2 3 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Tạo macro copy cột từ file Excel này sang File Excel khác
    Viết bởi trietvm trong chuyên mục Lập Trình với Excel
    Trả lời: 20
    Bài mới gởi: 14-11-14, 10:19 PM
  2. Lỗi copy sheet từ file excel sang file excel!
    Viết bởi kingmiss trong chuyên mục Giải thích, gỡ rối, xử lý lỗi công thức
    Trả lời: 9
    Bài mới gởi: 15-04-12, 03:06 PM
  3. Copy data từ file Excel này sang file Excel khác
    Viết bởi tackenui trong chuyên mục Các hàm tự tạo cho worksheet
    Trả lời: 6
    Bài mới gởi: 09-04-12, 11:32 PM
  4. giúp hướng dẫn cách chuyển khung search trong file excel này sang file excel khac ?
    Viết bởi prokcalvin trong chuyên mục Lập Trình với Excel
    Trả lời: 2
    Bài mới gởi: 24-09-11, 05:20 PM
  5. Copy DL từ 1 file excel sang file excel da protect định dạng??
    Viết bởi tranviethung trong chuyên mục Hỏi đáp về VBA - Macro
    Trả lời: 4
    Bài mới gởi: 30-08-08, 08:56 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]