VBA中奇怪的问题

zw19791220 2007-02-05 02:27:27
我有以下的代码
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "select folder", 0, 0)
Set myFolders = objFolder.Items()
Dim i As Integer
For i = 1 To myFolders.Count
MsgBox myFolders.Item(i).Path
Next i

当我写myFolders.Item(i).Path时抱错,但写myFolders.Item(1).Path时却没有问题,不知道是怎么回事?
哪位指导一下,谢了!
...全文
227 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
zw19791220 2007-02-13
  • 打赏
  • 举报
回复
没有人知道原因吗?
zw19791220 2007-02-13
  • 打赏
  • 举报
回复
非常感谢楼上这位朋友的回答!!!!
Arqui 2007-02-13
  • 打赏
  • 举报
回复
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "select folder", 0, 0)
Set myFolders = objFolder.Items()
Set myFolder = myFolders.Item
For Each myFolder In myFolders
MsgBox myFolder.Path
Next
ChinaOBS 2007-02-05
  • 打赏
  • 举报
回复
不太清楚,不过下面的代码是可以正常执行的:
Sub Test()
On Error Resume Next
Dim objFolder As Folder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "select folder", 0, 0)
Dim i As Integer
For i = 1 To objFolder.Items.Count
Debug.Print objFolder.Items.Item(i).Path
Next i
End Sub

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧