Question

我在D：\中有一个excel工作簿名称prog.xls 在sheet1中我有3列包含n个记录，第一行作为列标题列1名，列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

由于

我需要帮助编写QTP脚本来从Excel中读取和写入数据

1 个答案: