Chào mừng quý vị đến với website của Trung tâm GDTX Thành phố Thủ Đức
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành
viên, vì vậy chưa thể tải được các tài liệu của
Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên phải, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên phải.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên phải, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên phải.
Mẹo vặt Tin học văn phòng
"
1. Gộp nhiều file Excel vào một file duy nhất
"
Mã cốt:
Sub GopSheets ()
Path = ""
Filename = Dir(Path & "*.xls")
Do While Filename ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets (1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
2. Tổng hợp dữ liệu từ nhiều file excel vào 1 file không cần mở file
'https://www.hocexcel.online/tong-hop-du-lieu-tu-nhieu-file-excel-vao-1-file-khong-can-mo-file.html
Sub merge_all()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sh As Worksheet
Dim I As Long, k As Long, CountFiles...
Các ý kiến mới nhất