关于调用文件位置的宏

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. |% x5 B% j7 m
請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

梁SIR，谢谢

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

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

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

ryouss 发表于 2016-4-25 14:16
2 R" t6 ^- L( \5 p! W9 `請上傳可複製的 swp 檔,不然就要全部重新打字麻煩又容易打錯字!

在自定义就可以了

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

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

如下參考:

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~2016/4/25 sc liang0 |6 E( y4 T- o* s
'' h F5 P/ t/ W u
' 宏 ---> 自訂屬性8 [) E' \# u2 N% |+ E) b5 Z
' 功能:應用宏取得最後第二個""到最後""位置的路徑名稱,放置到自訂屬性欄
2 k; z% I6 j( v. j6 w3 L, O
'
7 M- p: L6 ~ i' Q. c- q& o+ ^
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~; A4 u( P- R1 W' F
- M: J1 q6 \" o! x/ z5 H! M$ M
Sub main()
6 v7 W5 v4 k0 _; q6 N
．/ K, Y, f+ r/ m/ }9 G! X$ v- P I
Dim P1 As Integer: S5 n5 J. Y Q" ?+ {; x
Dim P2 As Integer, T9 j4 D1 d% M! A. i P, T0 B
Dim Path_Name As String
+ ^/ b/ `: J8 y2 i/ e4 S$ V/ s V
! j# e9 ^" p6 ]4 H+ ^4 P6 R* W
Set swApp = Application.SldWorks# h% b/ _8 Y( h, g e
Set swModel = swApp.GetFirstDocument
% R" k! u- W: F0 o
Path_Name = swModel.GetPathName '取得目前零件的路徑及名稱
2 O( {$ V D( A5 |, C
P1 = InStrRev(Path_Name, "", , 1) '取得最後""的位置/ W4 k" F! ~3 y' p, ~2 r) S- i
P2 = InStrRev(Path_Name, "", P1 - 1, 1) '取得最後第二個""的位置
1 N; [3 e" c8 t
Path_Name = Mid(Path_Name, P2 + 1, P1 - P2 - 1) '取得目前零件的所在路徑, L W( ^8 J# _* Z: x
retval = swModel.DeleteCustomInfo("文件位置") '刪除欄2 y. _8 M( t0 q. K
retval = swModel.AddCustomInfo3("", "文件位置", swCustomInfoText, Path_Name) '寫入路徑位置7 n7 v' z, h) U, Y
% @3 s% h: P4 A! o- s% e$ W
End Sub2 T& }% |' s- I! n6 A3 g, C

复制代码

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

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

ryouss 发表于 2016-4-25 20:30: ]$ o, Y$ B1 b: o, `1 }; C9 I, i
如下參考:

太感谢了

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

ryouss 发表于 2016-4-25 20:302 U; V0 A+ |* u2 ?6 ^1 C) E& p9 W
如下參考:

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

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

抒怀新发表于 2016-4-26 09:43
1 R2 P5 L, ]' |' g3 u1 A对梁大，俺只有膜拜与仰望，请教梁大有无二次开发的资料让我们这些人学习学习

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

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

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

ryouss 发表于 2016-4-26 11:558 ]! X& l+ p6 I$ Y. [5 _
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 不管是網站或是書局可以取得的資料非常多,稍微用點心不難入門(但要學精也是要發費時間的)．

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

通知