For Each objFile In objmainFolder.Files
If LCase(Right(objFile.Name, 3)) = "csv" Then
With GetObject(objFile.Path)
With .Sheets(1)
intlastrow = .[a2].CurrentRegion.Rows.Count
.Range("o2:o1" & intlastrow) = Mid(objFile.Name, 32, 9)
arr = .Range("a2:o1" & intlastrow)
End With
.Close False
End With
這里我想他取值在第二行到第5行,應該怎么弄呢
求大佬
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/200387.html
標籤:VBA
上一篇:TOOLBAR 中需要的圖片格式 有什么要求,比如像素大小,圖片型別?
下一篇:VBA合并相同欄位的EXCEL表
