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

bash · 发表于 2017-7-30 12:16:06

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

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

x

本帖最后由 bash 于 2017-8-5 10:06 编辑

2017.08.02 更新

SWDM-API-201X.rar (56.01 KB, 下载次数: 168)

bash · 发表于 2017-7-30 12:34:22

本帖最后由 bash 于 2017-8-11 13:18 编辑

-

ryouss · 发表于 2017-7-30 13:07:21

謝謝分享,下載試試了!

qxzch · 发表于 2017-7-30 13:49:18

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

che-zp · 发表于 2017-7-30 16:13:56

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

keilei001 · 发表于 2017-7-31 13:38:23

本帖最后由 keilei001 于 2017-7-31 13:39 编辑

多谢分享，是不是只有缩略图而不能提取其他属性呢？

阿帕奇 · 发表于 2017-7-31 15:03:06

qxzch 发表于 2017-7-30 13:49; v" Y* L8 d5 ^+ B
这几天关于缩略图的帖子有点火

因为有大师指导了方向

bash · 发表于 2017-7-31 19:12:42

本帖最后由 bash 于 2017-7-31 19:13 编辑

keilei001 发表于 2017-7-31 13:38- M% h8 H5 u4 F' z- z \7 L
多谢分享，是不是只有缩略图而不能提取其他属性呢？

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

NC@jiang@nan · 发表于 2017-8-1 19:34:23

bash 发表于 2017-7-31 19:123 @/ m8 I$ R w) j% u
已在闷大的Excel上私自加上，但未经原作者同意，不敢私自公开。（涉及到LicenseKey）的问题。所以仅提供 ...

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

bash · 发表于 2017-8-2 10:22:42

NC@jiang@nan 发表于 2017-8-1 19:34! L8 V* N5 J: K' N5 j. r/ B6 j
高手能否把licensekey删掉后把文件共享出来学习学习？

您好高手，已更新！

dsaxingyuner · 发表于 2017-8-2 13:07:53

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

mdj18 · 发表于 2017-8-2 13:58:25

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

sihouko · 发表于 2017-8-2 15:15:08

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

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

bash · 发表于 2017-8-2 16:19:14

本帖最后由 bash 于 2017-8-2 16:22 编辑

sihouko 发表于 2017-8-2 15:15
. N% A5 W3 f7 `大人發宏的帖子每次都下載，但是每次都不能用。。" N% N4 @9 P) M: |' t; x, h" f3 h
vba裏面很多應該是中文的注解和引用，但是在他囯系統裏 ...

sihouko 大，您好，关于那所缩略图Excel问题。
里面有使用说明的文本。
如果乱码您看不到，那请往下看：
使用前请先确保LicenseKey有效，引用版本正确，及tempMacro_docGetThumbNail.swp放到位。

附件Excel仅在简体：Win10 x64 + SW2017 , 日文：Win7 x64 + SW2017 ，测试通过。
-----------------
1.开启预览图功能，请把tempMacro_docGetThumbNail.swp剪切到D:\

如果要放到其他地方或者改变其名字，请修改相应修改Excel里面的"C1"单元格的内容！

2.更换DMLicenseKey,并且在VBA里面勾选相应SW版本的引用(目前状态是SW2017 SP3的引用)。

3.声明，Excel的原始版本在网上所得，并经过一些“个性化”修改，并追加了预览图功能而已！
-----------------
若有其他问题，请加好友私聊！谢谢大大！

sihouko · 发表于 2017-8-2 17:38:14

本帖最后由 sihouko 于 2017-8-3 07:55 编辑

重新申請lic后問題解決，感謝。

NC@jiang@nan · 发表于 2017-8-2 20:32:36

bash 发表于 2017-8-2 10:22( d8 _; c7 O; b4 |% }/ ^; u6 K$ ]
您好高手，已更新！

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

sihouko · 发表于 2017-8-3 08:20:34

本帖最后由 sihouko 于 2017-8-3 08:24 编辑

NC@jiang@nan 发表于 2017-8-2 20:32
% j/ A) x; E) B& M% Q7 K谢谢无私分享。# U, C7 G* l9 H% T! S' e/ I i; R
下载学习下，但一打开文件就报如图的错误，不知道是何原因？您这宏对我而言实在过于复杂 ...

64b的處理方法和32b有點不一樣。
最簡單的方法是。。。裝回office的32b。。
一勞永逸的方法是，在寫一段64b的代碼，然後用if來判斷32b和64b分別執行。
只修改為64b用的話，32b會出現error。。

本機沒有64b，沒辦法幫忙測試，大人可以試一下把 As Long 改成As LongPtr 看是否可以運作。

NC@jiang@nan · 发表于 2017-8-3 19:47:35

sihouko 发表于 2017-8-3 08:207 n" ]; ?2 G& E$ n
64b的處理方法和32b有點不一樣。4 L V+ \2 O1 J- ~( A
最簡單的方法是。。。裝回office的32b。。
+ b; l5 N8 p# U; O一勞永逸的方法是，在寫一 ...

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

ziliangmo · 发表于 2019-3-8 09:26:23

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

huang452581492 · 发表于 2019-7-27 12:38:50

谢谢无私分享

litao036 · 发表于 2019-8-5 15:54:33

看看怎么样下载了

RJP3208 · 发表于 2019-8-6 16:51:22

谢谢分享，学学！

tianlifang88 · 发表于 2019-8-7 15:53:12

下载了，不知咋用。

		自动登录	找回密码
密码			注册

通知

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

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

评分

点评

点评

点评

浏览过的版块