设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

全站
8天前
查看: 4510|回复: 22
收起左侧

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

[复制链接]
bash
发表于 2017-7-30 12:16:06 | 显示全部楼层 |阅读模式 来自： 中国广东佛山
安装
主题分类用于问题归类:

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

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

x
本帖最后由 bash 于 2017-8-5 10:06 编辑 # J6 n6 Z, x7 a0 \5 r4 j) {# N' [( p
: T9 p+ k: u; t& p" [: e& N: i: l1 C
2017.08.02 更新
/ r" r; z3 F/ l7 F
) `1 m8 y' S  [5 s& S% m# A SWDM-API-201X.rar (56.01 KB, 下载次数: 168)

评分

参与人数 1三维币 +25 收起 理由
阿帕奇 + 25

查看全部评分

回复

举报

bash
 楼主| 发表于 2017-7-30 12:34:22 | 显示全部楼层 来自： 中国广东佛山
本帖最后由 bash 于 2017-8-11 13:18 编辑 8 p6 K6 f, w; R. f
$ Y, W6 V, u& C' `4 `
-
回复 支持 反对

举报

ryouss
发表于 2017-7-30 13:07:21 | 显示全部楼层 来自： 中国浙江嘉兴
謝謝分享,下載試試了!
回复 支持 反对

举报

qxzch
发表于 2017-7-30 13:49:18 | 显示全部楼层 来自： 中国广东东莞
这几天关于缩略图的帖子有点火

点评

阿帕奇
因为有大师指导了方向  详情 回复 发表于 2017-7-31 15:03
回复 支持 反对

举报

che-zp
发表于 2017-7-30 16:13:56 | 显示全部楼层 来自： 中国山东威海
EXCEL是只读文件？高级版本？
回复 支持 反对

举报

keilei001
发表于 2017-7-31 13:38:23 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2017-7-31 13:39 编辑
! Z4 M5 w( u0 m% E
% X- E* o- S& v8 i" n多谢分享，是不是只有缩略图而不能提取其他属性呢？
回复 支持 反对

举报

阿帕奇
发表于 2017-7-31 15:03:06 | 显示全部楼层 来自： 中国辽宁盘锦
qxzch 发表于 2017-7-30 13:490 E$ }7 F: w! @; f  }7 l1 x
这几天关于缩略图的帖子有点火

6 c" x4 _6 f, n" _$ K  a因为有大师指导了方向
回复 支持 反对

举报

bash
 楼主| 发表于 2017-7-31 19:12:42 | 显示全部楼层 来自： 中国广东佛山
本帖最后由 bash 于 2017-7-31 19:13 编辑 7 M1 l) w/ n/ W7 ]+ B
keilei001 发表于 2017-7-31 13:38
5 o! i# p2 K0 b# S! b( M多谢分享，是不是只有缩略图而不能提取其他属性呢？

8 Q, @+ m% N7 F7 |$ z# _8 B) ]  q已在闷大的Excel上私自加上，但未经原作者同意，不敢私自公开。（涉及到LicenseKey）的问题。所以仅提供方法以参考。

点评

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

举报

NC@jiang@nan
发表于 2017-8-1 19:34:23 | 显示全部楼层 来自： 中国广东深圳
bash 发表于 2017-7-31 19:126 a8 P# Z9 Y, Y9 g* G
已在闷大的Excel上私自加上，但未经原作者同意，不敢私自公开。（涉及到LicenseKey）的问题。所以仅提供 ...

7 E4 q2 z: [. {% A# w' F" d( G/ y高手能否把licensekey删掉后把文件共享出来学习学习？
回复 支持 反对

举报

bash
 楼主| 发表于 2017-8-2 10:22:42 | 显示全部楼层 来自： 中国广东佛山
NC@jiang@nan 发表于 2017-8-1 19:34
* h# d1 J7 n+ ~7 H/ C- P! K. i高手能否把licensekey删掉后把文件共享出来学习学习？

8 z4 B8 Q; e5 y, _4 @" G, s& v7 ^您好高手，已更新！

点评

NC@jiang@nan
谢谢无私分享。 下载学习下，但一打开文件就报如图的错误，不知道是何原因？您这宏对我而言实在过于复杂，连排除都不知道怎么排除了，让高人见笑了。  详情 回复 发表于 2017-8-2 20:32
回复 支持 反对

举报

dsaxingyuner
发表于 2017-8-2 13:07:53 | 显示全部楼层 来自： 中国江苏常州
好东西，值得拥有，谢谢楼主
回复 支持 反对

举报

mdj18
发表于 2017-8-2 13:58:25 | 显示全部楼层 来自： 中国北京
显示：若要在64位系统上使用，则必须更新此项目中的代码。。。
回复 支持 反对

举报

sihouko
发表于 2017-8-2 15:15:08 | 显示全部楼层 来自： 日本
大人發宏的帖子每次都下載，但是每次都不能用。。
! r$ b7 z- t' h3 w" I5 R# _vba裏面很多應該是中文的注解和引用，但是在他囯系統裏全都不可讀。。（VBA至今都不默認支持u8的嗎？）& w3 ^6 G4 G5 H3 ~. N! `8 ?
- p9 D+ M3 N) t, \
這次打開沒有error，但是選擇文件以後什麽都沒有了。。% F1 Y$ H6 l5 ]* v% n2 G$ C/ p4 V
列表也沒有更新。。。手動輸入，選擇顯示預覽也是一閃之後就什麽都沒有了。。
回复 支持 反对

举报

bash
 楼主| 发表于 2017-8-2 16:19:14 | 显示全部楼层 来自： 中国广东佛山
本帖最后由 bash 于 2017-8-2 16:22 编辑
& R8 @7 w! r) L. i3 H
sihouko 发表于 2017-8-2 15:15
* |* l0 U, }- G: r大人發宏的帖子每次都下載，但是每次都不能用。。
9 C: h3 w% {" x% Vvba裏面很多應該是中文的注解和引用，但是在他囯系統裏 ...
/ w! R% T8 G' ^
sihouko 大，您好，关于那所缩略图Excel问题。8 ], Q* F3 m- P6 s7 K/ T4 V
里面有使用说明的文本。
) C$ C! G, B) R% k如果乱码您看不到，那请往下看：
4 O6 |- O" o' v- O$ j6 d, ~  T5 d使用前请先确保LicenseKey有效，引用版本正确，及tempMacro_docGetThumbNail.swp放到位。5 h  ]  B) d* u* D0 @) g- E4 P

: n  l* ?: L% s: ]2 N附件Excel仅在 简体：Win10 x64 + SW2017  , 日文：Win7 x64 + SW2017 ，测试通过。
1 o) V8 m1 F: S6 L1 Z-----------------6 x6 p% O' `$ R7 ?" T
1.开启预览图功能，请把tempMacro_docGetThumbNail.swp剪切到D:\5 {% W1 {/ h" z; {/ h
- L4 K5 t! ^1 U  B) K% p5 H9 ^  y: D
如果要放到其他地方或者改变其名字，请修改相应修改Excel里面的"C1"单元格的内容！
9 X  B) K, F, U9 o+ f0 m
5 g' v9 K, h4 `% E7 Y* _2.更换DMLicenseKey,并且在VBA里面勾选相应SW版本的引用(目前状态是SW2017 SP3的引用)。( ^! C: {: Z  U( }
- t3 l4 F/ W* J( s+ d5 Z# q* `3 x
3.声明，Excel的原始版本在网上所得，并经过一些“个性化”修改，并追加了预览图功能而已！' S2 M8 {& X. r  `# Z) F
-----------------7 r. z, p4 Z, O' K9 q) T
若有其他问题，请加好友私聊！谢谢大大！, ~# s0 M3 B, A' w! |' r9 s' P
- u& W" x- c8 s2 C3 E; O

+ y9 J3 T( A! r% T: {
; |9 k3 I4 D2 f# }- C2 }

点评

sihouko
感謝大人關注，應該是按照下圖的樣子。。。  详情 回复 发表于 2017-8-2 17:38
回复 支持 反对

举报

sihouko
发表于 2017-8-2 17:38:14 | 显示全部楼层 来自： 日本
本帖最后由 sihouko 于 2017-8-3 07:55 编辑
0 H9 O/ F' T, h, i( Q/ ~/ p8 k" Z6 u, K. o
重新申請lic后問題解決，感謝。
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-2 20:32:36 | 显示全部楼层 来自： 中国广东深圳
bash 发表于 2017-8-2 10:22! ?! }  s& z; u3 Y1 l! _' O
您好高手，已更新！
) Q; M+ v( \! M: ~+ P- \# x0 O, L
谢谢无私分享。
. _$ X  h) J: q0 d# E  N下载学习下，但一打开文件就报如图的错误，不知道是何原因？您这宏对我而言实在过于复杂，连排除都不知道怎么排除了，让高人见笑了。
QQ图片20170802202955.png

点评

sihouko
64b的處理方法和32b有點不一樣。 最簡單的方法是。。。裝回office的32b。。 一勞永逸的方法是，在寫一段64b的代碼，然後用if來判斷32b和64b分別執行。 只修改為64b用的話，32b會出現error。。  详情 回复 发表于 2017-8-3 08:20
回复 支持 反对

举报

sihouko
发表于 2017-8-3 08:20:34 | 显示全部楼层 来自： 日本
本帖最后由 sihouko 于 2017-8-3 08:24 编辑
! r$ {' {- j7 ^3 ?6 t
NC@jiang@nan 发表于 2017-8-2 20:32
. P0 O- S) t" k$ x9 Q谢谢无私分享。5 f% u' D0 j5 `7 W9 H, }
下载学习下，但一打开文件就报如图的错误，不知道是何原因？您这宏对我而言实在过于复杂 ...

& h2 y- C' E! J: g$ B: b6 X64b的處理方法和32b有點不一樣。- b0 B- D) H2 G' @( i" z* ^+ a
最簡單的方法是。。。裝回office的32b。。7 |# s4 F, \, p3 D3 z$ K9 V
一勞永逸的方法是，在寫一段64b的代碼，然後用if來判斷32b和64b分別執行。
4 k/ H3 b& a* ~1 B3 l只修改為64b用的話，32b會出現error。。( `8 K2 d' W: \( l7 Z% {  F
- z! y: }" N- k
本機沒有64b，沒辦法幫忙測試，大人可以試一下把 As Long 改成As LongPtr 看是否可以運作。
0 e7 p6 [6 a' O5 Q+ c# [" f; r# S( E

点评

NC@jiang@nan
回高手，因为我是64位的操作系统，所以装的64位的OFFICE。装32位的怕出现兼容性问题。 试了下，把 As Long 改成As LongPtr也还是一样的报错的。  详情 回复 发表于 2017-8-3 19:47
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-3 19:47:35 | 显示全部楼层 来自： 中国广东深圳
sihouko 发表于 2017-8-3 08:20
- x: B: e( ?* _6 o& _2 z64b的處理方法和32b有點不一樣。
- |' @9 i, j9 J. f最簡單的方法是。。。裝回office的32b。。
5 \0 X: H' r9 ~  z一勞永逸的方法是，在寫一 ...

5 Y" e6 u! a7 u' \) O回高手，因为我是64位的操作系统，所以装的64位的OFFICE。装32位的怕出现兼容性问题。
9 k9 @8 F0 _: B3 }1 _! F, M+ M7 v试了下，把 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 | 显示全部楼层 来自： 中国广东广州
下载了，不知咋用。
回复 支持 反对

举报

发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表