设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1694|回复: 2
打印 上一主题 下一主题

Run time err 9

[复制链接]
跳转到指定楼层
1#
发表于 2016-11-9 17:50:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
你好:
我做了下面的程序:
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
运行时出现:Run time err 9 subscript out of range
debug时显示Range1 = Application.Workbooks(MyPath).Sheets(1).Range(Range("A1"), Range("A1").SpecialCells(xlLastCell))有问题。请帮我看一下问题出现在什么地方。

谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享分享 分享淘帖 订阅订阅
2#
发表于 2016-11-10 10:23:07 | 只看该作者
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

'加个Set 即可正常运行
3#
发表于 2016-11-11 01:36:37 | 只看该作者
对于组件对象(例如,单元格,工作簿,工作表等等,甚至ADO记录集),必须使用set。
对于其他变量对象则不能使用set。例如,set xx="123"则报错
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:02 , Processed in 0.070745 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表