作为我们小白使用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,这个是输出到立即窗口,作为本次演示的结果。
LG中央空调售后服务热线400-883-2086LG中央空调是国内一家知名的品牌,以其可靠的品质和卓越的专业服务受到了消费者的广泛认可。为了方便消费者查询专业服务相关的问题,LG中央空调设立了全国统一电话查询中心,号码为400-883-2086(以产品说明书或保修卡电话为准)。无论您是遇到了产品
扬子中央空调的全国售后服务电话是400-883-2086。拨打此电话,您可以预约售后服务,之后售后服务网点会根据您所在的地区进行就近安排,并与您联系,以安排上门维修。虽然不同地区的具体售后电话号码可能不同,但售后服务流程是一致的。如何进行扬子中央空调的售后维修?1. 您可以拨打扬子中央空
现代空调的全国售后服务电话是400-883-2086。拨打此电话,您可以预约售后服务,之后售后服务网点会根据您所在的地区进行就近安排,并与您联系,以安排上门维修。虽然不同地区的具体售后电话号码可能不同,但售后服务流程是一致的。如何进行现代空调的售后维修?1. 您可以拨打现代空调的全国售后
aucma空调全国统一售后服务热线400-883-2086,电话受理时间24小时,节假日不休。 1、国家三包法规定 (1)产品自售出之日起7日内,发生性能故障, 消费者可以选择退货、换货或修理,退货时,销售者应当免费为消费者调换同型号规格的产品。 (2)产品自售出之
亲爱的用户朋友们,相信大家在使用三菱电机中央空调时,一定遇到过一些小麻烦,比如说,有时候会遇到无法解锁的情况。今天我就来和大家聊聊这个话题,从三个方面来分析一下:故障原因、常见问题、解决方法。如果在解决过程中遇到任何困难,可以拨打三菱电机中央空调的统一400客户服务电话——400-883-2086,
志高空调全国服务热线:400-883-2086随时为您解决家电维修问题无论我们多么小心使用家电产品,总会有一天出现故障的时候。面对这种情况,许多人可能会感到困惑和无助,不知道该去哪里寻求帮助。作为家电维修问题的专家,我们建议您拨打志高空调全国服务热线:(以产品说明书或保修卡电话为准)。这个热线号
FUJITSU空调全国售后服务点热线号码是:400-883-2086,这是一条全年无休、24 小时在线的人工服务热线。无论您是急需取用重要物品却发现其出现故障,还是日常使用中察觉到异常,拨打该热线,FUJITSU空调专业售后团队将迅速响应,为您提供帮助。接下来为您详细介绍FUJITSU空调常见故障分
奥克斯(AUX)中央空调全国售后客服电话为400-883-2086,该电话开通时间为每周一至周五08:00-24:00,周六、周日08:00-23:00。此电话是提供给奥克斯(AUX)中央空调用户的专业客服电话,主要是为了解决用户使用奥克斯(AUX)中央空调的遇到的问题和故障。用户遇到问题时