Question

VB如何取读excel表第一行的数据?

VB如何出excel表第一行的数据呀，就是读取出A1,B1，C1....。还有就是我数据到AA1这里结束，这时候有27个数据，用代码要怎么读取有多少个数据出来，列是用
myRow = xlBook.Sheets("总表").[a65536].End(xlUp).Row
For i = myRow To 2 Step -1，这时候i就是减掉表头的列数是这样吧~！
这可以读取出这张表里有多少列出数据出来，行要怎么取呀，谢谢，在线等！

Answer 1

你把列和行叫反了，
myRow = xlBook.Sheets("总表").[a65536].End(xlUp).Row
是A列的最后一行

myCol = xlBook.Sheets("总表").[iv1].End(xlToLeft).Column
是读取第一行的最后一列

追问

你好，那我现在要怎么取第一行的数据呀，就是A1,B1，C1....了，麻烦了！

追答

Sub ab()
Dim myCol As Integer, i As Long, MyArr()
myCol = [iv1].End(xlToLeft).Column
ReDim MyArr(myCol)
For i = 1 To myCol
    MyArr(i) = Cells(1, i)
Next i
End Sub

myArr(1)就是A1

myArr(2) B1

……

Answer 2

dim arr(27)
for j=1 to xlBook.Sheets("总表").[iv1].End(xlToLeft).Column

arr(j)= xlBook.Sheets("总表").cells(1,j)
next