EDI转Excel：VBA代码无法提取PID物料描述求助

1. 核对EDI字段拆分的索引位置 #

EDI的PID段以*作为分隔符，示例PID*F*08***GENTLE MONSTER BLCK HORNET~的字段索引（VBA数组从0开始）如下：

• 索引0: PID
• 索引1: F
• 索引2: 08
• 索引3: 空
• 索引4: 空
• 索引5: GENTLE MONSTER BLCK HORNET

很多问题源于数错空字段导致取错索引，正确提取的代码片段参考：

Dim pidParts As Variant
' 先移除行尾的波浪线
pidLine = Replace(pidLine, "~", "")
pidParts = Split(pidLine, "*")

' 先判断数组长度足够，避免下标越界
If UBound(pidParts) >= 5 Then
    ' 替换成你实际要写入的单元格位置
    Cells(targetRow, "D").Value = Trim(pidParts(5))
End If

2. 处理行尾的波浪线~ #

EDI行通常以~结尾，若不提前移除，拆分后最后一个字段会附带该符号，导致提取的描述内容异常。除了Replace，也可以用Left截断：

pidLine = Left(pidLine, Len(pidLine) - 1)

3. 确保只处理PID开头的行 #

要避免代码误处理其他EDI段，必须先判断行的起始标识：

If Left(currentLine, 4) = "PID*" Then
    ' 执行PID段的提取逻辑
End If

4. 排查空字段导致的数组边界问题 #

连续的*会生成空数组元素，必须通过UBound(pidParts)判断数组长度是否足够，再去提取目标字段，防止下标越界错误中断代码执行。

5. 确认Excel列的定位正确性 #

检查代码中写入的单元格位置是否对应PID Description列，比如是否误用了列号（如把"E"写成"D"），或者行号递增逻辑错误导致内容被覆盖。

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