Question

我有一个以特定格式标记的文件夹中的文件列表。例如：

Part1001_SubPart01_7661273QWE
Part1001_SubPart02_8658769QWE
.....SubPart25_876827698QWE
Part1002_SubPart01_7869876WER.....

这就是标记这些文件的方式，在VBA中有哪种方法可以获得文件名的部分？只需 SubPart01 / 02 /... ，然后将其粘贴到相同/不同工作表的列中。对于例如一个名为sub-part的列;所以它包含值1到25。

Answer 1

因此，切断 SubPart 看起来就像这些内容：

Sub Cut()
Dim y As String
y = "Part1001_SubPart01_7661273QWE"
y = Right(y, Len(y) - InStr(y, "_"))
y = Left(y, InStr(y, "_") - 1)
MsgBox y
End Sub

Answer 2

你也可以这样做，使用Erik Westwig提到的split：

Sub SubPart()
    Dim sArr() As String
    sArr = Split("Part1001_SubPart01_7661273QWE", "_")
    MsgBox "The SubPart Number is : " & Right(sArr(1), 2)
End Sub

如何从工作簿中获取文件名并将其粘贴到另一个工作簿的列中

2 个答案: