WTP QTP 스크립트를 사용하여 Excel에서 데이터를 읽고 쓰는 데 도움이 필요합니다.

Question

Excel에서 통합 문서 이름 prog.xls를 D : \ (sheet1)에 포함하고 있습니다. 3 열에 첫 번째 행이 n 열 표제 column1- 이름, 열 2-DOB, 열 3-Email_Id. 생년월일이 오늘인지 확인하려면 DOB를 현재 날짜와 일치시키고 해당하는 Email_Id를 sheet2에 복사하고 싶습니다.

다음은 내 코드가 위의 코드

MyDate=Date 
Set myxl = createobject("excel.application") 
myxl.Workbooks.Open "D:\prog.xls" 
set mysheet = myxl.ActiveWorkbook.Worksheets("Sheet1") 
Row=mysheet.UsedRange.Rows.Count 
For i= 2 to Row 

If Mysheet.cells(i,2).value =Day(MyDate)&"/"&Month(MyDate) Then 

는 잘 작동하지만, 완전한되지 않습니다. 확인 만 할 것입니다. 그러나 대응하는 Email_ID를 sheet2에 저장하는 방법. 도와주세요. 미리 감사드립니다.

Answer 1

아래 코드를 시도해주세요.

MyDate=Date 

Set myxl = createobject("excel.application") 
myxl.Workbooks.Open "D:\Form.xls" 
myxl.application.Visible = True 
set mysheet = myxl.ActiveWorkbook.Worksheets("Sheet1") 
Row=mysheet.UsedRange.Rows.Count 

j=1 
For i= 2 to Row 

If mysheet.cells(i,2).value =Day(MyDate)&"/"&Month(MyDate) Then 
Email=mysheet.cells(i,3).value 

set mysheet = myxl.ActiveWorkbook.Worksheets("Sheet2") 
mysheet.cells(j,1)=Email 
j=j+1 
set mysheet = myxl.ActiveWorkbook.Worksheets("Sheet1") 
End If 
Next 
myxl.ActiveWorkbook.save 
myxl.quit 
Set myxl =Nothing 

감사