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

Quảng cáo

huynhdinhtuananh

Thành viên mới
Tham gia ngày
8 Tháng hai 2012
Bài viết
16
Được thích
2
Điểm
0
Tuổi
30
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

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,768
Được thích
2,736
Điểm
1,368
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

Thành viên mới
Tham gia ngày
8 Tháng hai 2012
Bài viết
16
Được thích
2
Điểm
0
Tuổi
30
Bạn có thể hướng dẫn mình code VBA cho cách 1 được không
 

phulien1902

GPE - My love
Tham gia ngày
6 Tháng bảy 2013
Bài viết
3,544
Được thích
4,419
Điểm
1,568
Nơi ở
Hải Phòng
Bạn có thể hướng dẫn mình code VBA cho cách 1 được không
Bạn thử:
PHP:
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
 

huynhdinhtuananh

Thành viên mới
Tham gia ngày
8 Tháng hai 2012
Bài viết
16
Được thích
2
Điểm
0
Tuổi
30
Quảng cáo
Top Bottom