如何通过EXCEL快速获取我最近的文档信息

作者：绿色风分类：时间：2022-08-17 浏览：135

楼主 yjzstar	Q:如何通过EXCEL获取我最近的文档的具体信息，并导入EXCEL中？ A：通过shell32.shell,shell32.folderitem对象，对命名空间namespace的读取，便能轻轻松松的利用EXCEL快速读取我最近的文档信息！ Public Sub 获取最近使用文档信息() Dim sh As Shell32.Shell Dim fl As Shell32.FolderItem Dim rng As Range Set rng = [A1] Set sh = CreateObject("Shell.Application") For Each fl In sh.Namespace(8).Items rng = fl.Name Set rng = rng.Offset(1, 0) Next Set sh = Nothing End Sub 注意：运行前必须首先引用microsoft shell controls and automation项目！导入最近使用文档信息.rar
2楼篮板球	VBA效果动画展示。挺好的。
3楼水星钓鱼	已经用了这个Set sh = CreateObject("Shell.Application") 就没有必要这个了注意：运行前必须首先引用microsoft shell controls and automation项目！
4楼老糊涂	学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

楼主 yjzstar	Q:如何通过EXCEL获取我最近的文档的具体信息，并导入EXCEL中？ A：通过shell32.shell,shell32.folderitem对象，对命名空间namespace的读取，便能轻轻松松的利用EXCEL快速读取我最近的文档信息！ Public Sub 获取最近使用文档信息() Dim sh As Shell32.Shell Dim fl As Shell32.FolderItem Dim rng As Range Set rng = [A1] Set sh = CreateObject("Shell.Application") For Each fl In sh.Namespace(8).Items rng = fl.Name Set rng = rng.Offset(1, 0) Next Set sh = Nothing End Sub 注意：运行前必须首先引用microsoft shell controls and automation项目！导入最近使用文档信息.rar
2楼篮板球	VBA效果动画展示。挺好的。
3楼水星钓鱼	已经用了这个Set sh = CreateObject("Shell.Application") 就没有必要这个了注意：运行前必须首先引用microsoft shell controls and automation项目！
4楼老糊涂	学习