Bạn biết gì về VBA chưa.Nếu biết thì bạn chọn mở file bằng Workbook.open hay là dùng ADO.
Em cũng chỉ mò chứ không gọi là biết ạ. Em có tìm đoạn code của Anh nào đó trên diễn đàn GPE. Mà chưa biết sửa sao cho nó giống định dạng và file sau nối vào file trước.
Đây là đoạn code đó ạ
Sub Copy_Paste()
Dim cn As Object, rs As Object
Dim eRow&, includeList$, excludeList$, sql$
With Sheet1
eRow = .Range("A" & Rows.Count).End(xlUp).Row
If eRow > 2 Then .Range("A2:C" & eRow).Clear
End With
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Add "All Excel", "*.xls*"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count < 1 Then MsgBox ("Ban khong chon file nao"): Exit Sub
If .SelectedItems.Count Then
On Error Resume Next
Set cn = CreateObject("adodb.connection")
cn.Open ("provider=Microsoft.ACE.OLEDB.12.0;data source=" & .SelectedItems(1) & ";mode=Read;extended properties=""Excel 12.0;hdr=no"";")
sql = "SELECT * FROM [Daily schedule$] WHERE f1 is not Null"
Set rs = cn.Execute(sql)
If Not rs.EOF Then Sheet1.Range("A2").CopyFromRecordset rs
rs.Close: cn.Close
Set rs = Nothing: Set cn = Nothing
On Error GoTo 0
End If
End With
End Sub
