Gửi dữ liệu từ một file Excel sang một file Excel khác. (3 người xem)

[ductuongbg]

Thân chào các bạn GPE Mình đang có một vấn đề thắc mắc cần các bạn trợ giúp!
Công việc của mình có sự trợ giúp không nhỏ của Excel nhằm mục đích tính toán và lưu trữ dữ liệu. Gần đây để đáp ứng vấn đề thuận tiện hơn trong công việc, bọn mình cần chuyển một cách nhanh chóng nhất dữ liệu từ một file Excel này sang một file excel khác trong cùng máy tính và trong cùng mạng Lan.
Vấn đề băn khoăn của mình cần các bạn trợ giúp là cho mình xin Code VBA hay phần mềm gì đó có thể chuyển dữ liều từ file này sang một file excel khác.
Giả sử mình muốn chuyển dữ liệu vùng từ "A1:E2" trong file "File1.xls" ở ổ "D" sang vùng "B2:F3" trong file "File2.xls" ở ổ "E".
Tương tự như vậy nhưng chuyển sang một máy tính khác trong cùng mạng Lan.
Kính mong nhận được sự giúp đỡ của các bạn!
Trân trọng!

 

[nhapmon]

bạn thử đạon code này, khai báo lại đường dẫn, tên sheet, kiểm tra lại các range cho thích hop

Sub OpenFile()



SheetName = Sheet1 'khai bao ten sheet cua ban vao day
Application.DisplayAlerts = False
PathName = "\\M22\D:\....." 'nhap tên duong dan vao day

Workbooks.Open Filename:=PathName & "\" & Filename 'thay filename bang ten file cua ban
Worksheets(SheetName).Select
Set wb = ActiveWorkbook

End If

ThisWorkbook.Sheets("sheet1").Range("A1:E2").Value = wb.Sheets("sheet1").Range("B2:F3").Value

End Sub

 

[ductuongbg]

Cảm ơn bạn "Nhap mon" nhưng Code bạn cho mình không dùng được. Mình băn khoăn sao lại có "End if" vì ở trên đó đâu có "If" đâu.

 

[Hoàng Trọng Nghĩa]

Cảm ơn bạn "Nhap mon" nhưng Code bạn cho mình không dùng được. Mình băn khoăn sao lại có "End if" vì ở trên đó đâu có "If" đâu.

Thì bạn cứ thử code, thấy không hợp lý điểm nào thì xóa tại đó, hoặc thêm điều kiện nếu có ràng buộc, đúng không nào!

 

[Hai Lúa Miền Tây]

Thân chào các bạn GPE Mình đang có một vấn đề thắc mắc cần các bạn trợ giúp!
Công việc của mình có sự trợ giúp không nhỏ của Excel nhằm mục đích tính toán và lưu trữ dữ liệu. Gần đây để đáp ứng vấn đề thuận tiện hơn trong công việc, bọn mình cần chuyển một cách nhanh chóng nhất dữ liệu từ một file Excel này sang một file excel khác trong cùng máy tính và trong cùng mạng Lan.
Vấn đề băn khoăn của mình cần các bạn trợ giúp là cho mình xin Code VBA hay phần mềm gì đó có thể chuyển dữ liều từ file này sang một file excel khác.
Giả sử mình muốn chuyển dữ liệu vùng từ "A1:E2" trong file "File1.xls" ở ổ "D" sang vùng "B2:F3" trong file "File2.xls" ở ổ "E".
Tương tự như vậy nhưng chuyển sang một máy tính khác trong cùng mạng Lan.
Kính mong nhận được sự giúp đỡ của các bạn!
Trân trọng!

Nếu muốn chuyển đổi hay cập nhật dữ liệu trong mạng nội bộ thì đầu tiên là bạn phải share file đó trên mạng lan hoặc map ổ đĩa. Bạn muốn chuyển dữ liệu từ file này đến 1 file khác đang đóng thì có thể dùng ado.

 

[nhapmon]

Xin lỗi vì đã làm bạn bối rối, vì file name của mình là tên động nên mình phải thêm dòng lệnh kiểm tra coi nó đã được mở chưa. lúc chép qua cho bạn xóa không hết. mình nghĩ nếu bạn khai báo tên đúng thì nó sẻ chạy được vì mình cũng hiện đang sử dụng nó

cao cấp hơn thì bạn sử dụng ado như anh hai lúa hướng dẫn, cái này thì mình chịu thua vì chưa học.

 

[ductuongbg]

Cảm ơn các bạn! Việc chuyển dữ liệu sang file khác mình đã làm được rồi.