Giải thích code lấy dữ liệu từ file eccess sang excel (1 người xem)

[quocbaoxd]

Các bạn giải thích dùm mình code này nhé, xin cảm ơn nhiều.
Sub TruyCapAccess()
Dim Wb2 As Workbook


'I-XOA BO GIA TRI CU
ActiveWorkbook.Sheets("Frame Section Properties").Columns("A:L").Clear
ActiveWorkbook.Sheets("Frame Assignments Summary").Columns("A:L").Clear
ActiveWorkbook.Sheets("Column Forces").Columns("A:L").Clear

'II-MO DUONG DAN TOI FILE ACCESS
Dim lngCount As Long, filename As String
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
filename = .SelectedItems(lngCount)
Next lngCount
End With

'III-INPUT DULIEU CAN TIM VAO CAC SHEET CAN THIET


Application.DisplayAlerts = False
Application.ScreenUpdating = False

Workbooks.OpenDatabase filename:=filename, CommandText:=Array("Frame Section Properties"), CommandType:=xlCmdTable, ImportDataAs:=xlTable
Set Wb2 = ActiveWorkbook
Wb2.Sheets(1).Columns("A:J").Copy Workbooks("BTCT-OU1-COLUMN-LETTAMXIEN.xlsm").Sheets("Frame Section Properties").Range("A1")
Wb2.Close

Workbooks.OpenDatabase filename:=filename, CommandText:=Array("Frame Assignments Summary"), CommandType:=xlCmdTable, ImportDataAs:=xlTable
Set Wb2 = ActiveWorkbook
Wb2.Sheets(1).Columns("A:J").Copy Workbooks("BTCT-OU1-COLUMN-LETTAMXIEN.xlsm").Sheets("Frame Assignments Summary").Range("A1")
Wb2.Close

Workbooks.OpenDatabase filename:=filename, CommandText:=Array("Column Forces"), CommandType:=xlCmdTable, ImportDataAs:=xlTable
Set Wb2 = ActiveWorkbook
Wb2.Sheets(1).Columns("A:J").Copy Workbooks("BTCT-OU1-COLUMN-LETTAMXIEN.xlsm").Sheets("Column Forces").Range("A1")
Wb2.Close

Application.DisplayAlerts = True
Application.ScreenUpdating = True

Call TimKichThuoc

End Sub