簡體   English   中英

UFT - 將數據表內容導出到特定的 excel 行

[英]UFT - Exporting datatable content to specific excel rows

我需要一些幫助才能將數據導入 excel 中的正確行

我在 excel 中有一個表,其中前 3 行的前 5 列中有內容,如下所示: 在此處輸入圖像描述

我需要將 UFT 數據表中的數據獲取到 excel 的第 2、3 行但在 F、G 列中,但是當我按原樣運行腳本時,數據被放入第 4 行和第 5 行(如圖所示),而不是像我需要的那樣的第二和第三

我有這個 function 但不知道如何修復它:

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返回已用單元格的平方范圍,因此在您的情況下返回A1:G3

因此,當您調用此行rows = objSheet.UsedRange.Rows.count時,變量rows將 3 作為值。

要修復您的代碼,請刪除以上行並將以下行替換為:

objSheet.Cells(2,6).Value = Thank_you
objSheet.Cells(2,7).Value = Prize

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM