关于调用文件位置的宏

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:16
2 Q6 T1 t9 M. g% y& p- }請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

梁SIR，谢谢

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

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

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

ryouss 发表于 2016-4-25 14:16
. v+ l; G! C: V* C9 K5 j請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

在自定义就可以了

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

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

如下參考:

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~2016/4/25 sc liang `7 r8 F4 R4 x/ @# e* h7 C
'! A E; o4 J. ^! C5 J H8 p
' 宏 ---> 自訂屬性$ |/ }/ E8 |3 `) A
' 功能:應用宏取得最後第二個""到最後""位置的路徑名稱,放置到自訂屬性欄1 A0 ~ |0 X4 y# @8 m" v
'4 Z! t7 V( ^. c9 d
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~) [8 S( V8 H9 N9 N% g) Z& ?/ D; E0 ?
" ?4 k+ Y8 Y! u8 v8 H9 G% s$ C
Sub main()
9 [( z1 r$ n7 O
．% l& K/ J7 E: j9 z* r7 i1 I. X
Dim P1 As Integer8 e) h5 W% X, {/ A( g& f
Dim P2 As Integer
( p3 C1 b1 c/ T1 S* N. |
Dim Path_Name As String
/ p% i3 ]$ d; c& L
6 ^3 o7 s! V3 T3 \3 b
Set swApp = Application.SldWorks9 Z& b& j4 b% [- Z
Set swModel = swApp.GetFirstDocument
0 m; |1 o' E. T8 X z
Path_Name = swModel.GetPathName '取得目前零件的路徑及名稱, E5 u* C0 u1 B# s/ v1 z
P1 = InStrRev(Path_Name, "", , 1) '取得最後""的位置
3 }) Q4 _- H# z* V8 f. d
P2 = InStrRev(Path_Name, "", P1 - 1, 1) '取得最後第二個""的位置% M$ m% z1 k# f) M- {7 r
Path_Name = Mid(Path_Name, P2 + 1, P1 - P2 - 1) '取得目前零件的所在路徑/ S u+ g% w/ P; ~! ?7 N0 `- S
retval = swModel.DeleteCustomInfo("文件位置") '刪除欄1 C9 i) E" b9 x1 ~5 H0 P' e2 [/ c8 t0 `
retval = swModel.AddCustomInfo3("", "文件位置", swCustomInfoText, Path_Name) '寫入路徑位置
* T$ {9 P, q% a6 z$ ^; M
( w6 Y+ i# ~+ k
End Sub& m* j4 A: \$ X, G" r# t

复制代码

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

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

ryouss 发表于 2016-4-25 20:30
1 N4 b, n1 x: L( e如下參考:

太感谢了

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

ryouss 发表于 2016-4-25 20:30. `" n. w* r4 _* o
如下參考:

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

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

抒怀新发表于 2016-4-26 09:43
3 J3 t7 k0 E# I: F O, w对梁大，俺只有膜拜与仰望，请教梁大有无二次开发的资料让我们这些人学习学习

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

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

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

ryouss 发表于 2016-4-26 11:55& _7 b+ J6 R& q0 l4 I& v+ R/ I
1. 在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 不管是網站或是書局可以取得的資料非常多,稍微用點心不難入門(但要學精也是要發費時間的)．

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

通知