关于调用文件位置的宏

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
& e1 u( c3 R* h9 t請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

梁SIR，谢谢

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

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

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

ryouss 发表于 2016-4-25 14:16
! m: i; G6 k1 P2 p+ v8 e0 m請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

在自定义就可以了

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

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

如下參考:

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~2016/4/25 sc liang3 ` F3 E7 X! v8 {- `9 B8 X
') n4 }( w+ M+ p/ u9 A, [7 l
' 宏 ---> 自訂屬性' X8 S! Q9 U3 S. v/ z. i+ q4 Q6 [
' 功能:應用宏取得最後第二個""到最後""位置的路徑名稱,放置到自訂屬性欄9 l- C( V/ v: z: ]) A. g: ^
'
" X% `3 s, X0 X8 M! `
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~2 ^1 Y5 h' @/ \, r: R
0 O2 ]5 L( d* Q+ G. }
Sub main()
: }; H$ r- k' X
．
- C% m1 S0 g' v# ?" S# `' f
Dim P1 As Integer4 V2 F# G' z$ q6 A/ M
Dim P2 As Integer
5 z" u: H2 x+ m) q* K
Dim Path_Name As String7 I9 r; C3 R2 H; t" E9 b
, E4 j8 c& F( F8 k! r5 L3 q
Set swApp = Application.SldWorks5 u& F4 a" f( Q, [+ O
Set swModel = swApp.GetFirstDocument c$ G2 ^" B2 J$ [ H
Path_Name = swModel.GetPathName '取得目前零件的路徑及名稱
9 m; x e) t8 w/ S5 g
P1 = InStrRev(Path_Name, "", , 1) '取得最後""的位置
7 e n4 W c- z, A, g# m5 p
P2 = InStrRev(Path_Name, "", P1 - 1, 1) '取得最後第二個""的位置
7 R( j7 u: H8 }
Path_Name = Mid(Path_Name, P2 + 1, P1 - P2 - 1) '取得目前零件的所在路徑
3 V2 M4 p$ |: [& Z8 Z
retval = swModel.DeleteCustomInfo("文件位置") '刪除欄7 X. ?+ z* e6 V0 a) L9 G
retval = swModel.AddCustomInfo3("", "文件位置", swCustomInfoText, Path_Name) '寫入路徑位置
( p# g% l7 K Y, M$ k# W
8 T9 \4 c! e7 s% F: p, [% y
End Sub8 w; t6 @* c- n$ K3 n% Q' n

复制代码

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

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

ryouss 发表于 2016-4-25 20:309 N. C2 e, z! i0 H1 Q
如下參考:

太感谢了

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

ryouss 发表于 2016-4-25 20:30
% ]! Y# `) o! X3 v& d# U如下參考:

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

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

抒怀新发表于 2016-4-26 09:43
! R2 A4 n/ |2 }/ k; x" x对梁大，俺只有膜拜与仰望，请教梁大有无二次开发的资料让我们这些人学习学习

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

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

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

ryouss 发表于 2016-4-26 11:55: V! A. j& A6 P+ N
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 不管是網站或是書局可以取得的資料非常多,稍微用點心不難入門(但要學精也是要發費時間的)．

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

通知