按钮

dashllh

这样跟你说吧，你设置按钮的HyperlinkAddress属性就行了

dashllh

Command0.HyperlinkAddress = "http://djy-ncpzx.com"

yanghua1900363

Private Sub zz_Click()

Dim webAddreess As String
    Dim Web
    Set Web = CreateObject("InternetExplorer.Application")
    Web.Visible = True
    WebAddress = "http://www.accessoft.com"
    Web.Navigate WebAddress
end sub

张杨

谢谢各位师傅们解答