作为我们小白使用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,这个是输出到立即窗口,作为本次演示的结果。
家庭房间走廊的宽度 通常在1.0米至1.5米之间,但具体宽度可能会因房屋设计、使用需求和面积限制而有所不同。以下是一些常见标准和参考数据:一般标准走廊的净宽在大多数情况下是1.3米。家中过道装修大概是1.2米宽,一般标准的住宅过道的净宽度不会小于1米,最窄的走道应该是住宅中通往辅助房间的过道,其净宽
室温18度时,建议给宝宝盖 厚度适中的被子。具体来说:春秋季节:在春秋两季,室温18度属于比较舒适的温度范围,宝宝可以盖一套棉质的秋衣秋裤,再在外侧盖一床薄被即可。冬季室内采暖良好时:在冬季,如果室内采暖效果较好,室温18度也是适宜的,此时可以给宝宝盖一床厚度适中的被子,避免过厚或过薄。夏季空调较凉
武汉购买第二套住房的首付比例有所变化。如果是本市户籍居民,在限购区域购买第二套住房,首付比例 不得低于50%。如果是非本市户籍家庭,在限购区域购买第二套住房,首付比例同样为 50%。对于已经拥有一套住房的家庭,再次申请个人住房贷款购买商品住房,贷款最低首付比例为40%。因此,无论是本市户籍还是非本市
家装损耗的总体比例因材料类型、施工方法和工人技术水平等多种因素而异。以下是一些常见装修材料的损耗率参考值:瓷砖:损耗率通常较低,大约为5%-10%。壁纸:损耗率一般在10%-20%之间。地板铺设:损耗率一般在3%-4%。玻璃镜面:损耗率较高,一般在30%。地毯:损耗率一般在10%。涂料:损耗率通常较
选择合适尺寸的茶几需要考虑多个因素,包括客厅的大小、沙发的尺寸、茶几的用途以及个人喜好等。以下是一些常见的茶几尺寸建议:小型茶几尺寸:通常在60至80厘米之间,长、宽、高也相应较小,例如40cm*40cm*30cm,55cm*55cm*30cm等。适用场景:适合面积较小的客厅或需要方便移动和放置小物
非洲菊是一种 多年生草本植物,具有以下特点:生长周期:非洲菊可以生长多年,第一年种植后,第二年还可以继续开花。它的寿命一般在三年到五年之间,但在适宜的养护条件下,可以一直存活。生长环境:非洲菊喜欢光照充足且通风良好的环境,最适合在20℃-25℃的温度范围内生长,冬季则适合在12℃-15℃的环境中生长
等额本息的总利息取决于多个因素,包括贷款金额、贷款期限和年利率。以下是一些具体的例子:贷款50万元,贷款期限30年,年利率为5%等额本息的总利息约为45.53万元。贷款10万元,借款利率4%,期限为10年等额本息的总利息为21494.25元。贷款50万元,借款利率5%,期限为20年等额本息的总利息为
布基胶带的厚度 通常在0.15mm至0.8mm之间,具体厚度取决于其类型和用途。以下是布基胶带厚度的详细信息:橡胶型布基胶带:基材厚度为0.15mm。热熔型布基胶带:基材厚度通常在0.25mm至0.8mm之间。纤维布基胶带:厚度一般为0.25mm。涤纶布基胶带:厚度通常在0.25mm至0.8mm之间