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

bash

- j1 v9 m7 X7 x$ W2017.08.02 更新
2 j! b" g! g5 K4 A. f4 g6 E
SWDM-API-201X.rar (56.01 KB, 下载次数: 168)

2017-8-5 10:06 上传

点击文件名下载附件
3 h! c0 ?/ j( U6 a/ Q- K& T
/ o# |- [" G+ B# S( Z更新个不带SWDMLicenseKey的版本，使用方法见里面的使用说明, 仅供参考。

; Y" x- t" p8 M' _* r

# Z+ B! p9 ~% s5 n
2 N1 ~/ S1 c, }# N7 G

bash

; `: [9 d6 S1 r& F% c. L
3 V; v' {! `6 `# d6 t2 r& ]-

ryouss

謝謝分享,下載試試了!

qxzch

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

che-zp

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

keilei001

: ^6 F; V2 Q2 t* J* T
0 d$ k4 e3 Y5 h' n+ D0 d3 V8 S+ B多谢分享，是不是只有缩略图而不能提取其他属性呢？

阿帕奇

qxzch 发表于 2017-7-30 13:49
/ m( P9 y" A& v) B+ n: S这几天关于缩略图的帖子有点火

因为有大师指导了方向

bash

; L8 G5 n* z. L, N4 A+ T

keilei001 发表于 2017-7-31 13:38
6 [$ p) m# T# h. U多谢分享，是不是只有缩略图而不能提取其他属性呢？

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

NC@jiang@nan

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

5 q" H2 [5 p) [5 k高手能否把licensekey删掉后把文件共享出来学习学习？

bash

NC@jiang@nan 发表于 2017-8-1 19:34
4 `+ [( X9 z* l0 S4 D9 m高手能否把licensekey删掉后把文件共享出来学习学习？

' f% j' O# D! h4 Q您好高手，已更新！

dsaxingyuner

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

mdj18

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

sihouko

大人發宏的帖子每次都下載，但是每次都不能用。。
vba裏面很多應該是中文的注解和引用，但是在他囯系統裏全都不可讀。。（VBA至今都不默認支持u8的嗎？）
+ L3 M4 v5 d: ?9 A0 t! e
這次打開沒有error，但是選擇文件以後什麽都沒有了。。
1 t$ {. e, |5 n/ V: p# L" L3 l列表也沒有更新。。。手動輸入，選擇顯示預覽也是一閃之後就什麽都沒有了。。

bash

# ?5 d, X/ u0 p7 e( Z$ f

sihouko 发表于 2017-8-2 15:15
' m: B0 O& i* s$ l& c+ O. y大人發宏的帖子每次都下載，但是每次都不能用。。
vba裏面很多應該是中文的注解和引用，但是在他囯系統裏 ...

' W2 e  t9 M" }, @- `sihouko 大，您好，关于那所缩略图Excel问题。
( s' z' j6 w( ?( A9 p里面有使用说明的文本。
( o1 [3 F" a5 p/ Z+ d& Z如果乱码您看不到，那请往下看：
使用前请先确保LicenseKey有效，引用版本正确，及tempMacro_docGetThumbNail.swp放到位。
$ e" ~- V% x# `# L" b- }
" i5 p6 A9 t' \附件Excel仅在 简体：Win10 x64 + SW2017  , 日文：Win7 x64 + SW2017 ，测试通过。
! H% G! r" ?$ ^7 O( q+ ^2 j9 f-----------------
1.开启预览图功能，请把tempMacro_docGetThumbNail.swp剪切到D:\

如果要放到其他地方或者改变其名字，请修改相应修改Excel里面的"C1"单元格的内容！
1 ?% N( r& W4 m& e- B3 U8 u- j
8 V* ~, D" K+ F! W2.更换DMLicenseKey,并且在VBA里面勾选相应SW版本的引用(目前状态是SW2017 SP3的引用)。

3.声明，Excel的原始版本在网上所得，并经过一些“个性化”修改，并追加了预览图功能而已！
. [. r: |' J. T" B! z' V-----------------
7 _, }7 J8 h0 n2 ~9 q8 L  q+ \9 c若有其他问题，请加好友私聊！谢谢大大！

: G( v/ d* D3 N2 S" z$ ~1 U

3 `% T9 x% N/ f' P

sihouko

3 Q$ v. k/ I( Q' v
重新申請lic后問題解決，感謝。

NC@jiang@nan

bash 发表于 2017-8-2 10:22
, [+ D; p+ e' p, v您好高手，已更新！

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

sihouko

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

8 P# f5 z! l( O+ I/ ?) O64b的處理方法和32b有點不一樣。
5 S0 c' L2 ^0 U4 l* M最簡單的方法是。。。裝回office的32b。。
一勞永逸的方法是，在寫一段64b的代碼，然後用if來判斷32b和64b分別執行。
# @3 E" d0 s4 }6 }0 e% \只修改為64b用的話，32b會出現error。。
+ D- u4 }3 M# P8 l/ r% ^
本機沒有64b，沒辦法幫忙測試，大人可以試一下把 As Long 改成As LongPtr 看是否可以運作。
+ D* f7 i. I' k3 A4 _8 w. C2 a! I

NC@jiang@nan

sihouko 发表于 2017-8-3 08:20
64b的處理方法和32b有點不一樣。
" g4 @* h, i" t% e' w* }最簡單的方法是。。。裝回office的32b。。
一勞永逸的方法是，在寫一 ...

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

ziliangmo

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

huang452581492

谢谢无私分享

litao036

看看怎么样 下载了

RJP3208

谢谢分享，学学！

tianlifang88

下载了，不知咋用。