Nhờ mọi người xem giúp mình câu lệnh khi muốn add Filename(i,1) vào ngay Sheet10.$A$1 ạ
Sheet10.Activate
For i = 1 To UBound(Arr_File, 1)
FileName = Arr_File(i, 1)
Sheet10.Range("A1:C10000").Clear
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=Sheet10.Range("$A$1")).Refresh BackgroundQuery:=False
End With
Mong mọi người giúp đỡ .
Cám ơn!!!
Sheet10.Activate
For i = 1 To UBound(Arr_File, 1)
FileName = Arr_File(i, 1)
Sheet10.Range("A1:C10000").Clear
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=Sheet10.Range("$A$1")).Refresh BackgroundQuery:=False
End With
Mong mọi người giúp đỡ .
Cám ơn!!!
