关于调用文件位置的宏

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
+ H* S. J9 E3 l2 [9 e" ]5 C請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

梁SIR，谢谢

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

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

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

ryouss 发表于 2016-4-25 14:16; b0 {, q. P# w$ v# N$ c
請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

在自定义就可以了

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

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

如下參考:

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~2016/4/25 sc liang
2 k4 S) O% s d2 c8 h' [
', A( N% U# s4 w% P9 P' i
' 宏 ---> 自訂屬性
0 n2 H( C$ _( E1 [& M& \3 Y5 Q
' 功能:應用宏取得最後第二個""到最後""位置的路徑名稱,放置到自訂屬性欄
" [, \# g1 b& o. G8 c) q
'
* n7 ~1 y: |+ Q" A A9 M
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
4 d8 ]' [! Q: T: {3 U
, u8 S" c1 |& g. _
Sub main()
! ?. f; t' `; C' p8 y
．' ]+ O3 G) B& t# C9 A6 |5 Z. K
Dim P1 As Integer5 r" A- h& e6 `5 R) t E: T a
Dim P2 As Integer
n+ N& F3 ]3 y4 K
Dim Path_Name As String
3 \( U0 R4 P" U4 x9 \3 j9 l
: D, o$ y8 R# ~: e( Z
Set swApp = Application.SldWorks' S+ b% A! ^ g8 S" S- e
Set swModel = swApp.GetFirstDocument( h6 F# p8 i) j2 a- H5 r6 `
Path_Name = swModel.GetPathName '取得目前零件的路徑及名稱# i# j0 h s P! F1 k
P1 = InStrRev(Path_Name, "", , 1) '取得最後""的位置1 O' \ a! X' R* S8 s1 A
P2 = InStrRev(Path_Name, "", P1 - 1, 1) '取得最後第二個""的位置
0 c! v1 f, w0 Q1 m ^( I, A3 @
Path_Name = Mid(Path_Name, P2 + 1, P1 - P2 - 1) '取得目前零件的所在路徑
w) P! {$ Y! V i4 K. m b
retval = swModel.DeleteCustomInfo("文件位置") '刪除欄
* X1 l5 D9 ?) F8 ?, l) \, O
retval = swModel.AddCustomInfo3("", "文件位置", swCustomInfoText, Path_Name) '寫入路徑位置
, P. q2 ]% [4 s
8 e& X' m8 g/ s4 a+ k! k- e
End Sub. q$ d: `3 o( m* } q( h" @- N

复制代码

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

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

ryouss 发表于 2016-4-25 20:30" c5 ~2 a* M4 M& q- M: o
如下參考:

太感谢了

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

ryouss 发表于 2016-4-25 20:30
0 t( ~7 ` K* U. R* l1 h/ ]5 K如下參考:

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

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

抒怀新发表于 2016-4-26 09:43% E5 ]! p" S2 [9 K0 M2 j
对梁大，俺只有膜拜与仰望，请教梁大有无二次开发的资料让我们这些人学习学习

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

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

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

ryouss 发表于 2016-4-26 11:55) K0 q3 l3 _0 h0 Y5 w1 G
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 不管是網站或是書局可以取得的資料非常多,稍微用點心不難入門(但要學精也是要發費時間的)．

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

通知