请问怎么把下面的VB6语句(excel)转换成VB.NET的语句,很急!!在线等待....

[earlsen]

请问怎么把下面的VB6语句(excel)转换成VB.NET的语句,很急!!在线等待....
Private Eapp As Excel.Application
Dim NewWk As Excel.Workbook
Dim OxWk As Excel.Workbook
Dim strOldName As String = "工作单2"

OxWk.Activate()
OxWk.Sheets(strOldName).Select()
OxWk.ActiveSheet.Range("A1:R20").Select()
Eapp.Selection.Copy()
NewWk.Activate()

Active 提示"在继承接口"excel._workbook" 和"excel.workbookevents_event"之间不明确"
如果是"oxwk.sheets(stroldname).select()"还提示"无效索引"

[dongbeiren]

你的workbook并没有与excel进程关联
你的workbook应该设成，
Dim NewWk As Excel.Workbook=Eapp.workbooks.open(文件路径)或Dim NewWk As Excel.Workbook=Eapp.workbooks.add()
Dim OxWk As Excel.Workbook=eapp.worksbooks.open(文件路径)
试试

[earlsen]

谢谢了,可是还是不行,提示"未将对象引用到对象的实例"

[dongbeiren]

哦，没看仔细你的Private Eapp As Excel.Application
-------〉Private Eapp As new Excel.Application()

[earlsen]

我试了,还是上面那个问题.

[dongbeiren]

如果是"oxwk.sheets(stroldname).select()"还提示"无效索引"
oxwk.sheets（索引号而不是sheetname)

Active 提示"在继承接口"excel._workbook" 和"excel.workbookevents_event"之间不明确"
--->Activate 提示"在继承接口"excel._workbook" 和"excel.workbookevents_event"之间不明确"吧
activate分不清继承的接口
不明白你想干什么，是不是想复制粘贴，用excel录制宏，看看生成的代码

[earlsen]

谢谢,我用的是复制粘贴