作为我们小白使用vba，是希望过程有些交互的，这样相对便于理解，也能有一定的灵活度，其中文件夹的选择是比较重要的。

这次我学到和运用的是通过filedialog命令选取文件夹，以后有学到新的，我会再把学习过程和心得整理出来，分享交流。

一些基础性的知识，如代码窗口、本地窗口、立即窗口等开发界面，模块、程序、过程、方法、属性、数据类型、循环等概念，就小小白自学了，不清楚可以交流。

由于现在很多企业越来越偏向使用wps，并且其基本免费，所以一般尝试在wps内进行vba的应用，支持“国货之光”。

首先，我们看看如何选择一个文件夹，也就是路径，一般比较常用的代码如下

Sub t1()Dim path As StringWith Application.FileDialog(msoFileDialogFolderPicker)    If .Show = -1 Then           path = .SelectedItems(1)           Debug.Print path    End IfEnd WithEnd 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 StringIf Application.FileDialog(msoFileDialogFolderPicker).Show = -1 Then        path = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)        Debug.Print pathEnd IfEnd Sub

但这样就执行报错了，希望大神指导。

5.show，代码执行后，会弹出对话框，如果选择了一个文件夹，show就会赋值-1。

6.selecteditems，后面填序号，由于如果选择文件的话，允许多选，所以不只是1，这里选择文件夹的话，就是1。

7.debug.print，这个是输出到立即窗口，作为本次演示的结果。