Form cop dữ liệu từ 2 file trong 1 foder (2 người xem)

[xukj]

Mọi người chỉnh giúp mình cái code với. Đã mày mò tìm hiểu mà sao vẫn không chạy ra.
Mình muốn cop dữ liệu từ sheets data của file data.xlsx sang sheets xuli của fil xukj.xlsm.
Thứ tự cột thì xác định mà không liền nhau, gợi ý cho mình cái code để đỡ phải cop tay từng dòng với.

 

[Quang_Hải]

Mọi người chỉnh giúp mình cái code với. Đã mày mò tìm hiểu mà sao vẫn không chạy ra.
Mình muốn cop dữ liệu từ sheets data của file data.xlsx sang sheets xuli của fil xukj.xlsm.
Thứ tự cột thì xác định mà không liền nhau, gợi ý cho mình cái code để đỡ phải cop tay từng dòng với.

Sửa tạm lại chỗ này. Nhưng mà code kỳ quái quá

Private Sub cmdlaydulieu_Click()
Dim i As Long, j As Long, sh As Worksheet
Set sh = ThisWorkbook.Sheets("xuli")
With Workbooks.Open(ThisWorkbook.Path & "\data.xlsx")
     For i = 2 To 4
        For j = 1 To 5
           sh.Cells(i, j).Value = .Sheets("data").Cells(i, j).Value
        Next
     Next
     .Close False
End With
End Sub

 

[xukj]

Sửa tạm lại chỗ này. Nhưng mà code kỳ quái quá

Private Sub cmdlaydulieu_Click()
Dim i As Long, j As Long, sh As Worksheet
Set sh = ThisWorkbook.Sheets("xuli")
With Workbooks.Open(ThisWorkbook.Path & "\data.xlsx")
     For i = 2 To 4
        For j = 1 To 5
           sh.Cells(i, j).Value = .Sheets("data").Cells(i, j).Value
        Next
     Next
     .Close False
End With
End Sub

Hi...code nay là tự chế đó bạn..dựa vào logic của mình thôi.
Tks trước nha...mình sẽ lấy code bạn chạy thử.jo đi làm rồi. Nên tối mình tl kết quả nha

 

[xukj]

Sửa tạm lại chỗ này. Nhưng mà code kỳ quái quá

Private Sub cmdlaydulieu_Click()
Dim i As Long, j As Long, sh As Worksheet
Set sh = ThisWorkbook.Sheets("xuli")
With Workbooks.Open(ThisWorkbook.Path & "\data.xlsx")
     For i = 2 To 4
        For j = 1 To 5
           sh.Cells(i, j).Value = .Sheets("data").Cells(i, j).Value
        Next
     Next
     .Close False
End With
End Sub

Cảm ơn Quang Hải nhá....Mình làm được rồi
Mà giờ mình muốn tạo ra 1 file khác với 2 sheet, 1 sheet chứa dữ liệu mình lọc ra và 1 sheet là kết quả. Mình kiểm soát được tên file tạo ra(Lấy tạm tên là: Data_ngaythanghientai) cũng như là nó lưu ngay tại folder đó thì làm sao.....Mình vọc nhiều quá mà vẫn không thành công....Giúp với Hải ơi......

 

[Quang_Hải]

Cảm ơn Quang Hải nhá....Mình làm được rồi
Mà giờ mình muốn tạo ra 1 file khác với 2 sheet, 1 sheet chứa dữ liệu mình lọc ra và 1 sheet là kết quả. Mình kiểm soát được tên file tạo ra(Lấy tạm tên là: Data_ngaythanghientai) cũng như là nó lưu ngay tại folder đó thì làm sao.....Mình vọc nhiều quá mà vẫn không thành công....Giúp với Hải ơi......

http://www.giaiphapexcel.com/forum/...-form-browse-1-file-excel-lấy-dữ-liệu-sử-dụng

 

[xukj]

http://www.giaiphapexcel.com/forum/...-form-browse-1-file-excel-lấy-dữ-liệu-sử-dụng

^^..Đó là bài tui gửi bên đó mà vẫn chưa xong luôn đó. Ak mà bên này trong cái câu lệnh gọi Workbooks đó Hải:
Workbooks.Open(ThisWorkbook.Path & "\data.xlsx")
Đó là mình biết trước file tên là data.xlsx rồi. Còn mình mới cop file đó zô thôi mà chưa đổi tên, thì làm sao gọi được file đó để sử dụng, cũng như lấy dc cái tên file luôn. Còn tên worksheet thì là không đổi rồi ak....