Excel VBA宏编程入门（五）——用户交互

任务介绍

VBA编程中，为了程序的灵活性，有时候需要用到用户交互操作，例如让用户选择一个文件夹，用户选择一个单元格等等。本文将介绍一些常用的用户交互操作的实现

选择文件夹

St = Application.FileDialog(msoFileDialogFolderPicker).Show '如果选择了文件夹就返回-1,不选择文件夹就返回0
If St <> 0 Then
    fileDir = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)    '取选择的文件夹路径
    MsgBox "您选择的文件夹是：" & fileDir     
Else
    Exit Sub    '没有选择合并文件所在路径，退出程序
End If

选择文件保存路径

Dim fileSaveName
'保存文件所在路径
fileSaveName = Application.GetSaveAsFilename(InitialFileName:="合并.xlsx", fileFilter:="Text Files (*.xlsx), *.xlsx")
If fileSaveName <> False Then
    MsgBox "Save as " & fileSaveName
Else
    Exit Sub    '没有选择保存路径，退出程序
End If

'创建空白excel文件
Set cwb = Wo