如何获取指定文件夹下文件列表并生成超链接？

alexandkit

各位老师，你们好！
最近碰到个难题，百思不得其解。
====================
我在本地有个文件夹，会定期把outlook里的邮件（.msg文件）保存到这个文件夹里。
想要做一个macro，可以一键获取该文件夹下所有邮件的列表。
A列 - 显示邮件标题
B列 - 显示发送方
C列 - 先送邮件接收时间
D列 - 生成该邮件的超链接，可以直接打开文件夹下相应的邮件。

不知道万能的excel可以完成以上要求吗？
小弟在此先行谢过各位老师了！！

具体要求和附件，已经在第8楼附上，请各位老师移步一看，多谢！！

alexandkit

自己顶一下，请老师们帮忙想想办法吧！

alexandkit

请老师们帮忙看下，谢谢啦

gftrewq

alexandkit 发表于 2015-11-19 15:39
请老师们帮忙看下，谢谢啦

Sub test()'提取与其同目录下的文件或文件夹名，并加超级链接  

   Dim MyPath$, MyFile$, k
   MyPath = ThisWorkbook.Path & "\"
  MyFile = Dir(MyPath, vbDirectory)
  Do
    If MyFile <> "" And Len(Replace(MyFile, ".", "")) <> 0 Then
        k = k + 1
        Sheet1.Hyperlinks.Add Cells(k, 1), ThisWorkbook.Path & "\" & MyFile, , , MyFile
    End If
    MyFile = Dir
  Loop While MyFile <> ""
End Sub

alexandkit

gftrewq 发表于 2015-11-19 16:27
Sub test()'提取与其同目录下的文件或文件夹名，并加超级链接  

   Dim MyPath$, MyFile$, k

谢谢啦！
不过跟我的要求好像还是有点不一样的。。

继续顶。。

huang1314wei

顶没用，没有附件不写代码

alexandkit

huang1314wei 发表于 2015-11-19 18:00
顶没用，没有附件不写代码

其实就是一个文件夹里随便放几个邮件啊。
好吧，明天到公司就上附件。

谢谢你的提醒！！

alexandkit

继续请教，附上附件！

emails.zip (83.35 KB, 下载次数: 64)

2015-11-20 09:05 上传

点击文件名下载附件

1. 文件夹下面有两封邮件，一个excel文件。


2. 希望做到打开excel，运行macro后，能够显示如下

• A列 - 发件人
• B列 - 邮件主题 （同时创建一个能直接打开该邮件的超链接）
• C列 - 邮件收取时间
  

希望各位老师能够帮忙看一下， 谢谢了！！！

alexandkit

再顶一下。
希望各位老师帮忙想想办法

alexandkit

都两天了，是不是这个问题excel无法做到啊？