'*************************************************************'
'函数/过程名称:DoExcel()
'函数/过程的目的:操作Excel(读写)
'假设:无
'影响:
'输入:无
'返回值:无
'创建者:lee
'创建时间:2010/12/13
'修改者:
'修改原因:
'修改时间:
'*************************************************************'
Function DoExcel(filepath,sheetname,x,y)
Dim ObjExcel,SrcExcel,ExcValue
Set ObjExcel = CreateObject ("Excel.Application")
'Excel程序不在前台显示
ObjExcel.Visible = False
'设置变量SrcExcel等于Excel工作薄open
'Activate定位活动的sheet
'并给某一单元格赋值
Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
SrcExcel.WorkSheets(sheetname).Activate
SrcExcel.WorkSheets(sheetname).Cells(x,y).Value = "该单元格的值"
'当出现“在当前位置发现已经存在为"RESUME.XLW"的文件。您希望将该文件替换掉吗?” 使用DisplayAlerts代码该列
ObjExcel.DisplayAlerts = False
ObjExcel.save
'Excel退出,释放资源
ObjExcel.quit
Set ObjExcel = Nothing
Set SrcExcel = Nothing
End Function
Call DoExcel("D:\Case.xls","Sheet1",9,8)
'*************************************************************'
'函数/过程名称:DoExcel() 第二种方法实现。
'函数/过程的目的:操作Excel(读写)
'创建者:lee
'创建时间:2010/12/13
'修改者:
'修改原因:使用统一对象ObjExcel
'*************************************************************'
Function DoExcel(filepath,sheetname,x,y)
Dim ObjExcel,SrcExcel,ExcValue
Set ObjExcel = CreateObject ("Excel.Application")
'Excel程序不在前台显示
ObjExcel.Visible = False
'Activate定位活动的sheet
'并给某一单元格赋值
'Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
ObjExcel.WorkBooks.Open(filepath)
ObjExcel.WorkSheets(sheetname).Activate
ObjExcel.WorkSheets(sheetname).Cells(x,y).Value = "该单元格的值"
'当出现“在当前位置发现已经存在为"RESUME.XLW"的文件。您希望将该文件替换掉吗?” 使用DisplayAlerts代码该列
ObjExcel.DisplayAlerts = False
ObjExcel.save
'Excel退出,释放资源
ObjExcel.WorkBooks.Close
ObjExcel.quit
Set ObjExcel = Nothing
End Function
Call DoExcel("D:\Case.xls","Sheet1",9,8)