帮忙编写一个excel的宏代码

来源：百度知道 编辑：UC知道 时间：2024/06/08 15:54:55
在D盘根目录下有文件A．xls,一行为年级 班级 姓名 语文 2－10行为对应数据，现要在同目录下的文件B．xls中编一个宏，使其中的B3显示为语文分数大于60分的人数．

你一定要用宏程序吗，要实现你的功能用countif函数都可以了
Dim ExcelObj
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Workbooks.Open ("d:\a.xls")
ExcelObj.Worksheets("sheet1").Activate
dim number, i integer
number=0
for i=2 to 10
if cells(i,4)>60 then
number=number+1
end if
end for
ExcelObj.Workbooks.close
Worksheets("sheet1").Activate
cells(3,2)=number

Workbooks.Open Filename:="D:\A.xls"
Windows("B.xls").Activate
Sheets("Sheet1").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "=COUNTIF([A.xls]Sheet1!R2C4:R20C4,"">60"")"
Range("B3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows(&quo