Công ty TNHH Đào tạo Tư vấn và Đầu tư AFTC
Hiển thị kết quả tìm kiếm từ 1 đến 7 trên tổng số: 7
  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

    Lightbulb Copy data từ file Excel này sang file Excel khác

    Dear all
    Tôi muốn copy data từ file Excel 1 sang file Excel 2 (file Excel 2 định dạng sẵn layout) thì làm cách nào?
    Ai biết vui lòng chi giùm nhé.
    Thanks

  2. #2
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    778
    Cảm ơn
    186
    Được cảm ơn 1,200 lần trong 486 bài viết
    Bạn tham khảo các bài viết này nhé!

  3. #3
    Tham gia ngày
    01 2007
    Bài gởi
    1,121
    Cảm ơn
    160
    Được cảm ơn 619 lần trong 369 bài viết
    Tôi thường dùng
    Code:
    Range("A1").Copy Destination:= _
    Workbooks("noi_den.xls").Sheets("sheet1").Range("A1")
    Copy từ B1 trên WB hiện tại sang A1 của sheet1 của WB noi_den

  4. Thành viên sau cảm ơn chibi về bài viết này:


  5. #4
    Tham gia ngày
    03 2007
    Bài gởi
    12
    Cảm ơn
    4
    Được cảm ơn 13 lần trong 6 bài viết
    Trích Nguyên văn bởi tackenui
    Dear all
    Tôi muốn copy data từ file Excel 1 sang file Excel 2 (file Excel 2 định dạng sẵn layout) thì làm cách nào?
    Ai biết vui lòng chi giùm nhé.
    Thanks
    Trong file Excel 1 bạn chọn khối rồi chọn copy, qua file Excel 2 bạn chọn ô cần dán vào, rồi vào Menu Edit chọn Paste Special rồi chọn Values.

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


  7. #5
    Tham gia ngày
    06 2006
    Bài gởi
    201
    Cảm ơn
    190
    Được cảm ơn 180 lần trong 102 bài viết
    Code:
    Sub copy_to_another_workbook()
        Dim sourceRange As Range
        Dim destrange As Range
        Dim destWB As Workbook
        Dim Lr As Long
    
        Application.ScreenUpdating = False
        If bIsBookOpen("test.xls") Then
            Set destWB = Workbooks("test.xls")
        Else
            Set destWB = Workbooks.Open("c:\test.xls")
        End If
        Lr = LastRow(destWB.Worksheets("Sheet1")) + 1
        Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:C10")
        Set destrange = destWB.Worksheets("Sheet1").Range("A" & Lr)
        sourceRange.Copy
        destrange.PasteSpecial xlPasteValues, , False, False
        Application.CutCopyMode = False
        destWB.Close True
        Application.ScreenUpdating = True
    End Sub
    Bạn Copy hàm này và hàm LastRow vào module
    Code:
    Function bIsBookOpen(ByRef szBookName As String) As Boolean
    ' Rob Bovey
        On Error Resume Next
        bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing)
    End Function
    
    Function LastRow(sh As Worksheet)
        On Error Resume Next
        LastRow = sh.Cells.Find(What:="*", _
                                After:=sh.Range("A1"), _
                                Lookat:=xlPart, _
                                LookIn:=xlFormulas, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlPrevious, _
                                MatchCase:=False).Row
        On Error GoTo 0
    End Function
    thay đổi nội dung bởi: levanduyet, 22-07-07 lúc 09:41 PM

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


  9. #6
    Tôi có up một đoạn cho bạn tackenui rồi mà :
    Code cho phan mo file Chon cho duoc ten Sheet ....

    Doan code viet trong Module

    Goi lenh copy_dât trong boxe_text_code

    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

    ' 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 chỏ dừng

    Application.CutCopyMode = False
    mybook.Close False
    Application.ScreenUpdating = True
    End Sub


  10. #7
    Các bác cho em hỏi. Em có 2 file excel . 1 là bảng điểm, 2 là sodangba. Em muốn tự động nhập điểm trung bình cộng, họ tên... những thông tin trong bảng điểm trùng khớp với sodangba thi nhập vào thì làm thế nào ạ
    Đây là 2 file của em http://www.mediafire.com/?dcs7guef5fpkg5l
    Mong các bác giúp em ! Thank

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. Cách copy toàn bộ các sheet của 1 file excel sang 1 file excel khác
    Viết bởi caodung1989 trong chuyên mục Excel và các ngôn ngữ lập trình khác
    Trả lời: 5
    Bài mới gởi: 01-05-13, 04:11 PM
  2. 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: 18
    Bài mới gởi: 22-02-13, 05:28 PM
  3. 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
  4. Copy data không cần mở file excel nguồn dùng DAO
    Viết bởi dpx2007 trong chuyên mục Lập Trình với Excel
    Trả lời: 0
    Bài mới gởi: 07-03-12, 10:18 AM
  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)]