UFT - 将数据表内容导出到特定 excel 行
UFT - Exporting datatable content to specific excel rows
我需要一些帮助来将数据导入到 excel
中的正确行
我在 excel 中有一个 table,它在前 3 行的前 5 列中有内容,如下所示:
我需要从 UFT 数据table 获取数据到第 2、3 行但在 F、G 列中的 excel 但是当我 运行 脚本按原样,数据被放入第 4 行和第 5 行(如图所示),而不是我需要的第 2 行和第 3 行
我有这个功能,但不知道如何修复它:
Public Function SetExcelCellData()
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\WrightJ\Desktop\Excel\CompFormTest.xlsx")
Set objSheet = objWorkbook.Worksheets("Sheet1")
Thank_you = Datatable("Thank you text",dtGlobalSheet)
Prize = Datatable("Prize draw",dtGlobalSheet)
rows = objSheet.UsedRange.Rows.count
objSheet.Cells(rows+1,6).Value = Thank_you
objSheet.Cells(rows+1,7).Value = Prize
objWorkbook.SaveAs "C:\Users\WrightJ\Desktop\Excel\CompFormTest.xlsx"
objWorkbook.Close
Set objSheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
End Function
任何帮助都会很棒!!!
UsedRange
returns 已用单元格的平方范围,因此在您的情况下返回 A1:G3
。
因此,当您调用此行 rows = objSheet.UsedRange.Rows.count
时,变量 rows
的值为 3。
要修复您的代码,请删除以上行并将以下行替换为:
objSheet.Cells(2,6).Value = Thank_you
objSheet.Cells(2,7).Value = Prize
我需要一些帮助来将数据导入到 excel
中的正确行我在 excel 中有一个 table,它在前 3 行的前 5 列中有内容,如下所示:
我需要从 UFT 数据table 获取数据到第 2、3 行但在 F、G 列中的 excel 但是当我 运行 脚本按原样,数据被放入第 4 行和第 5 行(如图所示),而不是我需要的第 2 行和第 3 行
我有这个功能,但不知道如何修复它:
Public Function SetExcelCellData()
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\WrightJ\Desktop\Excel\CompFormTest.xlsx")
Set objSheet = objWorkbook.Worksheets("Sheet1")
Thank_you = Datatable("Thank you text",dtGlobalSheet)
Prize = Datatable("Prize draw",dtGlobalSheet)
rows = objSheet.UsedRange.Rows.count
objSheet.Cells(rows+1,6).Value = Thank_you
objSheet.Cells(rows+1,7).Value = Prize
objWorkbook.SaveAs "C:\Users\WrightJ\Desktop\Excel\CompFormTest.xlsx"
objWorkbook.Close
Set objSheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
End Function
任何帮助都会很棒!!!
UsedRange
returns 已用单元格的平方范围,因此在您的情况下返回 A1:G3
。
因此,当您调用此行 rows = objSheet.UsedRange.Rows.count
时,变量 rows
的值为 3。
要修复您的代码,请删除以上行并将以下行替换为:
objSheet.Cells(2,6).Value = Thank_you
objSheet.Cells(2,7).Value = Prize