Private Sub Command1_Click() Text1.Text = WebBrowser1.LocationURLEnd Sub如果自动获取用:Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Text1.Text = WebBrowser1.LocationURLEnd Sub