A01050 - 利用 GetOpenFilename 方法获取某类型文件名 - P31

admin · 发表于 2019-9-9 11:44:09

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

x

Public Sub 技巧1_050()
2 J- U) s: s2 a
Dim myFileName As String
8 Q6 j4 ]0 r2 S' g) L# `9 H5 O( L5 \
myFileName = Application.GetOpenFilename("文本文件(*.txt), *.txt")) w. o; x* G$ C/ I
Range("A1") = myFileName
: T0 r: |0 M7 x" v% {4 A
End Sub. g3 R+ ^- B0 X- I, I
Public Sub 技巧1_050_1()
+ E2 ?1 {, l0 V/ Q- N
Dim myFileName As String
' O$ F8 M) T. j1 }) @
myFileName = Application.GetOpenFilename("图片文件(*.bmp;*.jpg),* bmp;*.jpg")
* Q9 r: U% \8 W+ q* I
Range("A1") = myFileName) j- n( p# Q7 `; k7 y; c
End Sub

复制代码

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

[VBA精品课] A01050 - 利用 GetOpenFilename 方法获取某类型文件名 - P31