Question

excel vba执行到 Worksheets(1).Cells(dic(s_v), 10).Paste 说对象不支持该属性或方法，怎么回事

Private Sub CommandButton2_Click()
Application.ScreenUpdating = True
Dim dic As Object, i As Long
Set dic = CreateObject("Scripting.Dictionary")
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlbook = xlApp.Workbooks.Open("D:\EXCEL\ITS电气元器件库.xlsm")
xlApp.Visible = False
For i = 3 To 65536
If Not dic.Exists(Worksheets("Sheet1").Cells(i, 4).Value) Then dic.Add Worksheets("Sheet1").Cells(i, 4).Value, i
Next i
xlApp.Workbooks("ITS电气元器件库.xlsm").Worksheets("Sheet1").Select
For i = 3 To 65536
s_v = xlApp.Workbooks("ITS电气元器件库.xlsm").Worksheets("Sheet1").Cells(i, 4).Value
If dic.Exists(s_v) Then
Cells(dic(s_v), 10) = xlApp.Workbooks("ITS电气元器件库.xlsm").Worksheets("Sheet1").Cells(i, 5)
xlApp.Workbooks("ITS电气元器件库.xlsm").Worksheets("Sheet1").range(Cells(i, 5).Address, Cells(i, 14).Address).Copy
Worksheets(1).Cells(dic(s_v), 10).Paste
End If
Next i
With xlbook
.Close
End With
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlApp = Nothing
End Sub

Answer 1

通过查看“对象浏览器”，Cells属于Range类，Range里面没有Paste方法，而是PasteSpecial方法，
建议更改为下面代码 试试：
Worksheets(1).Cells(dic(s_v), 10).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Answer 2

worksheet(1)引用的是该工作簿中的第一个工作表，即引用的是顺序号为1的工作表.
是否表格弄错了.?

追问

没有错额，就是Sheet1， 我填“Sheet1”也不行