主题：excel

 你要先把book2保存以后，再打开才行啊

 

不理解你什么意思

 

问题，请先详细说明说明；同时上传对应例子

  例子发上来。

  什么意思？你是要复制多个表？那就一个一个的复制。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test01.xls")
app.DisplayAlerts = False

For n As Integer = Wb.WorkSheets.Count to 2 step -1
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(n)
    'If ws.cells(3,4).value = "公司" Then
        ws.delete
    'End If
Next
app.visible = true

 肯定是可以的，你的n-2不对，这个数要大于等于1

 那你就写成1或2或3，不要用n-2

那就是你这个有问题啊 Sheet1(n,1).Value 弹出它的值看一下

 

sheet1是什么东西，问问题不要问一半啊

 循环所有的表，判断表名。

sheets.Count