如何为SliceNDice VBA代码指定C:\SI路径下的目标Excel文件？

我来帮你调整这段VBA代码，让它可以读取C:\SI路径下指定的Excel文件，执行拆分逻辑后输出结果。下面是修改后的完整代码，以及关键改动的说明：

修改后的完整代码 #

Sub SliceNDice_ExternalFile()
    Dim objRegex As Object
    Dim X
    Dim Y
    Dim lngRow As Long
    Dim lngCnt As Long
    Dim tempArr() As String
    Dim strArr
    Dim wb As Workbook
    ' 定义外部文件的路径和文件名，请替换成实际的文件名（比如"DataFile.xlsx"）
    Const EXCEL_FILE_PATH As String = "C:\SI\你的Excel文件名.xlsx"
    ' 定义外部文件中要处理的工作表名称，请替换成实际表名
    Const SHEET_NAME As String = "Sheet1"

    ' 初始化正则表达式
    Set objRegex = CreateObject("vbscript.regexp")
    objRegex.Pattern = "^\s+(.+?)$"

    ' 错误处理：如果文件不存在或打开失败，给出提示
    On Error Resume Next
    Set wb = Workbooks.Open(Filename:=EXCEL_FILE_PATH, ReadOnly:=True, Visible:=False)
    On Error GoTo 0

    If wb Is Nothing Then
        MsgBox "无法找到或打开文件：" & EXCEL_FILE_PATH, vbExclamation
        Exit Sub
    End If

    ' 从外部工作簿的指定工作表中读取A、B列数据
    With wb.Sheets(SHEET_NAME)
        X = .Range(.Range("A1"), .Cells(.Rows.Count, "B").End(xlUp)).Value2
    End With

    ' 初始化结果数组
    ReDim Y(1 To 2, 1 To 1000)
    lngCnt = 0

    ' 遍历每一行数据，拆分B列内容
    For lngRow = 1 To UBound(X, 1)
        tempArr = Split(X(lngRow, 2), ",")
        For Each strArr In tempArr
            lngCnt = lngCnt + 1
            ' 每1000条记录扩容一次数组
            If lngCnt Mod 1000 = 0 Then
                ReDim Preserve Y(1 To 2, 1 To lngCnt + 1000)
            End If
            Y(1, lngCnt) = X(lngRow, 1)
            ' 去除拆分后内容的前置空格
            Y(2, lngCnt) = objRegex.Replace(strArr, "$1")
        Next
    Next lngRow

    ' 将结果写入当前工作簿的C、D列（你也可以改成写入外部文件，只需修改这里的Range对象）
    ThisWorkbook.Sheets("Sheet1").Range("C1").Resize(lngCnt, 2).Value2 = Application.Transpose(Y)

    ' 关闭外部工作簿，不保存修改（如果需要保存外部文件的改动，把SaveChanges改成True）
    wb.Close SaveChanges:=False
    Set wb = Nothing
    Set objRegex = Nothing

    MsgBox "处理完成！结果已写入当前工作簿的C、D列。", vbInformation
End Sub

关键改动说明 #

• 指定外部文件路径：通过EXCEL_FILE_PATH常量定义目标文件的完整路径，你需要把你的Excel文件名.xlsx替换成实际的文件名（比如DataSource.xlsx）。
• 静默打开外部文件：使用Workbooks.Open时加上ReadOnly:=True（避免锁定文件）和Visible:=False（后台运行，不显示打开的窗口）。
• 读取外部工作表数据：通过wb.Sheets(SHEET_NAME)引用外部文件的指定工作表，记得把SHEET_NAME替换成实际的工作表名称（比如"数据列表"）。
• 结果输出位置：默认把结果写入当前运行宏的工作簿的Sheet1的C、D列，如果需要写入外部文件，只需把ThisWorkbook.Sheets("Sheet1")改成wb.Sheets("目标工作表名")即可。
• 错误处理：增加了文件打开失败的判断，避免代码崩溃并给出友好提示。

使用注意事项 #

1. 确保C:\SI路径存在，且目标Excel文件没有被其他程序锁定。
2. 如果外部文件的A、B列数据结构和原宏的预期一致（A列是关联值，B列是用逗号分隔的内容），直接运行宏即可。
3. 运行宏前，建议先备份外部文件，避免意外修改。

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