Question

qtp导入excel数据后想要读取第一列数据，具体代码请给我下，非常感谢

Answer 1

如果已经导入到DataTable中的话可用下面的方法：
DataTable("列名","Action名") '读取指定Action中的指定列
例：DataTable("col","Action2") '读取Action2中的col列
列也可以直接用数字表示 DataTable(1,"Action2") '读取Action2中的第一列
实例：
For i = 1 to Datatable.getsheet("Action2").getrowcount
msgbox DataTable(1,"Action2") '读取此行第一列的值
DataTable.SetCurrentRow(i+1) '在循环中指向下一行数据
NEXT

Answer 2

我直接使用了EXCEL提供的接口来做。
Set ExcelApp = CreateObject("excel.Application") ' 建立EXCEL对象
Set xlsWork = ExcelApp.Workbooks.Open(ConfigFileDir) '打开EXCEL表,ConfigFileDir为EXCEL路径。
ExcelRow =1 ‘第一行
ActionName = xlsWork.WorkSheets("巡检配置").Cells(ExcelRow ,2) '读取第1行，第2列数据
OutValueCount = xlsWork.WorkSheets("巡检配置").Cells(ExcelRow ,3) '读取第1行，第3列数据

Answer 3

'读Excel文件元素
Public Function QTP_Read_Excel(pathway,sheetname,x,y)
Dim srcData,srcDoc,ret
set srcData = CreateObject("Excel.Application")
srcData.Visible = True
set srcDoc = srcData.Workbooks.Open(pathway)
srcDoc.Worksheets(sheetname).Activate
ret = srcDoc.Worksheets(sheetname).Cells(x,y).value
srcData.Workbooks.Close
Window("text:=Microsoft Excel").Close
QTP_Read_Excel = ret
End Function

写Excel文件元素并保存退出
Public Function QTP_Write_Excel(pathway,sheetname,x,y,content)
Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3
set srcData = CreateObject("Excel.Application")
srcData.Visible = True
set srcDoc = srcData.Workbooks.Open(pathway)
srcDoc.Worksheets(sheetname).Activate
srcDoc.Worksheets(sheetname).Cells(x,y).value = content

' sp1 = Split(pathway,".")
' sp2 = Split(sp1(0),"\")
' num = UBound(sp2)
' use = sp2(num)

' Set a1 = Description.Create()
' a1("text").value="Microsoft Excel - " + use + ".xls"
' a1("window id").value="0"

' Set a3 = Description.Create()
' a3("Class Name").value="WinObject"
' a3("text").value= use + ".xls"

' Window(a1).WinObject(a3).Type micCtrlDwn + "s" + micCtrlUp

Dim WshShell
Set WshShell=CreateObject("Wscript.Shell")
WshShell.SendKeys "^s"
wait(1)

srcData.Workbooks.Close
Set srcDoc = nothing

Window("text:=Microsoft Excel").Close
End Function