宏问题

Question

shell函数
shell "iexplore_path yourURL"

Answer 1

很简单， 就是 API 的使用：
Sub AutomateIE()     Dim ie As Object 
    Dim result As Integer 
    Dim myRow As Integer, myCol As Integer 
    Dim myURL As String 
    ' 
    ' Get activecell value, must be a valid 
    ' web address 
    ' 
    myRow = ActiveCell.Row 
    myCol = ActiveCell.Column 
    myURL = ActiveSheet.Cells(myRow, myCol) 
    ' 
    ' Set up the Automation object 
    ' 
    Set ie = CreateObject("InternetExplorer.Application") 
    ' 
    ' Navigate to a page and customize the browser window 
    ' 
    ie.Navigate "http://" & myURL 
    ie.Toolbar = False ' }set these to true if you want to have the 
    ie.StatusBar = False ' }toolbar, statusbar and menu visible 
    ie.MenuBar = False ' } 
   ' 
    ' keep itself busy while the page loads 
    ' 
    Do While ie.Busy 
        DoEvents 
    Loop 
 ' 
    ' Display page info 
    ' 
    result = MsgBox( _ 
        "Current URL: " & ie.LocationURL & vbCrLf & _ 
        "Current Title: " & ie.LocationName & vbCrLf & _ 
        "Document type: " & ie.Type & vbCrLf & vbCrLf & _ 
        "Would you like to view this document?", _ 
        vbYesNo + vbQuestion)     If result = vbYes Then 
        ' 
        ' If Yes, make browser visible 
        ' 
        ie.Visible = True 
    Else 
        ' 
        ' If no, quit 
        ' 
        ie.Quit 
    End If     Set ie = Nothing End Sub