'假设是针对第5行数据
Dim i As Integer
Dim L As Integer
Dim m() As String
'返回第5行数据区的最大列号到L
L = Excel.Application.ActiveWorkbook.Sheets("Sheet1").Cells(5, 1).CurrentRegion.Columns.Count
ReDim m(L)
For i = 1 To L
m(i) = Excel.Application.ActiveWorkbook.Sheets("Sheet1").Cells(5, i).Text
Print m(i)
Next i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024