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

bash

2017.08.02 更新
2 r" Y* I$ g) `
SWDM-API-201X.rar (56.01 KB, 下载次数: 168)

2017-8-5 10:06 上传

点击文件名下载附件

# h  a" y9 l" [: I2 O0 }1 S更新个不带SWDMLicenseKey的版本，使用方法见里面的使用说明, 仅供参考。
; z5 ~5 I3 I; V. V2 @
1 r6 t2 h0 x  d' i! q) X, n. A

$ c; W" `/ m: f( z5 _+ h3 A& D% ?
5 ^9 }) ]% @, a4 i
" N3 K+ x/ Y8 ^  T0 `9 t- O

; `% ~& J: X, i' A7 M! \5 u' I) P, A

bash

-

ryouss

謝謝分享,下載試試了!

qxzch

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

che-zp

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

keilei001

/ f; r0 |$ g. `  f6 S
: y5 h) \0 y$ S, ^- W多谢分享，是不是只有缩略图而不能提取其他属性呢？

阿帕奇

qxzch 发表于 2017-7-30 13:49
0 t# D8 Z, d; V+ N7 e这几天关于缩略图的帖子有点火

因为有大师指导了方向

bash

keilei001 发表于 2017-7-31 13:38
) ?* l# k: R! v' f; h% e多谢分享，是不是只有缩略图而不能提取其他属性呢？

2 W. V# i  Y: q- ]已在闷大的Excel上私自加上，但未经原作者同意，不敢私自公开。（涉及到LicenseKey）的问题。所以仅提供方法以参考。

NC@jiang@nan

bash 发表于 2017-7-31 19:12
已在闷大的Excel上私自加上，但未经原作者同意，不敢私自公开。（涉及到LicenseKey）的问题。所以仅提供 ...

' K/ Y! c; l5 A高手能否把licensekey删掉后把文件共享出来学习学习？

bash

NC@jiang@nan 发表于 2017-8-1 19:34
: X0 G4 t9 z3 A/ K# z. R高手能否把licensekey删掉后把文件共享出来学习学习？

您好高手，已更新！

dsaxingyuner

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

mdj18

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

sihouko

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

8 f% E- n7 C# `+ T% ]這次打開沒有error，但是選擇文件以後什麽都沒有了。。
列表也沒有更新。。。手動輸入，選擇顯示預覽也是一閃之後就什麽都沒有了。。

bash

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

7 Y5 m: }+ }' x$ C7 Psihouko 大，您好，关于那所缩略图Excel问题。
( j- o& {  _; u$ {0 P, L5 O里面有使用说明的文本。
/ e: I& E# z9 P4 p$ Z, [如果乱码您看不到，那请往下看：
9 ~/ n& t4 }- Z9 Z/ K使用前请先确保LicenseKey有效，引用版本正确，及tempMacro_docGetThumbNail.swp放到位。
4 ^2 K9 [6 N" w) ]
附件Excel仅在 简体：Win10 x64 + SW2017  , 日文：Win7 x64 + SW2017 ，测试通过。
5 u) A# T2 R: {; e2 L1 N$ |& E! _-----------------
7 ~! z- n' P8 H% {9 @7 L0 M1.开启预览图功能，请把tempMacro_docGetThumbNail.swp剪切到D:\

如果要放到其他地方或者改变其名字，请修改相应修改Excel里面的"C1"单元格的内容！
; q' K3 x5 C8 ]
9 a2 D; x- X' D& D/ ?2.更换DMLicenseKey,并且在VBA里面勾选相应SW版本的引用(目前状态是SW2017 SP3的引用)。
3 z6 V9 X, i" `4 J/ H
3.声明，Excel的原始版本在网上所得，并经过一些“个性化”修改，并追加了预览图功能而已！
-----------------
若有其他问题，请加好友私聊！谢谢大大！


7 d3 `8 B' L- V: L. C5 X
3 \" i4 R. t' r

sihouko

. M$ ?: j, a7 A1 K$ o! q/ P# q5 k
/ O7 r$ _. r  Q* O! u& h重新申請lic后問題解決，感謝。

NC@jiang@nan

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

' ?" ?' g( ?% K5 L6 q$ ?+ X/ z, a谢谢无私分享。
下载学习下，但一打开文件就报如图的错误，不知道是何原因？您这宏对我而言实在过于复杂，连排除都不知道怎么排除了，让高人见笑了。

sihouko

% X+ H4 P1 n2 u; u- S7 D

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

64b的處理方法和32b有點不一樣。
" L  M, \( P4 @4 {! x. P3 v8 A. ]最簡單的方法是。。。裝回office的32b。。
一勞永逸的方法是，在寫一段64b的代碼，然後用if來判斷32b和64b分別執行。
; }6 f: K9 K/ F; T1 r只修改為64b用的話，32b會出現error。。
: q" h) w# M7 ~$ V% X2 F4 O
# c2 r' J/ q! |$ c$ e& e! N* Y本機沒有64b，沒辦法幫忙測試，大人可以試一下把 As Long 改成As LongPtr 看是否可以運作。
2 T. k: b! P  u8 n# t

NC@jiang@nan

sihouko 发表于 2017-8-3 08:20
; q7 Y9 Z$ t0 C9 K* y64b的處理方法和32b有點不一樣。
最簡單的方法是。。。裝回office的32b。。
一勞永逸的方法是，在寫一 ...

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

ziliangmo

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

huang452581492

谢谢无私分享

litao036

看看怎么样 下载了

RJP3208

谢谢分享，学学！

tianlifang88

下载了，不知咋用。