Question

求excel的vba代码，截取所属文件名中的一截字符。 比如excel文件名是”314-56.五月

求excel的vba代码，截取所属文件名中的一截字符。
比如excel文件名是”314-56.五月份交易记录.AsRuSc.已打印.xlsx，求三段vba代码。1:截取第一个点号前的字符，即“314-56”。2:截取第一个横杠与第一个点号之间的字符，即“56”。3:截取第一个点号和第二个点号之间的字符，即“五月份交易记录”。
要vba代码，不要公式不要数据分列的办法。那些我都会。另外，是按符号截取，不是按字符数截取，因为每个文件名长度都不一样。
补充一下说明吧。

首先，我需要的是三段代码，分别用来做三个不同的宏。这个宏的用处就是，当我打开文件在某个单元格执行宏时，会按照我之前说的要求截取文件名中的一部分字符填入。比如我执行宏1，就在光标所在单元格填入“314-56”，如果执行宏2，则填入“56”
，执行宏3，则填入“五月份交易记录”。

其次，截取的是文件名的一部分。也就是说，我打开的是”314-56.五月份交易记录.AsRuSc.已打印.xlsx“这个文件的话，是截取这个的一部分比如”314-56“。但是如果我打开的是另一个文件”15-236.支出登记.AUp.已结算“，执行宏1则会在单元格中填入”15-236“。每个文件的文件名都不一样的，代码需要的是截取我当前打开的文件的文件名，而不是固定的某个文件名。

Answer 1

程序代码如下：

Sub 宏1()
    Dim s, arr1, arr2
    s = ActiveSheet.Name
    s = "314-56.五月份交易记录.AsRuSc.已打印.xlsx"
    arr1 = Split(s, ".")
    arr2 = Split(arr1(0), "-")
    MsgBox "你需要的三个部分是:" & Chr(10) & arr1(0) & Chr(10) & arr2(1) & Chr(10) & arr1(1)
End Sub

 

追问

不，我不是这个意思，我是说要三段代码，每段做一个宏，执行后，单元格内会填充我需要的那一段

另外，截取的是文件名。也就是说我换另一个文件，比如说“128-12.八月开支.xlsx”，那么截取的是128-12，12，和八月开支。

追答

唉，例如我写下面这么一个语句：
MsgBox ActiveWorkbook.Name

你把它弄到宏里面会吗，就是在前面添加一个SUB，后面写一个END SUB，也就是这样：
SUB 宏123()
MsgBox ActiveWorkbook.Name
END SUB

现在可以执行上面的宏了吧，这个宏执行后的效果看见了么：就是把当前文件的名字显示出来。

再慢一点，文件名字都显示出来了，要分成几段填写在单元格里面，是不是很容易了。

追问

我不会写代码的，你能否直接做好代码给我。之前你那个代码我运行过了，首先他是像你图片中一样是出来一个框显示三段字符的。而我需要的是三个宏，执行其中一个就会在光标所在单元格填入我需要的字符段。三个宏分别截取文件名不同部分。其次，你之前那个宏我执行时，截取的不是文件名，而是我举例的那段固定的文字。而我需要这个宏在不同文件名的文件内也能使用。比如文件名是“12-1.六月.xlsx”，就截取12-1等等

追答

填在哪个单元格？？？下面的代码填在A1、A2、A3，你自己根据需要修改吧，这个应该不难：

Sub 宏1()
    Dim s, arr1, arr2
    s =  ActiveWorkbook.Name
    arr1 = Split(s, ".")
    arr2 = Split(arr1(0), "-")
    [a1]=arr1(0)
    [a2]=arr2(1)     
    [a3]=arr1(1)
End Sub

如果你觉得一个宏填三个地方不满意，希望弄三个宏，你就把上面的代码复制三份吧，注意修改两个地方：一是宏名不能相同，复制成三份需要使用宏1、宏2、宏3；二是最后[A1]、[A2]、[A3]的三句，每个宏就只保留自己的那一句。

追问

光标所在的单元格

我试过了，上面那个代码ok的。然后如果把单元格[a1] [a2] [a3]那里改成ActiveCell，就可以在光标所在单元格进行填充了。谢谢了！要的就是这个代码！

Answer 2

Sub mysub()
    Dim mystr
    mystr = "314-56.五月份交易记录.AsRuSc.已打印.xlsx"
    mystr = Split(mystr, ".")
    Debug.Print "第一个点号前的字符:"; mystr(0)
    Debug.Print "第一个横杠与第一个点号之间的字符:"; Split(mystr(0), "-")(1)
    Debug.Print "第一个点号和第二个点号之间的字符:"; mystr(1)
End Sub

追问

怎么用啊？没懂。我需要三个宏，分别执行后单元格内会截取文件的字符。你这个怎么用？

追答

你利用以上代码做三个函数就可以了啊，要活学活用吗，按Alt+F11打开VBA，插入模块，在模块中贴入以下代码：

Function GetStr1(str As String) As String
    Dim mystr
    mystr = str
    mystr = Split(mystr, ".")
    GetStr1 = mystr(0)
End Function
Function GetStr2(str As String) As String
    Dim mystr
    mystr = str
    mystr = Split(mystr, ".")
    GetStr2 = Split(mystr(0), "-")(1)
End Function
Function GetStr3(str As String) As String
    Dim mystr
    mystr = str
    mystr = Split(mystr, ".")
    GetStr3 = mystr(1)
End Function

关闭VBA窗口，在Excel文件中利用以上三个函数即可，如下图所示：

追问

不会，能直接写三段代码给我吗？我只会直接做成宏

追答

按照上面的步骤操作就是了