Run-time error '9' Subscript out of range (1 người xem)

[duongvanminh33]

Sub importfile_excel()
taofile
Dim FName As String
Dim sFile As String
Dim ArrData As String
Dim ArrData2 As Variant
Dim i As Long

ArrData2 = Sheet2.Range(Sheet2.Cells(2, 15), Sheet2.Cells(&H100000, 5).End(xlUp)).Value


For i = 1 To UBound(ArrData2, 1)
Sheet3.Cells(13, 2).Value = ArrData2(i, 1)
Sheet3.Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.SaveAs FName & "\" & ArrData2(i, 1) & ".xlsx", , ArrData2(i, 14)
ActiveWorkbook.Close False
Next
End Sub


Mình không biết sai thế nào, và hàm ActiveWorkbook.SaveAs FName & "\" & ArrData2(i, 1) & ".xlsx", , ArrData2(i, 14) -Mình chưa hiểu ý nghĩa có chạy như thế nào. Anh/Chị giúp em với ạ.

 

[SA_DQ]

Nó báo lỗi ở dòng nào vậy bạn & . . . . ?

 

[VetMini]

ArrData2 = Sheet2.Range(Sheet2.Cells(2, 15), Sheet2.Cells(&H100000, 5).End(xlUp)).Value
Từ cột 5 đến cột 15 chỉ có 11 cột.
ArrData2(i, 14) --> cột thứ 14 ?

 

[duongvanminh33]

Nó báo lỗi ở dòng nào vậy bạn & . . . . ?

sai lỗi này: ActiveWorkbook.SaveAs FName & "\" & ArrData2(i, 1) & ".xlsx", , ArrData2(i, 14)

Bài đã được tự động gộp: 29/9/20

ArrData2 = Sheet2.Range(Sheet2.Cells(2, 15), Sheet2.Cells(&H100000, 5).End(xlUp)).Value
Từ cột 5 đến cột 15 chỉ có 11 cột.
ArrData2(i, 14) --> cột thứ 14 ?

bạn có thể giải thích dùm mình đoạn for chạy không ạ, và ActiveWorkbook.SaveAs FName & "\" & ArrData2(i, 1) & ".xlsx", , ArrData2(i, 11) , vòng lặp này chạy thế nào, mình chưa hiểu lắm