QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
8天前
查看: 4509|回复: 22
收起左侧

[分享] 一个“直接”在Excel里面生成缩略图的办法(“远程”调用GetPreviewXXX)

[复制链接]
发表于 2017-7-30 12:16:06 | 显示全部楼层 |阅读模式 来自: 中国广东佛山
安装
主题分类用于问题归类:

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 bash 于 2017-8-5 10:06 编辑 2 C: ?+ Z) k4 `' J$ d/ T5 A

  ^; x' P- l/ M  }2 [, e2017.08.02 更新8 s+ h6 a4 i& o0 L8 \
1 E$ l/ e2 A8 Q3 }, ?: }
SWDM-API-201X.rar (56.01 KB, 下载次数: 168)

评分

参与人数 1三维币 +25 收起 理由
阿帕奇 + 25

查看全部评分

 楼主| 发表于 2017-7-30 12:34:22 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bash 于 2017-8-11 13:18 编辑 9 u; ^! X  y: @6 k/ X4 U
3 @" w* C, \- R9 [* `0 u+ k
-
发表于 2017-7-30 13:07:21 | 显示全部楼层 来自: 中国浙江嘉兴
謝謝分享,下載試試了!
发表于 2017-7-30 13:49:18 | 显示全部楼层 来自: 中国广东东莞
这几天关于缩略图的帖子有点火

点评

因为有大师指导了方向  详情 回复 发表于 2017-7-31 15:03
发表于 2017-7-30 16:13:56 | 显示全部楼层 来自: 中国山东威海
EXCEL是只读文件?高级版本?
发表于 2017-7-31 13:38:23 | 显示全部楼层 来自: 中国广东肇庆
本帖最后由 keilei001 于 2017-7-31 13:39 编辑
1 l' x) c% z4 `) j% \5 C* m
: Q/ k  k* N( g( A) d7 m' y, \多谢分享,是不是只有缩略图而不能提取其他属性呢?
发表于 2017-7-31 15:03:06 | 显示全部楼层 来自: 中国辽宁盘锦
qxzch 发表于 2017-7-30 13:49
8 ]& [7 i6 }5 z3 B3 W这几天关于缩略图的帖子有点火
; M$ b5 ?% d3 Y. J" I1 B% e3 F
因为有大师指导了方向
 楼主| 发表于 2017-7-31 19:12:42 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bash 于 2017-7-31 19:13 编辑
' Q4 X* E- `3 \/ K  p
keilei001 发表于 2017-7-31 13:38; N' o: P. y% ?. |* o2 [  V
多谢分享,是不是只有缩略图而不能提取其他属性呢?

; o# ?) E7 {8 Y8 G已在闷大的Excel上私自加上,但未经原作者同意,不敢私自公开。(涉及到LicenseKey)的问题。所以仅提供方法以参考。

点评

高手能否把licensekey删掉后把文件共享出来学习学习?  详情 回复 发表于 2017-8-1 19:34
发表于 2017-8-1 19:34:23 | 显示全部楼层 来自: 中国广东深圳
bash 发表于 2017-7-31 19:129 X6 T0 ^7 ~8 I$ o) x* U! X, e4 N
已在闷大的Excel上私自加上,但未经原作者同意,不敢私自公开。(涉及到LicenseKey)的问题。所以仅提供 ...

7 g, t$ a3 f  r; s% \5 |高手能否把licensekey删掉后把文件共享出来学习学习?
 楼主| 发表于 2017-8-2 10:22:42 | 显示全部楼层 来自: 中国广东佛山
NC@jiang@nan 发表于 2017-8-1 19:34' J6 ?8 s& x6 y9 W
高手能否把licensekey删掉后把文件共享出来学习学习?

$ b1 m# c! e3 B( I3 v8 q6 f& \您好高手,已更新!

点评

谢谢无私分享。 下载学习下,但一打开文件就报如图的错误,不知道是何原因?您这宏对我而言实在过于复杂,连排除都不知道怎么排除了,让高人见笑了。  详情 回复 发表于 2017-8-2 20:32
发表于 2017-8-2 13:07:53 | 显示全部楼层 来自: 中国江苏常州
好东西,值得拥有,谢谢楼主
发表于 2017-8-2 13:58:25 | 显示全部楼层 来自: 中国北京
显示:若要在64位系统上使用,则必须更新此项目中的代码。。。
发表于 2017-8-2 15:15:08 | 显示全部楼层 来自: 日本
大人發宏的帖子每次都下載,但是每次都不能用。。) ]3 j, P( k4 g2 z/ \: P5 V' `
vba裏面很多應該是中文的注解和引用,但是在他囯系統裏全都不可讀。。(VBA至今都不默認支持u8的嗎?)7 b  N# T; [8 ^5 j3 ]; O- D
8 f8 y5 a( g( [7 q4 ]0 a3 l
這次打開沒有error,但是選擇文件以後什麽都沒有了。。8 w! q3 p$ r( ~6 J7 U0 r2 @; ?
列表也沒有更新。。。手動輸入,選擇顯示預覽也是一閃之後就什麽都沒有了。。
 楼主| 发表于 2017-8-2 16:19:14 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bash 于 2017-8-2 16:22 编辑 / H$ w" V  R! E  x7 ]( g- G! U; [
sihouko 发表于 2017-8-2 15:15" |" @  _: o2 Z- A# b0 q" D/ t
大人發宏的帖子每次都下載,但是每次都不能用。。
0 y, m8 k) W9 W4 Y! y; Vvba裏面很多應該是中文的注解和引用,但是在他囯系統裏 ...

' d7 m% k- A/ ?& o9 Hsihouko 大,您好,关于那所缩略图Excel问题。) H4 c* f4 f) y' h
里面有使用说明的文本。9 P: U% A0 `" N0 {' i
如果乱码您看不到,那请往下看:
! ]1 B% A, L0 A- M/ s/ i5 p使用前请先确保LicenseKey有效,引用版本正确,及tempMacro_docGetThumbNail.swp放到位。
/ C6 w( _: `6 G3 @4 n6 q' t$ p
2 n5 M, v* K# c  P1 ]3 S9 h附件Excel仅在 简体:Win10 x64 + SW2017  , 日文:Win7 x64 + SW2017 ,测试通过。
: f4 I3 m+ B3 J, C' Z" R-----------------' ]) @( {/ U- s+ I2 r6 N4 Q
1.开启预览图功能,请把tempMacro_docGetThumbNail.swp剪切到D:\, o2 \; b/ C) Y7 ?6 K8 J5 H; t
$ P# {# t8 n" l$ }# A) g* ^
如果要放到其他地方或者改变其名字,请修改相应修改Excel里面的"C1"单元格的内容!
4 i, g" `) f# C; d; J; o5 S2 E0 P! u1 o/ s$ `* j/ T6 l
2.更换DMLicenseKey,并且在VBA里面勾选相应SW版本的引用(目前状态是SW2017 SP3的引用)。
" Z7 g; W& x0 B
& J3 G6 @% P/ ^3.声明,Excel的原始版本在网上所得,并经过一些“个性化”修改,并追加了预览图功能而已!
* j9 {& ]* }+ T( d# n-----------------
8 t7 Q6 o( N. a8 w: N& C( B4 n/ C若有其他问题,请加好友私聊!谢谢大大!
& f: ?- z" G5 T4 l. z% s! t$ \; {* B5 _) R$ S
: Z1 n! Q' P0 T# Q* ^3 I2 @
* y. R2 |* w1 c: c& X5 r

点评

感謝大人關注,應該是按照下圖的樣子。。。  详情 回复 发表于 2017-8-2 17:38
发表于 2017-8-2 17:38:14 | 显示全部楼层 来自: 日本
本帖最后由 sihouko 于 2017-8-3 07:55 编辑 9 D& v6 l1 s) U3 \5 j* I$ y

3 w4 Q# m, P# g& x重新申請lic后問題解決,感謝。
发表于 2017-8-2 20:32:36 | 显示全部楼层 来自: 中国广东深圳
bash 发表于 2017-8-2 10:22
) x( D; P2 w( Z7 i! Q您好高手,已更新!
/ }. X/ K+ I1 W$ L) q
谢谢无私分享。
5 D5 H: H; i" u- h4 u下载学习下,但一打开文件就报如图的错误,不知道是何原因?您这宏对我而言实在过于复杂,连排除都不知道怎么排除了,让高人见笑了。
QQ图片20170802202955.png

点评

64b的處理方法和32b有點不一樣。 最簡單的方法是。。。裝回office的32b。。 一勞永逸的方法是,在寫一段64b的代碼,然後用if來判斷32b和64b分別執行。 只修改為64b用的話,32b會出現error。。  详情 回复 发表于 2017-8-3 08:20
发表于 2017-8-3 08:20:34 | 显示全部楼层 来自: 日本
本帖最后由 sihouko 于 2017-8-3 08:24 编辑
* W1 [/ _' h) q7 V# n
NC@jiang@nan 发表于 2017-8-2 20:32
; y4 j6 h8 v. B' |9 Z谢谢无私分享。/ {9 `, H" J8 X
下载学习下,但一打开文件就报如图的错误,不知道是何原因?您这宏对我而言实在过于复杂 ...

2 |$ u  F" }2 r64b的處理方法和32b有點不一樣。  [. X0 T8 t" p
最簡單的方法是。。。裝回office的32b。。7 I3 T9 ]( O/ b: [
一勞永逸的方法是,在寫一段64b的代碼,然後用if來判斷32b和64b分別執行。
8 L' \9 o" w3 |" s9 y, Z/ R: |" V只修改為64b用的話,32b會出現error。。' \" s. M1 y+ m4 j: S8 i9 ]
+ v1 M# j* _/ b4 I& I
本機沒有64b,沒辦法幫忙測試,大人可以試一下把 As Long 改成As LongPtr 看是否可以運作。9 Q/ @( p. u* O& u, p' W4 s

点评

回高手,因为我是64位的操作系统,所以装的64位的OFFICE。装32位的怕出现兼容性问题。 试了下,把 As Long 改成As LongPtr也还是一样的报错的。  详情 回复 发表于 2017-8-3 19:47
发表于 2017-8-3 19:47:35 | 显示全部楼层 来自: 中国广东深圳
sihouko 发表于 2017-8-3 08:20
! d( d( |/ G* V64b的處理方法和32b有點不一樣。3 ^3 i" B, _% d4 S8 M+ Q
最簡單的方法是。。。裝回office的32b。。
/ r1 b/ Y! c0 s; W# |- s' o一勞永逸的方法是,在寫一 ...
. `6 I0 r% Y* J0 ]
回高手,因为我是64位的操作系统,所以装的64位的OFFICE。装32位的怕出现兼容性问题。
2 [  T4 f/ c/ Z- ~试了下,把 As Long 改成As LongPtr也还是一样的报错的。
发表于 2019-3-8 09:26:23 | 显示全部楼层 来自: 中国广西桂林
报错,对象不支持该属性和方法,请楼主解决
发表于 2019-7-27 12:38:50 | 显示全部楼层 来自: 中国浙江湖州
谢谢无私分享
发表于 2019-8-5 15:54:33 | 显示全部楼层 来自: 中国上海
看看怎么样 下载了
发表于 2019-8-6 16:51:22 | 显示全部楼层 来自: 中国广东东莞
谢谢分享,学学!
发表于 2019-8-7 15:53:12 | 显示全部楼层 来自: 中国广东广州
下载了,不知咋用。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表