【转】 ExcelVBA编程入门范例[第一章Application对象

2011年01月11日ExcelVBAecms.ecms.com&kwtype=0&q=dedecms.com" target="_blank">dedecms.com&kwtype=0&q=com" target="_blank">com&kwtype=0&q=%25e7%25bc%2596%25e7%25a8%258b" target="_blank">编程入门范例第一章Application对象(fanjy)http://fanjy.- 7 - blog.excelhome.net个或多个规模重叠的长方形地区范围。示例 01-25:获取路径分开符(PathSeparator属性)Sub GetPathSeparator()MsgBox "路径分开符为" & Application.PathSeparatorEnd Sub示例申明:本示例使用PathSeparator 属性返回路径分开符("\")。示例 01-26:迅速移至指定位置(Goto方法)Sub GotoSample()Application.Goto Reference:=Worksheets("Sheet1").Range("A154"), _scroll:=TrueEnd Sub示例申明:本示例运行后,将当前单位格移至工作表Sheet1中的单位格A154。示例 01-27:预示内置对话框(Dialogs属性)Sub DialogSample()Application.Dialogs(xlDialogOpen).ShowEnd Sub示例申明:本示例预示Excel 的"打开"文件对话框。其中,Dialogs 属性返回的调集代表所有的Excel 内置对话框。示例 01-28:退出Excel(SendKeys方法)Sub SendKeysSample()Application.SendKeys ("%fx")End Sub示例申明:本示例使用SendKeys方法退出Excel,若未生存,则会弹出提醒对话框并让用户作出响应的选择。SendKeys方法的作用是摸拟键盘输入,如例中的"%fx"表示在Excel中同时按下Alt、F 以及X三个键。示例 01-29:关闭ExcelSub 关闭Excel()MsgBox "Excel 将会关闭"Application.QuitEnd Sub示例申明:运行本dedecms.com&kwtype=0&q=%25e7%25a8%258b%25e5%25ba%258f" target="_blank">程序后,若该工作簿未生存,则会弹出对话框扣问是不是生存。

(责任编辑：站长资源网)

搜索

热门标签:

【转】 ExcelVBA编程入门范例[第一章Application对象