'假设是针对第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