excel - VBS 从链接保存文件

Question

我想知道是否有人可以帮助我。

我想使用 this我正在尝试将脚本中的解决方案放在一起，但我有点不确定如何进行需要进行的更改。

您将在解决方案中看到打开的文件类型是 Excel，并且确实是这样保存的。但是我想打开和保存的文件是 .docx 和 .dat (由 Dragon 软件使用)文件的混合。

有人可以告诉我，有没有一种方法可以修改代码，以便它打开并将文件保存为 Excel 工作簿以外的文件类型。

这个问题背后的原因是因为我目前正在使用一个脚本，该脚本在给定文件夹的 Excel 电子表格中创建文件列表。对于检索到的每个文件，都有一个超链接，我想为其添加功能，使用户能够复制文件并将其保存到他们选择的位置。

为了帮助解决这个问题，我使用了用于创建文件列表的代码。

Public Sub ListFilesInFolder(SourceFolder As Scripting.folder, IncludeSubfolders As Boolean)
    Dim LastRow As Long
    Dim fName As String
    On Error Resume Next

    For Each FileItem In SourceFolder.Files
        ' display file properties
        Cells(iRow, 3).Formula = iRow - 12
        Cells(iRow, 4).Formula = FileItem.Name
        Cells(iRow, 5).Formula = FileItem.Path
        Cells(iRow, 6).Select
        Selection.Hyperlinks.Add Anchor:=Selection, Address:= _
        FileItem.Path, TextToDisplay:="Click Here to Open"
        iRow = iRow + 1 ' next row number

        With ActiveSheet
        LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
        LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    End With

For Each Cell In Range("C13:F" & LastRow) ''change range accordingly
    If Cell.Row Mod 2 = 1 Then ''highlights row 2,4,6 etc|= 0 highlights 1,3,5
        Cell.Interior.Color = RGB(232, 232, 232) ''color to preference
    Else
        Cell.Interior.Color = RGB(141, 180, 226) 'color to preference or remove
    End If
Next Cell

    Next FileItem


    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder, True
        Next SubFolder
    End If
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
End Sub

非常感谢和亲切的问候

克里斯

Answer 1

Miguel 提供了一个出色的解决方案，在最初的测试中似乎 100% 有效。但是正如你在帖子末尾的评论中看到的那样，当用户取消操作时出现了一些问题，所以我在 link 发了另一个帖子问题得到解决的地方。非常感谢和亲切的问候。克里斯