vfp 调用 excel

eole=createobject("excel.application")

eole.workbooks.open("C:\1.xls")
*eole.ActiveSheet.Unprotect("66")
eole.worksheets("dy1").Select
qn_tq1=eole.activesheet.range("B3").value
eole.worksheets("dy2").Select
qn_tq2=eole.activesheet.range("B3").value
eole.worksheets("dy3").Select
qn_tq3=eole.activesheet.range("B3").value

eole.worksheets("dr1").Select
qn_dr1=eole.activesheet.range("B3").value
eole.worksheets("dr2").Select
qn_dr2=eole.activesheet.range("B3").value
eole.worksheets("dr3").Select
qn_dr3=eole.activesheet.range("B3").value


if qn_tq1#qn_tq2
Messagebox("dy1<>dy2")
eole.workbooks.close
eole.quit
retu
if qn_tq3#qn_tq2
Messagebox("dy3<>dy2")
eole.workbooks.close
eole.quit
retu
endif
endif


if qn_dr1#qn_dr2
Messagebox("dr1<>dr2")
eole.workbooks.close
eole.quit
retu
if qn_dr3#qn_dr2
Messagebox("dr3<>dr2")
eole.workbooks.close
eole.quit
retu
endif
endif



if val(right(qn_tq1,5))#val(right(qn_dr1,5))
Messagebox("dy1<>dr1")
eole.workbooks.close
eole.quit
retu
if val(right(qn_tq2,5))#val(right(qn_dr2,5))
Messagebox("dy3<>dr2")
eole.workbooks.close
eole.quit
retu
if val(right(qn_tq3,5))#val(right(qn_dr3,5))
Messagebox("dy3<>dr3")
eole.workbooks.close
eole.quit
retu
endif
endif
endif


if val(right(qn_tq1,2))<10
qn_r_tq1=right(qn_tq1,1)
else
qn_r_tq1=right(qn_tq1,2)
endif

if val(substr(qn_tq1,14,2))<10
qn_y_tq1=right(substr(qn_tq1,14,2),1)
else
qn_y_tq1=substr(qn_tq1,14,2)
endif


if val(right(qn_dr1,2))<10
qn_r_dr1=right(qn_dr1,1)
else
qn_r_dr1=right(qn_dr1,2)
endif

if val(substr(qn_dr1,14,2))<10
qn_y_dr1=right(substr(qn_dr1,14,2),1)
else
qn_y_dr1=substr(qn_dr1,14,2)
endif


eole.worksheets("sheet1").Select
eole.activesheet.range("B13").Select

eole.activesheet.range("B14").Select
eole.ActiveCell.FormulaR1C1 = qn_y_tq1
eole.activesheet.range("C14").Select
eole.ActiveCell.FormulaR1C1 = qn_r_tq1

eole.worksheets("sheet3").Select
eole.ActiveSheet.Unprotect("66")
m_dr_hh=eole.ActiveCell.Find(allt(str(year(date())))+"/"+allt(qn_y_dr1)+"/"+allt(qn_r_dr1),,-4123,1,1,1,.f.,.f.,.f.).row

eole.activesheet.range("B"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr1").range("L46").value
eole.activesheet.range("C"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr1").range("R46").value
eole.activesheet.range("D"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr1").range("B46").value
eole.activesheet.range("E"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 =eole.worksheets("dr3").range("C46").value/10000
eole.activesheet.range("F"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr3").range("D46").v

alue/10000
eole.activesheet.range("G"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr3").range("E46").value/10000
eole.activesheet.range("I"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr2").range("J46").value/100
eole.activesheet.range("J"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr1").range("Z46").value
eole.activesheet.range("K"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr1").range("X46").value
eole.activesheet.range("L"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr2").range("D46").value
eole.activesheet.range("M"+allt(str(m_dr_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dr2").range("B46").value


eole.worksheets("sheet4").Select
eole.ActiveSheet.Unprotect("66")
m_tq_hh=eole.ActiveCell.Find(allt(str(year(date())-2))+"/"+allt(qn_y_tq1)+"/"+allt(qn_r_tq1),,-4123,1,1,1,.f.,.f.,.f.).row


eole.activesheet.range("B"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy1").range("L46").value
eole.activesheet.range("C"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy1").range("R46").value
eole.activesheet.range("D"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy1").range("B46").value
eole.activesheet.range("E"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 =eole.worksheets("dy3").range("C46").value/10000
eole.activesheet.range("F"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy3").range("D46").value/10000
eole.activesheet.range("G"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy3").range("E46").value/10000
eole.activesheet.range("I"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy2").range("J46").value/100
eole.activesheet.range("J"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy1").range("Z46").value
eole.activesheet.range("K"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy1").range("X46").value
eole.activesheet.range("L"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy2").range("D46").value
eole.activesheet.range("M"+allt(str(m_tq_hh))).Select
eole.ActiveCell.FormulaR1C1 = eole.worksheets("dy2").range("B46").value


eole.ActiveWorkbook.Save

eole.ActiveWorkbook.SaveAs("C:\"+allt(str(year(date())))+"年"+allt(qn_y_tq1)+"月"+allt(qn_r_tq1)+"日"+".xls")


eole.worksheets("sheet1").Select

eole.Cells.Select
eole.Selection.Copy
eole.Selection.PasteSpecial(-4163)


eole.worksheets("sheet2").Select
eole.ActiveSheet.Unprotect("66")
eole.Cells.Select
eole.Selection.Copy
eole.Selection.PasteSpecial(-4163)



eole.quit

retu