关于调用文件位置的宏

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# ]+ ~* N7 X- ?( \* a
請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

梁SIR，谢谢

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

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

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

ryouss 发表于 2016-4-25 14:16$ F' E9 V* V) m0 G/ L) Z
請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

在自定义就可以了

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

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

如下參考:

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~2016/4/25 sc liang
- b1 U2 o& _$ w: O- T, r+ H5 v
'- K( S. \- {; l9 l9 T+ y
' 宏 ---> 自訂屬性; I! o+ B# ^3 e( e0 }
' 功能:應用宏取得最後第二個""到最後""位置的路徑名稱,放置到自訂屬性欄 R. |; f, y/ k" c
'
$ |8 k' M* W3 M: R9 r& b+ s
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
{) R/ Q7 C* |3 t$ C; f% U
- v6 J0 c3 j. a+ T- \
Sub main()% I- j/ R$ A/ p6 L* y# q
．3 \- c1 t2 f; k3 v1 E# f1 `
Dim P1 As Integer
8 _ w4 _# d; i6 [& y. d9 {
Dim P2 As Integer
, T C+ c. F0 Y3 y+ q* ?
Dim Path_Name As String0 _. X+ Y# u4 W7 s) w+ p
, D. P: G% `" B& r e# k
Set swApp = Application.SldWorks: S1 n" b' H. P0 H/ @* w' @* C
Set swModel = swApp.GetFirstDocument
! k+ b2 m- d2 Y& X0 o! s4 H6 N
Path_Name = swModel.GetPathName '取得目前零件的路徑及名稱2 h- Q3 l, Y' g+ k
P1 = InStrRev(Path_Name, "", , 1) '取得最後""的位置
' t4 a; R; y+ [' m" c, t
P2 = InStrRev(Path_Name, "", P1 - 1, 1) '取得最後第二個""的位置
% Y' ~% x) q( ^$ p
Path_Name = Mid(Path_Name, P2 + 1, P1 - P2 - 1) '取得目前零件的所在路徑5 [$ {4 {$ ^, a4 Z* ]! {
retval = swModel.DeleteCustomInfo("文件位置") '刪除欄
0 B1 P: X* M1 R2 b$ c% l% ^: k
retval = swModel.AddCustomInfo3("", "文件位置", swCustomInfoText, Path_Name) '寫入路徑位置
7 F& |8 ?4 R1 l( _5 K2 {
0 K0 c. R# q+ p9 ?
End Sub: \7 M3 x* B* f5 x, s

复制代码

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

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

ryouss 发表于 2016-4-25 20:30' o( C1 Q8 p0 s k
如下參考:

太感谢了

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

ryouss 发表于 2016-4-25 20:30& T. i7 F7 R5 \0 K* E5 x
如下參考:

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

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

抒怀新发表于 2016-4-26 09:43
1 v( f; X) n( g对梁大，俺只有膜拜与仰望，请教梁大有无二次开发的资料让我们这些人学习学习

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

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

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

ryouss 发表于 2016-4-26 11:55
& `. W! S2 T" g; R: D1. 在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 不管是網站或是書局可以取得的資料非常多,稍微用點心不難入門(但要學精也是要發費時間的)．

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

通知