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

bash

' O2 t) x4 N- V# P
2017.08.02 更新
8 z/ `" S* Y8 j1 J, R4 |6 c9 x
( z  Y" y. \8 x# S; [" p9 T1 z6 g SWDM-API-201X.rar (56.01 KB, 下载次数: 168)

2017-8-5 10:06 上传

点击文件名下载附件

6 m+ J  [% V: ]* B1 w  k. \" c更新个不带SWDMLicenseKey的版本，使用方法见里面的使用说明, 仅供参考。
' i' y# O  t% g( t

$ T% v* L8 [8 w

bash

-

ryouss

謝謝分享,下載試試了!

qxzch

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

che-zp

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

keilei001

5 o# `! B% m& H
多谢分享，是不是只有缩略图而不能提取其他属性呢？

阿帕奇

qxzch 发表于 2017-7-30 13:49
& V) s' s* ]$ }0 y: O8 A% j这几天关于缩略图的帖子有点火

1 R+ V: w) [& k. s因为有大师指导了方向

bash

: ~: E8 `. W' c$ o( I# C

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

! A% ^8 N( O/ y; B( R2 c已在闷大的Excel上私自加上，但未经原作者同意，不敢私自公开。（涉及到LicenseKey）的问题。所以仅提供方法以参考。

NC@jiang@nan

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

# B' O2 D8 K5 X+ ?+ z( N4 B" P高手能否把licensekey删掉后把文件共享出来学习学习？

bash

NC@jiang@nan 发表于 2017-8-1 19:34
' c/ A5 j( A1 s) e$ ^' l4 n; f高手能否把licensekey删掉后把文件共享出来学习学习？

7 {/ H0 b! r) C! p6 j1 r您好高手，已更新！

dsaxingyuner

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

mdj18

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

sihouko

大人發宏的帖子每次都下載，但是每次都不能用。。
vba裏面很多應該是中文的注解和引用，但是在他囯系統裏全都不可讀。。（VBA至今都不默認支持u8的嗎？）
) s4 Z/ g5 n. \* X
這次打開沒有error，但是選擇文件以後什麽都沒有了。。
! y8 h; k4 V: U7 I0 h. |7 P0 t: G列表也沒有更新。。。手動輸入，選擇顯示預覽也是一閃之後就什麽都沒有了。。

bash

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

sihouko 大，您好，关于那所缩略图Excel问题。
# k3 H) @8 ~$ E8 x: x3 @里面有使用说明的文本。
如果乱码您看不到，那请往下看：
1 x7 o! o+ J# M- S使用前请先确保LicenseKey有效，引用版本正确，及tempMacro_docGetThumbNail.swp放到位。
* I0 [, G7 }6 Q& ?" l0 g$ z
附件Excel仅在 简体：Win10 x64 + SW2017  , 日文：Win7 x64 + SW2017 ，测试通过。
5 G, H8 ~4 O, M# @-----------------
" n, J8 _6 \' S, J( d: |6 G1.开启预览图功能，请把tempMacro_docGetThumbNail.swp剪切到D:\

如果要放到其他地方或者改变其名字，请修改相应修改Excel里面的"C1"单元格的内容！
# ?$ p4 H# v: |' O* g8 Z) d5 ?' [
# \0 ]0 |- S. m2.更换DMLicenseKey,并且在VBA里面勾选相应SW版本的引用(目前状态是SW2017 SP3的引用)。
- G1 c% _, ^1 e$ R! x! c- l
3.声明，Excel的原始版本在网上所得，并经过一些“个性化”修改，并追加了预览图功能而已！
; c2 w  d' U1 W-----------------
' @0 j/ T8 I6 A( O若有其他问题，请加好友私聊！谢谢大大！
; @& Q5 O; z; s% o( r


. j3 g: |: p; N3 |* O

sihouko

; J" \3 Q1 N3 g/ Q8 y) e+ u2 l重新申請lic后問題解決，感謝。

NC@jiang@nan

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

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

sihouko

6 `- [* S: N/ d8 p8 Y

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

, y0 k, T4 a. e6 z1 a9 }& |64b的處理方法和32b有點不一樣。
5 s+ U2 G3 F! o2 O最簡單的方法是。。。裝回office的32b。。
1 J  q. w8 i0 _* ?) k! A8 {% `一勞永逸的方法是，在寫一段64b的代碼，然後用if來判斷32b和64b分別執行。
只修改為64b用的話，32b會出現error。。

本機沒有64b，沒辦法幫忙測試，大人可以試一下把 As Long 改成As LongPtr 看是否可以運作。
: ?, Y, i# w! ^! w7 I' v

NC@jiang@nan

sihouko 发表于 2017-8-3 08:20
. Y* U4 J/ C$ ^! g+ p  W; G! A64b的處理方法和32b有點不一樣。
$ E( }/ M  v1 W' j! c9 [最簡單的方法是。。。裝回office的32b。。
一勞永逸的方法是，在寫一 ...

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

ziliangmo

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

huang452581492

谢谢无私分享

litao036

看看怎么样 下载了

RJP3208

谢谢分享，学学！

tianlifang88

下载了，不知咋用。