[HELP] Giúp em code copy dữ liệu từ file này sang file khác ạ.

Liên hệ QC

Congtunho

Thành viên mới
Tham gia
16/12/17
Bài viết
48
Được thích
6
Giới tính
Nam
Em chào các anh chị!

Nhờ các anh chị giúp em viết đoạn code vba cho file excel như này với ạ.

Nhu cầu của em hàng ngày là:
1. Mở file A lên và copy dữ liệu trong file A
2. Mở file B lên và dán vào vị trí được chỉ định để ra kết quả.

Em thấy công việc lặp đi lặp lại nên có tìm hiểu về VBA.

Mong muốn của em đơn giản là: Tạo 1 nút bấm, nhấp zô nút đó, sẽ hiện lên 1 cửa sổ để chọn file A. Nhấp vào file A thì nó sẽ mở file đó lên và tự động copy + dán dữ liệu vào file B (là file đang mở). Sau khi dán xong thì tự động đóng file A lại ạ.

Anh chị giúp em với ạ. Em cảm ơn rất nhiều ạ.
 
Em chào các anh chị!

Nhờ các anh chị giúp em viết đoạn code vba cho file excel như này với ạ.

Nhu cầu của em hàng ngày là:
1. Mở file A lên và copy dữ liệu trong file A
2. Mở file B lên và dán vào vị trí được chỉ định để ra kết quả.

Em thấy công việc lặp đi lặp lại nên có tìm hiểu về VBA.

Mong muốn của em đơn giản là: Tạo 1 nút bấm, nhấp zô nút đó, sẽ hiện lên 1 cửa sổ để chọn file A. Nhấp vào file A thì nó sẽ mở file đó lên và tự động copy + dán dữ liệu vào file B (là file đang mở). Sau khi dán xong thì tự động đóng file A lại ạ.

Anh chị giúp em với ạ. Em cảm ơn rất nhiều ạ.

Example

In this example, Microsoft Excel opens the file dialog allowing the user to select one or more files. After these files are selected, Excel displays the path for each file in a separate message.

VBCopy
Mã:
Sub UseFileDialogOpen()

 
Dim lngCount As Long
 
' Open the file dialog
 With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
        .Show
 
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
 Next lngCount
 
End With
 
End Sub
 
Upvote 0

Example

In this example, Microsoft Excel opens the file dialog allowing the user to select one or more files. After these files are selected, Excel displays the path for each file in a separate message.

VBCopy
Mã:
Sub UseFileDialogOpen()

 
Dim lngCount As Long
 
' Open the file dialog
 With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
        .Show
 
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
 Next lngCount
 
End With
 
End Sub
Dạ cảm ơn anh, nhưng code này không giống mong đợi của em ạ. Cái này chỉ mở hộp thoại chọn file lên thôi chứ ko giải quyết công việc gì cả.
 
Upvote 0
Dạ cảm ơn anh, nhưng code này không giống mong đợi của em ạ. Cái này chỉ mở hộp thoại chọn file lên thôi chứ ko giải quyết công việc gì cả.
Bạn muốn làm gì thì viết tiếp vào. Chứ file không có. Thì biết bạn làm cái gì chứ
 
Upvote 0
Bạn muốn làm gì thì viết tiếp vào. Chứ file không có. Thì biết bạn làm cái gì chứ
Nội dung mình ghi rõ rồi mà bạn, nếu mình biết viết tiếp thì mọi chuyện đã đơn giản rồi ^^
Bạn bên trên cũng có ý giúp mình, nhưng bạn ý chỉ copy nội dung ở 1 trang khác dán vào thôi, và code đó ko giải quyết được công việc mình đang cần.
haiz
 
Upvote 0
Nội dung mình ghi rõ rồi mà bạn, nếu mình biết viết tiếp thì mọi chuyện đã đơn giản rồi ^^
Bạn bên trên cũng có ý giúp mình, nhưng bạn ý chỉ copy nội dung ở 1 trang khác dán vào thôi, và code đó ko giải quyết được công việc mình đang cần.
haiz
Bạn ấy cũng ghi rõ ràng là Example mà. Chứ ý bạn là như nào. File thì không có thì người giúp bạn biết thế nào. Nói thì bạn không nên tự ái. Chứ như bạn nói là đã ghi rõ nội dung rồi. Hỏi xem ai đó đọc bài bạn viết. Họ biết chính xác bạn đang muốn làm gì không? Mang việc đi hỏi thì cũng nên biết cách hỏi như nào để người khác giúp nữa chứ
 
Upvote 0
Bạn ấy cũng ghi rõ ràng là Example mà. Chứ ý bạn là như nào. File thì không có thì người giúp bạn biết thế nào. Nói thì bạn không nên tự ái. Chứ như bạn nói là đã ghi rõ nội dung rồi. Hỏi xem ai đó đọc bài bạn viết. Họ biết chính xác bạn đang muốn làm gì không? Mang việc đi hỏi thì cũng nên biết cách hỏi như nào để người khác giúp nữa chứ
Không tiếp tay việc phạm quy nhé.
 
Upvote 0
Tạo 1 nút bấm, nhấp zô nút đó, sẽ hiện lên 1 cửa sổ để chọn câu hỏi. Nhấp vào câu hỏi thì nó sẽ mở câu đó lên và tự động copy + dán cả câu hỏi vào bài (là thớt đang mở). Sau khi dán xong thì tự động đóng thớt lại.
 
Upvote 0
Haiz đúng chán! Mình xin nói lần cuối rồi out diễn đàn.

1. Một người thì biết code nhưng không đọc nội dung của người hỏi, không có ý định giúp đỡ và chỉ chăm chăm vào việc kiếm tiền bằng cách nhắn riêng kêu mình add zalo để code lấy tiền.
2. Một người thì biết mình viết tiêu đề sai nội quy, nhưng không hỗ trợ nói mình viết sai ở đâu và cũng ko có ý định nói ra điều đó.
3. Một người thì hùa theo.
4. Một người có công đi tìm nội dung và gửi lên đây để giúp đỡ mình. Tuy không giải quyết được cái mình cần, nhưng thực sự vẫn cảm ơn bạn rất nhiều.

* Mình không phải là người hay đặt câu hỏi để tìm lời giải, chỉ khi nào bí quá mình mới hỏi. Và đây là lần thứ 2 mình hỏi trên diễn đàn này. Trước đây, mình nhận được sự giúp đỡ rất nhiệt tình. Còn bây giờ thì khác xa quá.

p/s: Mình đã tìm được đoạn code hỗ trợ giải quyết được công việc rồi. Cảm ơn mọi người!
 
Upvote 0
Haiz đúng chán! Mình xin nói lần cuối rồi out diễn đàn.
1. Một người thì biết code ... 2. Một người thì biết mình viết tiêu đề sai.... 3. Một người thì hùa theo. 4. Một người có công...

* Mình không phải là người hay đặt câu hỏi để tìm lời giải, chỉ khi nào bí quá mình mới hỏi. Và đây là lần thứ 2 mình hỏi trên diễn đàn này. Trước đây, mình nhận được sự giúp đỡ rất nhiệt tình. Còn bây giờ thì khác xa quá.

p/s: Mình đã tìm được đoạn code hỗ trợ giải quyết được công việc rồi. Cảm ơn mọi người!
Tốt. Nhờ mọi người khó khăn vậy bạn mới tìm được hướng đi tự lập.
Dễ dãi quá rồi cái gì cũng đòi từ a đến z.
 
Upvote 0
Haiz đúng chán! Mình xin nói lần cuối rồi out diễn đàn.

1. Một người thì biết code nhưng không đọc nội dung của người hỏi, không có ý định giúp đỡ và chỉ chăm chăm vào việc kiếm tiền bằng cách nhắn riêng kêu mình add zalo để code lấy tiền.
2. Một người thì biết mình viết tiêu đề sai nội quy, nhưng không hỗ trợ nói mình viết sai ở đâu và cũng ko có ý định nói ra điều đó.
3. Một người thì hùa theo.
4. Một người có công đi tìm nội dung và gửi lên đây để giúp đỡ mình. Tuy không giải quyết được cái mình cần, nhưng thực sự vẫn cảm ơn bạn rất nhiều.

* Mình không phải là người hay đặt câu hỏi để tìm lời giải, chỉ khi nào bí quá mình mới hỏi. Và đây là lần thứ 2 mình hỏi trên diễn đàn này. Trước đây, mình nhận được sự giúp đỡ rất nhiệt tình. Còn bây giờ thì khác xa quá.

p/s: Mình đã tìm được đoạn code hỗ trợ giải quyết được công việc rồi. Cảm ơn mọi người!
Thay vì tỏ thái độ thì hãy nhìn lại mình. Bạn nói là người ta chỉ giúp mở chọn tập tin mà không giúp công việc gì cả. Thế bạn muốn giúp gì nữa?
Bạn viết:
1. Mở file A lên và copy dữ liệu trong file A
2. Mở file B lên và dán vào vị trí được chỉ định để ra kết quả.
Mở file A và copy dữ liệu? Copy những gì, từ đâu tới đâu, từ sheet nào? Nếu là copy toàn bộ Sheet1 thì cũng phải nói rõ ra, nói huỵch toẹt ra thì người ta mới biết. Mở file B lên và dán vào vị trí chỉ định? Ai chỉ, cái gì chỉ, khi nào chỉ? Nếu là dán vào sheet2 từ C5 thì cũng phải nói rõ, huỵch toẹt ra thì người ta mới biết. Nói chung chung thế thì sao người ta giúp được?
Hãy nói rõ, mô tả kỹ, và đính kèm tập tin khi người ta yêu cầu. Không thể nhờ người khác một khi người ta yêu cầu tập tin thì mình lờ người ta đi. Hãy làm tốt bổn phận của người đi nhờ. Lúc đó mới có thể trách người khác khi người ta quá đáng.
 
Upvote 0
Haiz đúng chán! Mình xin nói lần cuối rồi out diễn đàn.

1. Một người thì biết code nhưng không đọc nội dung của người hỏi, không có ý định giúp đỡ và chỉ chăm chăm vào việc kiếm tiền bằng cách nhắn riêng kêu mình add zalo để code lấy tiền.
2. Một người thì biết mình viết tiêu đề sai nội quy, nhưng không hỗ trợ nói mình viết sai ở đâu và cũng ko có ý định nói ra điều đó.
3. Một người thì hùa theo.
4. Một người có công đi tìm nội dung và gửi lên đây để giúp đỡ mình. Tuy không giải quyết được cái mình cần, nhưng thực sự vẫn cảm ơn bạn rất nhiều.

* Mình không phải là người hay đặt câu hỏi để tìm lời giải, chỉ khi nào bí quá mình mới hỏi. Và đây là lần thứ 2 mình hỏi trên diễn đàn này. Trước đây, mình nhận được sự giúp đỡ rất nhiệt tình. Còn bây giờ thì khác xa quá.

p/s: Mình đã tìm được đoạn code hỗ trợ giải quyết được công việc rồi. Cảm ơn mọi người!
tôi trả lời bạn theo cái mô tả của tiêu đề thôi he
vào link sau đọc kỹ 2 link bài 16 xong tải file về mà sử dụng
có 1 hàm duy nhất lấy 3 CSDL gồm Excel, Access và SQLite .... trong đó có cả Ms Server nữa

ngon bổ rẻ và hãy tự tìm hiểu cách sử dụng + tùy biến đi nhé ... còn tôi làm biếng lắm ... có gì ta cứ phơi bày tại đây he
 
Upvote 0
Bạn viết:

Mở file A và copy dữ liệu? Copy những gì, từ đâu tới đâu, từ sheet nào? Nếu là copy toàn bộ Sheet1 thì cũng phải nói rõ ra, nói huỵch toẹt ra thì người ta mới biết. Mở file B lên và dán vào vị trí chỉ định? Ai chỉ, cái gì chỉ, khi nào chỉ? Nếu là dán vào sheet2 từ C5 thì cũng phải nói rõ, huỵch toẹt ra thì người ta mới biết. Nói chung chung thế thì sao người ta giúp được?
Hãy nói rõ, mô tả kỹ, và đính kèm tập tin khi người ta yêu cầu. Không thể nhờ người khác một khi người ta yêu cầu tập tin thì mình lờ người ta đi. Hãy làm tốt bổn phận của người đi nhờ. Lúc đó mới có thể trách người khác khi người ta quá đáng.
Mình không nói mình đúng toàn bộ trong việc này, nhưng cái mình thắc mắc đâu nhất thiết phải đi chi tiết giống như bạn nói?
Yêu cầu chỉ là:
Tạo 1 cái nút bấm, assign 1 đoạn code cho phép mở 1 file khác, chép dữ liệu từ file đó vào vị trí chỉ định.

Mình chỉ mong muốn, tạo 1 đoạn code nhỏ như vậy thôi, nếu bạn muốn giúp thì chỉ cần làm đại 1 đoạn code, dán vào vị trí nào cũng đc, mình tự sửa lại sau đc mà. Mình ko đính kèm file lên đây vì mình nghĩ nó ko cần thiết. Vì trong bài #1 mình đã nói nguyện vọng rồi.
Tốt. Nhờ mọi người khó khăn vậy bạn mới tìm được hướng đi tự lập.
Dễ dãi quá rồi cái gì cũng đòi từ a đến z.
Thôi, bạn đừng nói như vậy, làm mình cảm thấy nhỏ bé lắm.
Mình ko biết bạn tự lập đến đâu nhưng nói vậy thì khác gì nói diễn đàn này toàn là gây khó khăn cho nhau. Rồi mục đích diễn đàn ra đời để làm gì? Chẳng lẽ là gây khó khăn cho nhau là mục đích của nó sao.

Rồi người Việt với nhau, ko giúp nhau. Cuối cùng để người hỏi phải qua bên diễn đàn nước ngoài tìm.
Bài đã được tự động gộp:

tôi trả lời bạn theo cái mô tả của tiêu đề thôi he
vào link sau đọc kỹ 2 link bài 16 xong tải file về mà sử dụng
có 1 hàm duy nhất lấy 3 CSDL gồm Excel, Access và SQLite .... trong đó có cả Ms Server nữa

ngon bổ rẻ và hãy tự tìm hiểu cách sử dụng + tùy biến đi nhé ... còn tôi làm biếng lắm ... có gì ta cứ phơi bày tại đây he
Đội ơn bác. Mình tìm được lời giải rồi, nhưng mình sẽ nghiên cứu thêm những gì bác chia sẻ.
Cho đi để nhận lại, chúc bác luôn bình an!
 
Upvote 0
Mình không nói mình đúng toàn bộ trong việc này, nhưng cái mình thắc mắc đâu nhất thiết phải đi chi tiết giống như bạn nói?
Bạn đi nhờ người ta mà bạn đôi co với người ta là cái gì cần cái gì không cần. Thôi bạn cứ tiếp tục như thế nhé. Nhưng có điều chắc chắn là nếu cứ thế thì bạn sẽ gặp "sự cố" dài dài. Muốn trách người khác thì trước tiên mình phải chuẩn đã. Mà muốn người ta giúp thì không thể lờ người ta. Người ta cần gì thì phải cung cấp, không thể đôi co là cái đó không cần thiết.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom