一个“直接”在Excel里面生成缩略图的办法（“远程”调用GetPreviewXXX）

bash

  k+ i( f* D& t7 {# Q# b8 x
" e: P" Y4 ?0 w' a2017.08.02 更新

& U# M$ {) B# H$ } SWDM-API-201X.rar (56.01 KB, 下载次数: 168)

2017-8-5 10:06 上传

点击文件名下载附件
- i# }, ^" V% e& }. Y
: ]0 S" }( Z/ o" z9 Y更新个不带SWDMLicenseKey的版本，使用方法见里面的使用说明, 仅供参考。

" E" n" u$ u- K4 ~( z  N



: K6 w& Z5 a8 g+ b6 F
) S( P5 ~$ i) V/ i/ G  C' C5 {

bash

: {( B3 f9 X# Z  L, e-

ryouss

謝謝分享,下載試試了!

qxzch

这几天关于缩略图的帖子有点火

che-zp

EXCEL是只读文件？高级版本？

keilei001

& g/ D7 e/ e3 j) D: Q多谢分享，是不是只有缩略图而不能提取其他属性呢？

阿帕奇

qxzch 发表于 2017-7-30 13:49
4 P0 l4 p6 i. q( z2 i5 {9 V这几天关于缩略图的帖子有点火

. H0 }0 G. h9 T7 E因为有大师指导了方向

bash

keilei001 发表于 2017-7-31 13:38
多谢分享，是不是只有缩略图而不能提取其他属性呢？

已在闷大的Excel上私自加上，但未经原作者同意，不敢私自公开。（涉及到LicenseKey）的问题。所以仅提供方法以参考。

NC@jiang@nan

bash 发表于 2017-7-31 19:12
# q' B/ J) c! a; v' ~# d已在闷大的Excel上私自加上，但未经原作者同意，不敢私自公开。（涉及到LicenseKey）的问题。所以仅提供 ...

高手能否把licensekey删掉后把文件共享出来学习学习？

bash

NC@jiang@nan 发表于 2017-8-1 19:34
高手能否把licensekey删掉后把文件共享出来学习学习？

( T! p3 s! V; ]; n9 ]& l* a7 E6 N您好高手，已更新！

dsaxingyuner

好东西，值得拥有，谢谢楼主

mdj18

显示：若要在64位系统上使用，则必须更新此项目中的代码。。。

sihouko

大人發宏的帖子每次都下載，但是每次都不能用。。
vba裏面很多應該是中文的注解和引用，但是在他囯系統裏全都不可讀。。（VBA至今都不默認支持u8的嗎？）

這次打開沒有error，但是選擇文件以後什麽都沒有了。。
列表也沒有更新。。。手動輸入，選擇顯示預覽也是一閃之後就什麽都沒有了。。

bash

: `, B& @6 V, `7 u2 X% N

sihouko 发表于 2017-8-2 15:15
& W1 c- _; w0 p7 C3 x大人發宏的帖子每次都下載，但是每次都不能用。。
vba裏面很多應該是中文的注解和引用，但是在他囯系統裏 ...

6 b4 i2 ~3 ^- m: f6 F# C: Zsihouko 大，您好，关于那所缩略图Excel问题。
里面有使用说明的文本。
3 G- h) t' A- W- `  N) F如果乱码您看不到，那请往下看：
使用前请先确保LicenseKey有效，引用版本正确，及tempMacro_docGetThumbNail.swp放到位。
8 ^3 r+ @0 ^: ]" ^" H* |
* t) A; \& |/ J1 _附件Excel仅在 简体：Win10 x64 + SW2017  , 日文：Win7 x64 + SW2017 ，测试通过。
3 k& R  W0 ~* M2 n7 B: w$ i7 ~-----------------
# U# Y) \: ^% L! G8 I. o1.开启预览图功能，请把tempMacro_docGetThumbNail.swp剪切到D:\
$ K& l, ]$ W- Y8 H1 Q( J1 W
( X$ `& k8 m; F# g- {4 ]如果要放到其他地方或者改变其名字，请修改相应修改Excel里面的"C1"单元格的内容！
# Z/ f' x# _( B( ]
2.更换DMLicenseKey,并且在VBA里面勾选相应SW版本的引用(目前状态是SW2017 SP3的引用)。
/ Q, [& M7 ]* D
( X' L2 w& @$ e3.声明，Excel的原始版本在网上所得，并经过一些“个性化”修改，并追加了预览图功能而已！
-----------------
若有其他问题，请加好友私聊！谢谢大大！

( [9 H6 U8 A  f; S2 Y

3 H. a! f9 r. J! h

sihouko

3 ^% |; O6 Q3 S  y; y0 y1 s0 F
重新申請lic后問題解決，感謝。

NC@jiang@nan

bash 发表于 2017-8-2 10:22
您好高手，已更新！

谢谢无私分享。
下载学习下，但一打开文件就报如图的错误，不知道是何原因？您这宏对我而言实在过于复杂，连排除都不知道怎么排除了，让高人见笑了。

sihouko

$ B, p) q* z% H6 a" P3 C

NC@jiang@nan 发表于 2017-8-2 20:32
谢谢无私分享。
下载学习下，但一打开文件就报如图的错误，不知道是何原因？您这宏对我而言实在过于复杂 ...

9 Y+ l6 I, d, F64b的處理方法和32b有點不一樣。
5 b0 l9 Q) v2 f: U. N最簡單的方法是。。。裝回office的32b。。
* l# d/ W6 ?- `7 P一勞永逸的方法是，在寫一段64b的代碼，然後用if來判斷32b和64b分別執行。
2 x% A: Y/ q$ f! ^: F# Y4 D% q只修改為64b用的話，32b會出現error。。

& x! A5 @2 o# g* k+ n本機沒有64b，沒辦法幫忙測試，大人可以試一下把 As Long 改成As LongPtr 看是否可以運作。
7 S6 U3 n9 ^3 l; a% Y% |

NC@jiang@nan

sihouko 发表于 2017-8-3 08:20
64b的處理方法和32b有點不一樣。
: j( d" ]: z0 p1 t4 K$ S最簡單的方法是。。。裝回office的32b。。
8 `; d. s5 k- s+ }: x一勞永逸的方法是，在寫一 ...

回高手，因为我是64位的操作系统，所以装的64位的OFFICE。装32位的怕出现兼容性问题。
试了下，把 As Long 改成As LongPtr也还是一样的报错的。

ziliangmo

报错，对象不支持该属性和方法，请楼主解决

huang452581492

谢谢无私分享

litao036

看看怎么样 下载了

RJP3208

谢谢分享，学学！

tianlifang88

下载了，不知咋用。