请教高手帮忙看看这句VBA代码出了什么问题！

Dozen

正在开发个简单的VBA的PPT：
有一个表，有一列ID，一行一个，几千行，现在要把excel表上的ID放到PPT上，每页PPT放10个ID，简单的对齐排版，研究了一天，基本实现了想要的效果，但是遇到了一个问题一直想不通，所以发上来看有没有高手能帮忙指教一下：


以下为出错部分代码

'以下代码提醒使用者先清空原有幻灯片
    '====================================================================================
    If ActivePresentation.Slides.Count <> 1 Then
        MsgBox ("请先清空除封面以外的所有幻灯片！！！")
        Exit Sub
    End If
   
    '以下代码导入excel数据源
    '====================================================================================
    Dim xlApp As Object
    Dim xlWBK As Object        '定义工作薄对象
    Dim xlSht As Object          '定义工作表对象
    Dim fPath As String          '定义筹号文件路径
    Dim lastRow As Integer    '定义最后一个筹号所在的行
    Dim arrID
   
    '打开对话框选择文件并获取文件路径
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show = False Then Exit Sub
        fPath = .SelectedItems(1)
    End With
   
    '打开指定工作薄并把工作表筹号信息存为数组
    Set xlApp = CreateObject("Excel.Application")
    Set xlWBK = xlApp.Workbooks.Open(fPath)
    Set xlSht = xlWBK.Worksheets("筹号")

    'arrID = xlSht.Range("A2:A17")       '用这句代码没问题，但换成下面的代码就出错了
    lastRow = xlSht.Range("A" & Rows.Count).End(xlUp).Row
    arrID = xlSht.Range("A2:A" & lastRow)

    xlWBK.Close False
   
    '释放对象
    Set xlApp = Nothing
    Set xlWBK = Nothing
    Set xlSht = Nothing

代码“lastRow = xlSht.Range("A" & Rows.Count).End(xlUp).Row”  出错，但在excel里面运行是没问题的

梧月书声

1. lastRow = xlSht.Range("A" &xlSht.UsedRange.Rows.Count).End(xlUp).Row

复制代码

或者

1. lastRow = xlSht.Range("A65536").End(xlUp).Row

复制代码

Dozen

梧月书声 发表于 2016-7-29 22:44
或者

谢谢楼上，以上代码经过测试，还是不行，不知有没有其他高手指教一下

梧月书声

终于知道是哪的问题了，xlUp是一个Excel定义的常量，PowerPoint中没有这个常量定义，所以需要先

1. Const xlUp As Long = -4162

复制代码

定义出来才能正常运行。或者直接用数值应该也行。
下面的代码亲测有效

1. Option Explicit
   
2. Sub cc()
   
3. 
   
4. 
   
5. '以下代码提醒使用者先清空原有幻灯片
   
6. '====================================================================================
   
7. If ActivePresentation.Slides.Count <> 1 Then
   
8.      MsgBox ("请先清空除封面以外的所有幻灯片！！！")
   
9.      Exit Sub
   
10. End If
    
11. 
    
12. '以下代码导入excel数据源
    
13. '====================================================================================
    
14. Dim xlApp As Object
    
15. Dim xlWBK As Object        '定义工作薄对象
    
16. Dim xlSht As Object          '定义工作表对象
    
17. Dim fPath As String          '定义筹号文件路径
    
18. Dim lastRow As Integer    '定义最后一个筹号所在的行
    
19. Dim arrID
    
20. Const xlUp As Long = -4162
    
21. 
    
22. '打开对话框选择文件并获取文件路径
    
23. With Application.FileDialog(msoFileDialogFilePicker)
    
24.      If .Show = False Then Exit Sub
    
25.      fPath = .SelectedItems(1)
    
26.      
    
27. End With
    
28. 
    
29. '打开指定工作薄并把工作表筹号信息存为数组
    
30. Set xlApp = CreateObject("Excel.Application")
    
31. Set xlWBK = xlApp.Workbooks.Open(fPath)
    
32. Set xlSht = xlWBK.Sheets("筹号")
    
33. 
    
34. 
    
35. 
    
36. 'arrID = xlSht.Range("A2:A17")       '用这句代码没问题，但换成下面的代码就出错了
    
37. lastRow = xlSht.Cells(xlSht.Rows.Count, "A").End(xlUp).Row
    
38. arrID = xlSht.Range("A2:A" & lastRow)
    
39. 
    
40. xlWBK.Close False
    
41. 
    
42. '释放对象
    
43. Set xlApp = Nothing
    
44. Set xlWBK = Nothing
    
45. Set xlSht = Nothing
    
46. 
    
47. End Sub
    

复制代码

dongdonggege

你可以修改下：
    Set xlApp = CreateObject("Excel.Application")
    Set xlWBK = xlApp.Workbooks.Open(fPath)
    Set xlSht = xlWBK.Worksheets("Sheet1")
    xlSht.Activate
    For i = 2 To 4
    MsgBox xlSht.Cells(i, 1).Value
    Next
或者再增加个for j=
我也是excel不太熟啊。

Dozen

梧月书声 发表于 2016-7-30 21:04
终于知道是哪的问题了，xlUp是一个Excel定义的常量，PowerPoint中没有这个常量定义，所以需要先定义出来才 ...

非常感谢楼上的解答，只是还是有一个问题: 定义常数中的-4162 是哪来的？

梧月书声

当然是查帮助文档咯~

问题解决了还请给评个分哈~~

dongdonggege

可能未引用，VBE——工具——引用Microsoft excel 12.0 object library

wang-way

astRow = xlSht.Range("A" & Xlsht.cells.Rows.Count).End(xlUp).Row