[VBA精品课] A01052 - 改变 GetOpenFilename 方法的标题文字 - P32

发表于 2019-9-10 08:28:15 | 显示全部楼层 |阅读模式

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

Public Sub 技巧1_052()9 Z9 ^# W# `$ a. E0 H
Dim myFileName As String, myPath As String
, M" q# T! X5 E# W4 e0 e
ChDir Application.DefaultFilePath
3 X5 c6 M* [1 `7 \- R8 ?
myPath = "C:\my documents" '指定任意的文件夹) h3 N! o( {& t5 W. ~, B' L) e0 s
SendKeys myPath & "{TAB}"5 p- h. k9 T+ ^/ q: E
myFileName = Application.GetOpenFilename("图片文件(*.bmp;*.jpg),*.bmp;*.jpg", , "插入图片")9 t! m4 `1 t4 S: @6 G; V
Range("A1") = myFileName
2 u- y- Y# M* b& k. h
End Sub

复制代码

新大榭Python学习社区培训、Excel业务指导、办公软件定制、网站建设；新大榭探索实验室欢迎您！http://lab.daxie.net.cn/

Q群推荐大榭本地求职招聘QQ群，欢迎转发分享本地招聘信息资讯! 官方招聘1群（已满）；官方招聘2群：315816937 *

GMT+8, 2026-2-26 23:06 , Processed in 0.069957 second(s), 19 queries , Gzip On.

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