- 论坛徽章:
- 2
|
本帖最后由 anonym0us 于 2016-01-29 17:11 编辑
- '*************************************************************'
- '函数/过程名称: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.xlsx","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.xlsx","Sheet1",9,8)
复制代码 |
|