求助大佬，急

正好我有一个现成的。
我这个是弹出一个对话框，选定一个文件夹。
新建一个现成的EXCEL文档，并创建选定文件夹内所有文件的快捷超链接（指的是从这个EXCEL文档中，点击超链接自动打开文件）
你可以根据我这个自己改。

这是效果图

Option Explicit
' =================================================================
' 模块名称: Module1
' 功能描述: 此模块包含选定文件夹并为文件夹新建Excel目录和超链接的过程；
' 开发者: 薛丹丹
' 日期: 2024-10-01
' 版本: 1.0
'过程说明：
'1、过程（1）：运行过程后，首先选定一个文件夹；
'2、过程（2）：弹出确认窗口，在文件夹相同目录下，新建工作簿"文件目录.xlsx"；并在其中新建工作表"文件目录"；
'3、过程（2）：在工作表"文件目录"中，第1行A、B、C列分别为“文件名称”、“文件超链接”、“文件最后修改日期”；
'4、过程（3）+过程（4）：一个是路径是否选定；一个是检查工作表是否创建；（均为启用）
'5、过程（5）在：行A、B、C列第2行开始，依次列出本文件夹内的Word文档的“文件名称”、“文件超链接”、“文件最后修改日期”,并保存；
' =================================================================
' 在模块的开始处声明全局变量
Dim gFolderPath As String
'这个变量是文件目录的全局变量，为文本模式
Public gblWorkbookName As String
'这个变量是文件名称的全局变量，为文本模式
Dim newWorkbook As Workbook
'这个变量是新建工作表的全局变量
Dim filePath As String
'这个变量是新建EXCEL文件的全局变量，为文本模式
' 过程（1）：设置文件夹路径
Sub SetFolderPath1()
Dim fd As FileDialog
' 设置FileDialog为选择文件夹
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
' 显示对话框
If 网页链接 = -1 Then
' 用户选择了文件夹
gFolderPath = fd.selectedItems(1)
' 显示选择的文件夹路径（可选）
MsgBox "选择的文件夹路径是: " & gFolderPath
' 调用CreateNewExcelFileToSpecificPath，但这次我们使用全局变量
End If
Call CreateAndRenameWorksheetInDocumentCatalog1
End Sub
'过程（2）：在指定路径创建新的Excel文件，并创建工作表
Sub CreateAndRenameWorksheetInDocumentCatalog1()
' 设置文件夹路径（请替换为实际路径）
'gFolderPath = "C:\你的文件夹路径\" ' 请确保路径末尾有反斜杠 \
' 构造文件路径
filePath = gFolderPath & "\" & "文件目录.xlsx"
MsgBox "选择的文件夹路径是: " & gFolderPath
MsgBox "文件名称是: " & filePath
' 检查文件是否存在（这一步是可选的，但如果文件已存在且你不想覆盖它，则应进行检查）
' 如果文件已存在且你不想覆盖它，可以注释掉下面的 网页链接 和 SaveAs 语句，
' 直接使用 网页链接 打开文件，并跳过重命名工作表的部分（如果它已经被命名为“文件目录”）
' 或者，你可以添加一些逻辑来处理文件已存在的情况
' If Dir(filePath) <> "" Then
' MsgBox "文件已存在，请处理。"
' Exit Sub
' End If
' 创建一个新的工作簿
Set newWorkbook = 网页链接
' 保存新工作簿到指定路径
网页链接 fileName:=filePath
' 现在，工作簿已经被保存并关闭（SaveAs 方法会自动关闭原始的未保存的工作簿副本），
' 我们需要重新