获取当前文件名

AA5242 · 发表于 2023-4-28 09:19

大家好，怎样获取当前文件名呢

zxsea_7426 · 发表于 2023-4-28 09:21

本帖最后由 zxsea_7426 于 2023-4-28 09:22 编辑

试一下这个，ThisWorkbook.Name

剑指E · 发表于 2023-4-28 09:45

Split(ThisWorkbook.Name, ".xls")(0)

AA5242 · 发表于 2023-4-28 09:55

zxsea_7426 发表于 2023-4-28 09:21
试一下这个，ThisWorkbook.Name

出错呢。。。。。。。。。。

zxsea_7426 · 发表于 2023-4-28 10:11

AA5242 发表于 2023-4-28 09:55
出错呢。。。。。。。。。。

在你这个代码里需要文件名的前缀部分，split(ThisWorkbook.Name,".")(0)

AA5242 · 发表于 2023-4-28 20:21

zxsea_7426 发表于 2023-4-28 10:11
在你这个代码里需要文件名的前缀部分，split(ThisWorkbook.Name,".")(0)

是什么意思啊，不明白呢

AA5242 · 发表于 2023-4-28 20:25

AA5242 发表于 2023-4-28 20:21
是什么意思啊，不明白呢

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
longstatus = Part.SaveAs3("C:\Users\00\Desktop\" & 《获取当前文件名》 & ".IGS", 0, 0)
End Sub
《获取当前文件名》要怎样改呢，老师。

mmwwdd · 发表于 2023-4-29 06:59

thisworkbook.name

		自动登录	找回密码
密码			免费注册