EXCEL导入问题

liaoqiang234

Dim xlApp As Excel.Application                                  'Excel应用程序对象
    Dim xlBook As Excel.Workbook                                    'Excel工作簿对象
    Dim xlSheet As Excel.Worksheet                                  'Excel工作表对象
dim rs as aododb.recordset
dim step as string
dim i as integer
set rs=new adodb.recordset
Set xlApp = CreateObject("Excel.Application")         '创建Excel应用程序对象
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open(Me.Excel完整路径)
SheetName = Me.工作表名
    Set xlSheet = xlBook.Sheets(SheetName)   
step="select*from RYZL"
rs.Open step, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.addnew
rs("XM")=Cells(1, 1)

因为EXCEL表中XM列会变动，所以，我想自动获得XM的列数

todaynew

不必如此吧，用某个数据为空作为循环终止条件即可。

liaoqiang234

rs("XM")=Cells(1, 1)
我们一般都使用绝对值，可是EXCEL表里字段会边动，今天在1，1 有时候在1.3
所以我要先获得它在第几列