là em đã viết code để lưu dữ liệu vào file tổng tuy nhiên vào thư mục

Chào bạn, bạn cho githo xem code của bạn nhé.

Sub Xuatdulieu_01()

With Application.FileDialog(msoFileDialogFolderPicker)

.AllowMultiSelect = True

.Show

Dim i As Long

For i = 1 To .SelectedItems.Count

Dim wb1 As Workbook

Dim wb2 As Workbook

Set wb1 = ThisWorkbook

Set wb2 = Workbooks.Open(.SelectedItems(i))

Dim dongcuoi As Long

    dongcuoi = wb2.Sheet1.Range("G" & Rows.Count).End(xlUp).Row

Dim dongdau As Long

    dongdau = 4

Dim khoangcanh As Long

    khoangcach = dongcuoi - dongdau + 1

Dim dongcuoi_2 As Long

    dongcuoi_2 = wb1.Sheet1.Range("A" & Rows.Count).End(xlUp).Row

wb1.Sheets(Sheet1).Range("A" & dongcuoi_2 + 1 & ":C" & dongcuoi_2 + khoangcach).Value = _

wb2.Sheets(Sheet1).Range("G" & dongdau & ":I" & dongcuoi).Value

wb2.Close savechange = False

Next i

    End With

End Sub

đây ạ

Chào bạn bạn mở như sau nhé

Thay With Application.FileDialog(msoFileDialogFolderPicker) // mở forder

thành With Application.FileDialog(msoFileDialogFilePicker)// Mở file