如何用OLE删除excel中的记录（请帮我把VB代码转成VC的谢谢各位高手）

[jameslinye]

Dim tempxlApp As New Excel.Application
Dim tempxlWorkbook As New Excel.Workbook
Dim tempxlSheet As New Excel.Worksheet

'打开Test.xls
Set tempxlWorkbook = tempxlApp.Workbooks.Open(App.Path & "\Test.xls")
tempxlApp.DisplayAlerts = False
'选定01工作表
Set tempxlSheet = tempxlWorkbook.Worksheets("01")
tempxlSheet.Select

'第三行整行选取并删除
Rows("3:3").Select
Selection.Delete Shift:=xlUp

'释放对象,关闭excel
Set tempxlSheet = Nothing
Set tempxlWorkbook = Nothing
tempxlApp.Quit
Set tempxlApp = Nothing

[菜牛]

关键是要会导入类型库，然后都是对象操作了。

先看看MSDN中这篇文章：

HOWTO: Create Automation Project Using MFC and a Type Library

[jameslinye]

我已经搞定了,哈哈哈哈哈,求人不如求己

[菜牛]

对。