2016/01/12 VBA学习8

1. 1.      FileDialog属性

使用Application的FileDialog属性可以获取指定目录的路径和名称，样例代码如下

Private Sub CommandButton1_Click()

    With Application.FileDialog(filedialogtype:=msoFileDialogFolderPicker)

        .InitialFileName = "D:\"

        .Title = "请选择一个目录"

        .Show

        If .SelectedItems.Count > 0 Then

            Range("A1").Value = .SelectedItems(1)

            Range("A1").Font.Underline = xlUnderlineStyleDouble

        End If

    End With

End Sub

效果如下图：

 

另外filedialogtype参数列表如下：

其中用msoFileDialogOpen，和msoFileDialogSaveAs参数的时候，在.show后面加上.Execute，在选择文件之后会实际打开一个文件，或把当前工作簿另存。

1. 2.      对工作表窗口的设定

 

 

1. 3.      EntireRow属性

返回一个Range对象，该对象代表包含指定区域的整个行（或若干行）。只读。