如何调整Excel宏实现CSV数据从链接导入并正确分列？

调整后的完整代码 #

Sub Data_Pull()
    Dim myurl As String
    Dim ws As Worksheet
    
    ' 直接引用工作表，避免使用Select/Activate操作
    Set ws = ThisWorkbook.Worksheets("Data_Pull")
    myurl = ThisWorkbook.Worksheets("Settings").Range("Y18").Value
    
    ws.Visible = True
    ws.UsedRange.ClearContents
    
    With ws.QueryTables.Add(Connection:= _
        "URL;" & myurl, Destination:=ws.Range("$A$1"))
        .Name = "CSV_Data_Pull"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        ' 关键修改：CSV为纯文本格式，选择整页而非指定表格
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = True
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    
    ' 强制按CSV规则拆分列（作为自动拆分的兜底方案）
    ws.Range("A1").CurrentRegion.TextToColumns _
        Destination:=ws.Range("A1"), _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Comma:=True, _
        Other:=False
End Sub

关键修改说明 #

• 替换网页选择类型：把WebSelectionType从xlSpecifiedTables改为xlEntirePage，因为CSV是纯文本流，并非网页结构化表格，指定表格会导致所有数据被识别为单一列的文本。
• 启用文本块导入：设置WebSingleBlockTextImport = True，确保拉取的CSV文本被作为整体处理，保证分隔符识别准确。
• 优化刷新模式：将RefreshStyle改为xlOverwriteCells，避免插入/删除单元格造成的格式错位问题。
• 添加强制拆分逻辑：通过TextToColumns手动指定逗号为分隔符、双引号为文本限定符，严格遵循CSV规则拆分数据，防止自动拆分失效。
• 移除冗余选中操作：直接引用工作表对象，减少宏运行时的错误概率，提升代码执行效率。

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