主题：请教

此主题相关图片如下：问题.png

这段代码正常运行过。现在提示错误。

1、ws1.cells这样用错误，应该改成ws1.UsedRange

 

2、在delete之前，应该先写 ws1.select

 

3、在各个操作的时候 ws1.select、ws2.select 适当的加入，看是否还报错

将For n as integer=1 to wb.worksheets.count   

1、你加上循环的意图是什么？循环里面加入select后是否还报错？

 

2、实例发上来测试，说明要做到的效果。

工作簿里有N个工作表

如：

 

Dim App As New MSExcel.Application
Dim fl = "d:\test.xls"
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets(1)
For i As Integer = 2 To wb.WorkSheets.count
    Dim ws2 = Wb.WorkSheets(i)
    ws2.Select
    Ws2.UsedRange.Copy
    ws1.Select
    ws1.Cells(Ws1.UsedRange.Rows.Count+1,1).Select '纵向拷贝
    ws1.paste
Next
'app.DisplayAlerts = False
'For i As Integer = wb.WorkSheets.count To 2 Step -1
    'Dim ws2 = Wb.WorkSheets(i)
    'ws2.delete
'Next
'Wb.Save
app.Visible = True
'App.Quit