Run time err 9

hushell

你好：
我做了下面的程序：
Sub CreateNewWork()
    Dim WB As Workbook
    Dim sht As Worksheet
    Dim MyPath As String
    Dim Range1 As Range
    Dim range2 As Range
   
    MyPath = "C:\Users\hushe\Desktop\PG06\PG06-0924-01_2016-09-24_00-01-08.csv"
   
    Set WB = Workbooks.Add
    With WB
        .SaveAs Filename:="Summary"
        .Sheets(1).Name = "total"
    End With
    Set sht = WB.Worksheets.Add
   
   
    With sht
        .Name = "Shell"
    End With
    Range1 = Application.Workbooks(MyPath).Sheets(1).Range(Range("A1"), Range("A1").SpecialCells(xlLastCell))
    range2 = sht.Range("B1")
    Range1.Copy range2
   
    WB.Save
    WB.Close
        
End Sub
運(yùn)行時(shí)出現(xiàn)：Run time err 9 subscript out of range
debug時(shí)顯示Range1 = Application.Workbooks(MyPath).Sheets(1).Range(Range("A1"), Range("A1").SpecialCells(xlLastCell))有問(wèn)題。請(qǐng)幫我看一下問(wèn)題出現(xiàn)在什么地方。

謝謝！

liwen

Sub CreateNewWork()
    Dim WB As Workbook
    Dim sht As Worksheet
    Dim MyPath As String
    Dim Range1 As Range
    Dim range2 As Range
   
    MyPath = "F:\KM.xls"
   
    Set WB = Workbooks.Add
    With WB
        .SaveAs Filename:="Summary"
        .Sheets(1).Name = "total"
    End With
    Set sht = WB.Worksheets.Add
   
   
    With sht
        .Name = "Shell"
    End With
Set range2 = sht.Range("B1")
   With Application.Workbooks(MyPath).Sheets(1)
'   .Range(.Range("A1"), .Range("A1").SpecialCells(xlLastCell)).Copy sht.Range("B1")
Set Range1 = .Range(.Range("A1"), .Range("A1").SpecialCells(xlLastCell))
    End With
  Range1.Copy range2
   
    WB.Save
    WB.Close
        
End Sub

'加個(gè)Set 即可正常運(yùn)行

roych

對(duì)于組件對(duì)象（例如，單元格，工作簿，工作表等等，甚至ADO記錄集），必須使用set。
對(duì)于其他變量對(duì)象則不能使用set。例如，set xx="123"則報(bào)錯(cuò)