【烟花原创】VBA零基础之第88篇 Application对象（六）

hwc2ycy

FileDialog 属性

　返回一个 FileDialog 对象，该对象表示文件对话框的实例。

　语法：FileDialog(fileDialogType)

　　fileDialogType 必选MsoFileDialogType 文件对话框的类型。

　　　MsoFileDialogType 可为以下MsoFileDialogType 常量之一。

　　　msoFileDialogFilePicker 允许用户选择一个文件。

　　　msoFileDialogFolderPicker 允许用户选择一个文件夹。

　　　msoFileDialogOpen 允许用户打开一个文件。

　　　msoFileDialogSaveAs 允许用户保存一个文件。

　示例：

　　WithApplication.FileDialog(msoFileDialogFilePicker)

　　　.AllowMultiSelect = False

　　　'是否允许多选

　　　.InitialFileName = "d:\"

　　　'代表文件对话框中初始显示的路径或文件名

　　　.InitialView = msoFileDialogViewDetails

　　　'文件对话框视图模式,详细信息

　　　.Title = "文件选择测试"

　　　'对话框标题

　　　.Filters.Add "TXT 文件", "*.txt"

　　　'文件筛选，只显示TXT文件

　　　.ButtonName = "选取"

　　　'打开按钮标题

　　　If .Show Then

　　　　'显示文件对话框并返回一个Long 类型的值
　　　  '指示用户按下的是“操作”按钮 (-1) 还是“取消”按钮 (0)。

　　　　MsgBox .SelectedItems(1)

　　　Else

　　　　MsgBox "没有选择文件"

　　　End If

　　End With

　当在代码中需要灵活选择需要处理的文件时（只是选择文件，定制对话框），可以通过该属性来实现。

　关于该方法属性的更多参考需要查询FileDialog对象。

FindFormat 属性

　设置或返回要查找的单元格格式类型的搜索条件。

　在查找时，有个格式选项，与FindFormat属性对应。
　　

　该方法属性返回的返回值是CellFormat类型，更多的参考需要查找CellFormat对象。

　需要注意一点：
　　刚在测试代码时，发现查找格式设置后，在调用Range.find设置searchformat参数为True时，
　　符合查找内容但与格式无关的单元格还是会被查找出来。

　示例：

　　　ActiveSheet.UsedRange.ClearFormats

　　　With Range("a1")

　　　　With .Font

　　　　.Size = 20

　　　　.Bold = True

　　　　.Color = 9

　　　End With

　　　.Interior.ColorIndex = 3

　　End With

　　With Application.FindFormat

　　　.Clear

　　　With .Font

　　　　.Size = 20

　　　　.Bold = True

　　　　.Color = 9

　　　End With

　　　.Interior.ColorIndex = 3

　　End With

　　Application.CommandBars.FindControl(ID:=1849).Execute

　　'显示查找对话框

　　'观察格式

ReplaceFormat 属性

　设置替换条件以用于替换单元格格式。

　该替换条件将在后续调用中被用于 Range 对象的 Replace 方法。

　在调用Range.Replace方法时，如果需要根据格式查找并替换格式，
　那么传递参数searchformat，replaceformat时设置为True即可。

　示例：

　　ActiveSheet.UsedRange.ClearFormats

　　With Range("a1,a6")

　　　.Value = "test"

　　　.Font.Size = 8

　　　.Interior.ColorIndex = 3

　　End With

　　With Range("a3")

　　　.Value = "test"

　　　.Font.Size = 5

　　End With

　　With Application.FindFormat

　　　.Clear

　　　.Font.Size = 8

　　　.Interior.ColorIndex = 3

　　End With

　　With Application.ReplaceFormat

   　　.Clear

　　　.Font.Size = 13

　　　.Interior.ColorIndex = 20

　　End With

　　MsgBox "确定后开始替换"

　　Cells.Replace what:="test",Replacement:="excelpx",  _
　　　　　　　　searchformat:=True, ReplaceFormat:=True

　　ActiveSheet.UsedRange.EntireRow.AutoFit
　　'加这句是因为在我的电脑上测试时刷新滞后现象。

Hwnd 属性

　返回一个 Long 类型的值，该值表示 Microsoft Excel 窗口的最高级别的窗口句柄，只读。

　以后如果接触到API的话，句柄就会经常接触到了。

Left 属性

　返回或设置一个 Double 值，它代表从屏幕左边缘到 Microsoft Excel 主窗口左边缘的距离（以磅为单位）。

　注意单位是磅而非像素。

Top 属性

　返回或设置一个 Double 值，它代表从屏幕上边缘到 Microsoft Excel 主窗口上边缘的距离（以磅为单位）。

tingfeng461002