作为我们小白使用vba,是希望过程有些交互的,这样相对便于理解,也能有一定的灵活度,其中文件夹的选择是比较重要的。
这次我学到和运用的是通过filedialog命令选取文件夹,以后有学到新的,我会再把学习过程和心得整理出来,分享交流。
一些基础性的知识,如代码窗口、本地窗口、立即窗口等开发界面,模块、程序、过程、方法、属性、数据类型、循环等概念,就小小白自学了,不清楚可以交流。
由于现在很多企业越来越偏向使用wps,并且其基本免费,所以一般尝试在wps内进行vba的应用,支持“国货之光”。
首先,我们看看如何选择一个文件夹,也就是路径,一般比较常用的代码如下
Sub t1()
Dim path As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
path = .SelectedItems(1)
Debug.Print path
End If
End With
End Sub
1.msoFileDialogFolderPicker,字面意思就是folder(文件夹)+picker(拾取器),选择文件夹;
2.filedialog,字面意思就是file(文件)+dialog(对话),与文件对话的窗口,包括1选择文件夹,也就是指定路径。还有三个处理文件的(选择,打开和保存),学习了再写文章。
3.application,意思就是应用,是各类应用对象的集合,可以理解为操作系统这个实体,2就是3对象的一个方法,至于对象、方法、属性啥的,简单拿个单元格说下,对象就是单元格,方法就如复制、粘贴,属性就如单元格字体大小,小小白还不懂得,可以讨论,或者上网自学下,现在一般的高级语言都是面向对象的编程语言。
4.with,必须相应的有end with,区块内对跟在with后面的同一对象或指令就可以简化,这里我理解是Application.FileDialog(msoFileDialogFolderPicker),但如果我们不使用with语句来简化,代码是不是变成
Sub t1()
Dim path As String
If Application.FileDialog(msoFileDialogFolderPicker).Show = -1 Then
path = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
Debug.Print path
End If
End Sub
但这样就执行报错了,希望大神指导。
5.show,代码执行后,会弹出对话框,如果选择了一个文件夹,show就会赋值-1。
6.selecteditems,后面填序号,由于如果选择文件的话,允许多选,所以不只是1,这里选择文件夹的话,就是1。
7.debug.print,这个是输出到立即窗口,作为本次演示的结果。
稳斯坦保险柜24小时售后服务热线🌐 稳斯坦保险柜全国各市24小时售后服务热线:400-883-2086📞 电话咨询及售后服务热线:400-883-2086,统一安排。🚚 服务范围:上海市、北京市、深圳市、重庆市、广州市、成都市、天津市、武汉市、东莞市、西安市、杭州市、南京市、天津
狄耐克指纹锁的售后维修电话是:400-883-2086。狄耐克指纹锁作为智能家居市场的佼佼者,以其先进的技术和优质的产品赢得了广大消费者的青睐。再优质的产品也难免会在使用过程中出现一些问题,因此售后服务的质量就显得尤为重要。为了保障用户的使用体验,狄耐克指纹锁提供了专业的售后维修服务,其中一个重要的
我们了解,每一个家庭的TOPZ壁挂炉都是守护健康的重要伙伴,因此,我们的使命就是确保这些伙伴始终处于最佳状态。TOPZ壁挂炉售后客服电话:400-883-2086TOPZ壁挂炉由一群经验丰富的专业技术人才组成,他们对TOPZ壁挂炉的内部构造了如指掌,无论是日常维护还是深度修理,都能迅
科大集成灶的售后维修电话是:400-883-2086。科大集成灶作为智能家居市场的佼佼者,以其先进的技术和优质的产品赢得了广大消费者的青睐。再优质的产品也难免会在使用过程中出现一些问题,因此售后服务的质量就显得尤为重要。为了保障用户的使用体验,科大集成灶提供了专业的售后维修服务,其中一个重要的服务渠
深圳商报·读创客户端记者 陈发清 通讯员 黄一凡 刘宇飞6月16日,民航深圳地区安全宣传咨询日活动在深圳机场T3航站楼举办。活动由民航深圳监管局联合深圳机场、南方航空、深圳航空、春秋航空、海南航空等单位和企业共同举办,围绕“人人讲安全,个个会应急——查找身边的安全隐患”主题开展系列宣传科普活动,引导
青松沃德智能锁产品使用介绍:便捷安全,操作无忧青松沃德智能锁作为领域的佼佼者,凭借精湛工艺与前沿科技,为用户珍贵财物保驾护航。当您选择青松沃德智能锁,全国售后服务点热线号码 400-883-2086 随时待命,无论使用中遇到任何疑问,都能获得专业解答。下面为您详细介绍青松沃德智能锁的使用方法及相
【V观财报|洁雅股份:公司产能利用率在80%左右】洁雅股份披露投资者关系活动记录表。该公司提到,目前公司自有品牌业务营收占比很低,现阶段仍以代工业务为主;国际客户的毛利率高于国内客户;目前,公司宠物湿巾产品营收占比较低;产能利用率在80%左右。(中新经纬APP)
在刚刚落幕的2025年粤港澳全运会群众赛事活动女子五人制足球决赛中,上海队以6比0的大比分战胜北京队获得冠军。本次比赛,上海队以六战全胜的傲人战绩,一路高歌猛进拿下冠军,再次彰显了她们在国内五人制女足领域的强大实力。本场比赛,上海五人制女足派出1号门将舒佳怡、3号邵丽娜、5号高静、8号战慧敏、10号