CAD的VBA提取文件名

可以使用VBA中的InStrRev函数和Mid函数来提取CAD文件名。

下面是一个示例代码：

Sub ExtractFileName()
    '获取当前文件名
    Dim fileName As String
    fileName = ThisDrawing.FullName
    
    '查找最后一个反斜杠的位置
    Dim pos As Integer
    pos = InStrRev(fileName, "\")
    
    '提取文件名
    Dim name As String
    name = Mid(fileName, pos + 1)
    
    '输出文件名
    MsgBox name
End Sub

这个代码会在CAD中弹出一个消息框，显示当前文件的文件名。

相关问题

vba 更改文件名 excel

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office软件的编程语言。在Excel中使用VBA可以实现很多自动化的功能，包括更改文件名。

要使用VBA更改Excel文件名，首先需要打开Visual Basic编辑器，然后在项目资源管理器中选择对应的工作簿，双击打开“模块”文件夹，或者新建一个模块。在模块中编写VBA代码来实现更改文件名的功能。

下面是一个简单的VBA代码示例，来实现更改文件名的功能：

Sub ChangeFileName()
    Dim oldName As String
    Dim newName As String

    oldName = "旧文件名.xlsx" '需要更改的文件名
    newName = "新文件名.xlsx" '更改后的文件名

    Name "C:\文件路径\" & oldName As "C:\文件路径\" & newName
End Sub

在这个示例中，首先定义了两个变量oldName和newName，分别表示旧文件名和新文件名。然后使用Name函数来实现文件名的更改，将旧文件名更改为新文件名。

当然，实际应用中可能会涉及到更多的操作，比如判断文件是否存在、文件路径的获取等，但基本的原理就是通过VBA来操作文件名，实现文件名的更改。同时，在实际应用中需要注意对文件操作的合法性和稳定性，可以添加错误处理和验证，以确保程序的稳定性和安全性。

VBA提取文件名 C:\PRQA\QAC-8.1.2-R\LVS\V0.1\src\App\c Files\Voltage.c

你可以使用以下的VBA代码来提取文件名：

Sub ExtractFileName()
    Dim filePath As String
    Dim fileName As String
    
    filePath = "C:\PRQA\QAC-8.1.2-R\LVS\V0.1\src\App\c Files\Voltage.c"
    
    fileName = Mid(filePath, InStrRev(filePath, "\") + 1)
    
    MsgBox fileName
End Sub

这段代码会弹出一个消息框显示提取出的文件名："Voltage.c"。你可以根据自己的需求修改代码中的 filePath 变量来提取不同的文件名。