Macro tự động vào thư mục/workbook/worksheet/Tên sheet/range

[huynhdinhtuananh]

Như tiêu đề mình đã trăn trở tìm học VBA cơ bản, nhưng nội dung khóa học không đáp ứng được nhu cầu của mình,
Nay nhờ các bạn trên diễn đàng giaiphapexcel hướng dẫn giúp mình:
1. Mình cần lệnh macro: Tự động lấy data từ thư mục/tên workbook/ tên worksheet/ô hoặc dãy dữ liệu cần lấy/
rồi đổ vào workbook mình đang mở.

Mong sự giúp đỡ từ các members.


Cám ơn các bạn nhiều.

 

[snow25]

Như tiêu đề mình đã trăn trở tìm học VBA cơ bản, nhưng nội dung khóa học không đáp ứng được nhu cầu của mình,
Nay nhờ các bạn trên diễn đàng giaiphapexcel hướng dẫn giúp mình:
1. Mình cần lệnh macro: Tự động lấy data từ thư mục/tên workbook/ tên worksheet/ô hoặc dãy dữ liệu cần lấy/
rồi đổ vào workbook mình đang mở.

Mong sự giúp đỡ từ các members.


Cám ơn các bạn nhiều.

Có 2 cách để lấy 1 là dùng VBA mở trực tiếp file đó lên theo đường link.Rồi vào sheets đó lấy dữ liệu.Xong đóng file lại.
Cách thứ 2 là dùng ADO để mở file ẩn.

 

[huynhdinhtuananh]

Bạn có thể hướng dẫn mình code VBA cho cách 1 được không

 

[phulien1902]

Bạn có thể hướng dẫn mình code VBA cho cách 1 được không

Bạn thử:

Sub Test()
    Dim Sh As Workbook, Fname As String
    Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Chon File")
    If Fname = "False" Then Exit Sub
    Set Sh = Workbooks.Open(Fname)
    Sh.Sheets("Data").Range("D15:I35").Copy ' Thay doi ten sheet dau vao cho thich hop
    ThisWorkbook.Sheets("Output").Range("A2").PasteSpecial xlValues 'Thay doi ten sheet dau ra cho thich hop
    Sh.Close False
End Sub

Bạn nên tìm hiểu về FSO - bài viết của anh quanghai69
Tổng quan về FileSystemObject

 

[befaint]

Đang ở chuyên mục Macro 4.0 mà. Chịu khó tìm đi, không phải mấy cách trên đâu, có cách hay đấy. Nếu tìm giỏi thì còn có sẵn cái hay hay nữa là đằng khác.

 

[huynhdinhtuananh]

ch hay đấ

Đang ở chuyên mục Macro 4.0 mà. Chịu khó tìm đi, không phải mấy cách trên đâu, có cách hay đấy. Nếu tìm giỏi thì còn có sẵn cái hay hay nữa là đằng khác.

Ok brothers, Thanks so much, Mình sẽ tìm tích cực trong đây.