vb 操作EXCE第一次运行可以,第二次运行出错

[goosen]

Private Sub Command1_Click()
Dim ex As excel.Application
Dim wb As excel.Workbook
Dim sh As Object



CommonDialog1.ShowOpen
Set ex = CreateObject("Excel.Application")
Set wb = ex.Workbooks.Open(CommonDialog1.FileName)
Dim a As Integer
Dim k As Integer
a = 1
For k = 1 To 3
a = a + 1
wb.Sheets(1).Select
wb.Sheets(1).Copy Before:=Sheets(a) Next k '这行出错

Set sh = Nothing
wb.Close savechanges:=True
ex.Quit
Set wb = Nothing
Set ex = Nothing

MsgBox "ok"

End Sub


有办法解结吗?

[Tiger_Zhao]

要明确指定在同一个工作簿中进行复制

wb.Sheets(1).Copy Before:=wb.Sheets(a)

没指定的 Sheets(a) 为当前工作簿，这个当前是哪个？

[sosoben]

[Quote=引用 1 楼 的回复:]

要明确指定在同一个工作簿中进行复制
VB code
wb.Sheets(1).Copy Before:=wb.Sheets(a)

没指定的 Sheets(a) 为当前工作簿，这个当前是哪个？
[/Quote]

正解 这分也太好赚了吧？？