FrontPage VBA教程:Open方法

应用于 WebFile对象的 Open方法。

打开 WebFile对象。

expression.Open

expression  必选。返回上述对象之一的表达式。

应用于 Webs对象的 Open方法。

返回 WebEx对象。

expression.Open(szWebUrl, UserName, Password, WebOpenFlags)

expression  必选。返回上述对象之一的表达式。

szWebUrl  必选,String 类型。站点的基本 URL,例如“C:\My Webs”。它可以是任何绝对 URL,例如“http://web Server”,或“file://file system”(对于基于磁盘的站点)。

UserName  可选,String 类型。用户的登录名。

Password  可选,String 类型。指派的字符串,用来验证对指定站点的访问。

WebOpenFlags  可选,FpWebOpenFlags 类型。

FpWebOpenFlags 可以是下列这些 FpWebOpenFlags 常数之一:
fpOpenInWindow 默认值
fpOpenNoWindow

VBA示例

本示例会打开 Rogue Cellars 站点和 Oktoberfest Sale 文件,然后执行以下任务:

注意  若要运行本示例,必须有一个名为“C:\My Documents\My Webs\Rogue Cellars”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”(对于在 Windows NT 上运行的服务器)的站点。或者,您也可以用其他站点 URL 和其他文件来代替。


Private Sub AddSaleText()
    Dim objWeb As Web
    Dim objFile As WebFile
    Dim strSaleProp As String
    Dim strSaleText As String
    strSaleText = "Vintage Wines for Oktoberfest Sale!!!"
    Set objWeb = Webs.Open("C:\My Documents\My Webs\Rogue Cellars")
    Set objFile = ActiveWeb.RootFolder.Files("Sale.htm")
    objFile.Properties.Add "SaleText", mySaleText
    strSaleProp = objFile.Properties("SaleText")
    objFile.Open
    ActiveDocument.body.insertAdjacentText "BeforeEnd", strSaleProp
    WebWindows.Close
End Sub

上页:FrontPage VBA教程:OnTime方法 下页:FrontPage VBA教程:ParseURL方法

FrontPage VBA教程:Open方法

FrontPage VBA教程:ParseURL方法 FrontPage VBA教程:Publish方法
FrontPage VBA教程:queryCommandEnabled方法 FrontPage VBA教程:queryCommandIndeterm方法
FrontPage VBA教程:queryCommandState方法 FrontPage VBA教程:queryCommandSupported方法
FrontPage VBA教程:queryCommandText方法 FrontPage VBA教程:queryCommandValue方法
FrontPage VBA教程:Quit方法 FrontPage VBA教程:RecalcHyperlinks方法
FrontPage VBA教程:Refresh方法 FrontPage VBA教程:removeBotAttribute方法
FrontPage VBA教程:RemoveChoice方法 FrontPage VBA教程:RemoveWeb方法
FrontPage VBA教程:Run方法 FrontPage VBA教程:Save方法
FrontPage VBA教程:SaveAs方法 FrontPage VBA教程:SaveReport方法
FrontPage VBA教程:setBotAttribute方法 FrontPage VBA教程:toString方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号