自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

-+

上一步保存

小苏博客--关注软件开发

infoplat CSDN认证博客专家 CSDN认证企业博客

码龄19年

40: 原创

-: 周排名

150万+: 总排名

2万+: 访问

: 等级

166: 积分

4: 粉丝

5: 获赞

1: 评论

36: 收藏

私信

关注

热门文章

分类专栏

Android 11篇
Blackberry
Java 8篇
JavaScript 2篇
JQuery 1篇
Ajax 1篇
Mysql 1篇
Hibernate 1篇
Vba 2篇
Soap 1篇
Rest 1篇
编码规范 1篇
Wordpress 1篇
FastUnit 1篇
OpenGL
Log4j 1篇
Jbpm 1篇
MyEclipse 2篇
Linux 1篇
Windows 1篇

最新评论

VBA打开文件选择框、取得文件全路径与文件名
weixin_65390157: 'VBA打开文件选择框、取得文件全路径与文件名Sub selectExcelfile() Dim fileNameObj As Variant Dim aFile As Variant '数组，提取文件名fileName时使用 '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant Dim fullName As String Dim fileName As String '从FileName中提取的路径名 Dim i As Integer fileNameObj = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls") '调用Windows打开文件对话框 If fileNameObj <> False Then '如果未按“取消”键 aFile = Split(fileNameObj, "\") fileName = aFile(UBound(aFile)) '数组的最后一个元素为文件名 fullName = aFile(0) For i = 1 To UBound(aFile) '循环合成全路径 fullName = fullName & "\" & aFile(i) Next Else MsgBox "请选择文件" End End If '得到Excel全路径 allExcelFullPath = fullName '得到Excel文件名 workbookName = fileNameEnd Sub

最新文章

MyEclipse

关注

关注数：文章数：2 文章阅读量：229 文章收藏量：0

作者: infoplat

这个作者很懒，什么都没留下…

展开