关于调用文件位置的宏

jinqin11 · 发表于 2016-4-25 11:15:51

您需要登录才可以下载或查看，没有帐号？注册

x

帮我看下，红色字体处错了，
我想调用当前的文件位置

ryouss · 发表于 2016-4-25 14:16:16

請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

jinqin11 · 发表于 2016-4-25 14:58:06

ryouss 发表于 2016-4-25 14:166 j; P6 A0 H. j( g1 L9 x
請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

梁SIR，谢谢

jinqin11 · 发表于 2016-4-25 15:04:32

宏没有写完，我想在文件中新增加一个属性栏，叫文件位置，
用手输入的可以调用，改成宏的不行
然后我只有最后的“\”到倒数第2的“\”之间的文字

jinqin11 · 发表于 2016-4-25 18:37:49

ryouss 发表于 2016-4-25 14:16& E2 J1 Z( y1 \9 J+ w( x* Q# X% f
請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

在自定义就可以了

ryouss · 发表于 2016-4-25 20:30:28

本帖最后由 ryouss 于 2016-4-25 20:35 编辑

如下參考:

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~2016/4/25 sc liang4 _7 L8 ]) M9 `4 J" ]6 }
'8 G( E2 {" U! g
' 宏 ---> 自訂屬性
, @! P: e: i5 b9 e s: Y( m6 J
' 功能:應用宏取得最後第二個""到最後""位置的路徑名稱,放置到自訂屬性欄; W" I9 `' A( e: W/ ~3 D0 G
') Y5 i Z i- [1 Y* }+ a: F5 Z) j) s
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ V! [9 h) n4 R9 o3 ?& C% e
, Y" p' J$ d7 b; k, D3 B; ^
Sub main()6 b l) V# E4 N8 l
．; B* r& i/ z {9 u3 D
Dim P1 As Integer
# m. x! X; U U! q! A/ ^
Dim P2 As Integer$ Q; J8 _8 J! M( ~, X$ C
Dim Path_Name As String
& G6 J# ~) z' E1 H
( j8 ^ @7 M( g X: m
Set swApp = Application.SldWorks
. g0 E# h, W F0 t4 \
Set swModel = swApp.GetFirstDocument8 o- a% z8 o4 m5 _6 M- I
Path_Name = swModel.GetPathName '取得目前零件的路徑及名稱
( ~0 h) M6 M x4 U% F- _- v6 }
P1 = InStrRev(Path_Name, "", , 1) '取得最後""的位置
: Z2 P" _4 m0 R+ Z$ l7 ^" I. y s
P2 = InStrRev(Path_Name, "", P1 - 1, 1) '取得最後第二個""的位置
, k1 b% D. \1 Y2 u$ \6 E
Path_Name = Mid(Path_Name, P2 + 1, P1 - P2 - 1) '取得目前零件的所在路徑
3 m3 g4 O% k9 l
retval = swModel.DeleteCustomInfo("文件位置") '刪除欄
# L% w$ b" p f! g
retval = swModel.AddCustomInfo3("", "文件位置", swCustomInfoText, Path_Name) '寫入路徑位置
9 k V+ g' m, g. u/ K9 ^
: J. z) f$ p( ~. D4 H8 x- ]
End Sub
- S" ^4 |4 U7 A1 e2 F2 q

复制代码

Path_Name.rar (9.91 KB, 下载次数: 16)

jinqin11 · 发表于 2016-4-25 21:22:33

ryouss 发表于 2016-4-25 20:30
4 J u- Y5 N' q- G. Y4 ^6 C" I* Z" ]如下參考:

太感谢了

抒怀新 · 发表于 2016-4-26 09:43:19

ryouss 发表于 2016-4-25 20:30
) G6 z% ]3 _+ b2 E% r如下參考:

对梁大，俺只有膜拜与仰望，请教梁大有无二次开发的资料让我们这些人学习学习

ryouss · 发表于 2016-4-26 11:55:37

抒怀新发表于 2016-4-26 09:43
8 b( D3 ^7 ] x2 G8 G) n对梁大，俺只有膜拜与仰望，请教梁大有无二次开发的资料让我们这些人学习学习

1. 在VBA之編輯模式狀況,按下 " F1 " 鍵,可以進入 VBA 的幫助,再尋找欄打入如 InStrRev ,就有說明用法.

2 . 建議先不管SW的API,而是要從EXCEL的VBA先研究了解．

抒怀新 · 发表于 2016-4-26 12:37:57

ryouss 发表于 2016-4-26 11:55
- G4 \* Y& b- E! p1. 在VBA之編輯模式狀況,按下 " F1 " 鍵,可以進入 VBA 的幫助,再尋找欄打入如 InStrRev ,就有說明用法 ...

谢谢梁大，顺便咨询梁大，有学EXCEL的VBA的资料或者网址引荐一下吗，感谢！

ryouss · 发表于 2016-4-26 13:50:59

本帖最后由 ryouss 于 2016-4-26 13:52 编辑

http://www.excelhome.net/

如上網站參考,學習 excel vba 不管是網站或是書局可以取得的資料非常多,稍微用點心不難入門(但要學精也是要發費時間的)．

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

通知