求助：修正Excel宏批量保存URL为HTML文件的顺序反转问题

问题根源 #

原代码中For Each Hyperlink In ActiveSheet.Hyperlinks遍历的是工作表的超链接集合，这个集合的顺序由超链接的创建/修改顺序决定，和单元格从上到下的位置顺序无关。当你更新表格里的URL（或网站URL排列变化导致超链接重建），集合顺序就会出现反转，导致下载顺序颠倒。

修改方案 #

改为按单元格从上到下的位置顺序遍历指定列（默认A列）的超链接，确保下载顺序严格对应表格里的排列：

Const TargetFolder = "D:\Excel Hyperlinks Downloaded\"

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Sub HTTPDownloadFile(ByVal URL As String, ByVal LocalFilename As String)
    Dim Res As Long
    On Error Resume Next
    Kill LocalFilename
    On Error GoTo 0
    Res = URLDownloadToFile(0&, URL, LocalFilename, 0&, 0&)
End Sub

Sub MyFileDownload()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim num As Integer
    
    Set ws = ActiveSheet
    ' 获取A列最后一个有数据的行（如果超链接在其他列，修改Columns("A")为对应列，比如Columns("B")）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    num = 1
    
    ' 从上到下遍历A列的每个单元格
    For Each cell In ws.Range("A1:A" & lastRow)
        ' 只处理包含超链接的单元格
        If cell.Hyperlinks.Count > 0 Then
            Dim targetURL As String
            targetURL = cell.Hyperlinks(1).Address
            ' 生成保存文件名（保持原逻辑：按序号命名）
            LocalFilename = num & ".html"
            Call HTTPDownloadFile(targetURL, TargetFolder & LocalFilename)
            num = num + 1
        End If
    Next cell
End Sub

关键修改说明 #

1. 替换原超链接集合遍历逻辑，改为按单元格区域顺序遍历，直接读取每个单元格的超链接，确保顺序严格对应表格从上到下的排列
2. 增加lastRow变量自动获取目标列的最后一行，避免遍历空单元格
3. 新增cell.Hyperlinks.Count > 0判断，跳过没有超链接的单元格
4. 如果超链接不在A列，只需修改Columns("A")和Range("A1:A" & lastRow)中的列标识即可（比如改为"B"）

内容的提问来源于stack exchange，提问作者Seneca