如何用VBA打开网页并输入用户名和密码

1、首先打开电脑上的excel表格，然后按alt+f11打开VBA界面。

2、接着选择工具按钮，选择引用，d出对话框选择Internet   controls选项。

3、然后在模块界面输入想要访问的网址代码。

4、然后单击运行按钮。

5、运行后就可以看到网页打开，最后保存文件就完成了。

1、这个问题相对比较专业。建议再去知乎看看

2、另外咨询下淘宝看看卖VBA程序的人都给出什么方案

3、以下代码转载自网络：

Dim 二是开启IE进程Sub test()

  Set ie = CreateObject("InternetExplorerApplication") '设置变量

  With ie '设置块

    Navigate ("需要打开的网页的网址") '打开网页

    Visible = True '是否显示ie窗口

    While readystate <> 4 '延迟等待页面加载完毕

      DoEvents

    Wend

    For i = 22 To 49 Step 3 '取数循环

      S = S & " " & Documentalltags("td")(i)innerTEXT  '取数据到变量，熟悉HTML的DOM可以修改这个实现各种内容

    Next i

  End With '块结束

  S = LTrim(S) '删除左边空格

  ApplicationSendKeys "^{F4}" '发送按键关闭当前浏览器标签

  MsgBox S '显示结果

  Set ie = Nothing '释放内存

End Sub

可以在工作簿上写Open事件代码，方法是按ALT+F11、CTRL+R，双击ThisWorkbook粘贴程序，最后如下图：

程序代码：

Private Sub Workbook_Open()

  If MeFullName <> "c:\Temp\tmpxlsm" Or ApplicationUserName <> "admin" Then MeClose

End Sub

程序中的文件路径和用户名请自行修改。

Sub 访问共享文件()

IPName = "192168010"

UserName = "user"

Passwd = "password"

Shell "net use /delete /y", vbHide

Shell "net use \\" & IPName & " " & Passwd & " /user:" & UserName, vbHide

Shell "C:\WINDOWS\explorerexe \\" & IPName & "\", vbMaximizedFocus

End Sub

     参考

dim stName as string

    en=environ("username")

    if en<>"aa1" or en<>"aa2" or en <>"aa3" then exit sub

录制宏

点击 工具 菜单

宏-->录制宏

然后你在Excel中可以被录制的 *** 作，会被VBA记录下来

*** 作结束后，点击结束录制

然后点击 工具 菜单

宏-->VB 编辑器 在VBA *** 作界面下 找到对应工作簿的模块中查阅代码 就找到了

Dim A()

A = SelectionValue

通过上述代码，二维数组A(）就是所选单元格区域内的数据，数组的两个维度上都以1为下边界的。

注：对于选择多重区域的情部，上述代码仅能取得第一个区域内的数据，如果选择的是多重区域，则要复杂一些，代码如下：

Dim a As Range, b()

Set a = Selection

ReDim b(1 To aAreasCount)

For i = 1 To aAreasCount

b(i) = aAreas(i)Value

Next i

'注：b(i)是一个数组的数组，引用如下：

'比如：要引用选择的多重区域的第2个区域的第3行第4列的数值：

'那么引用如下：b(2)(3,4)

以上就是关于如何用VBA打开网页并输入用户名和密码全部的内容，包括:如何用VBA打开网页并输入用户名和密码、excel2016。如何 vba 抓取网页指定数据，并且自动更新至excel，网页登陆有用户名和密、你好侯哥：用VBA 编写一段可以指定用户、指定路径才能打开EXCEL文件方便分享一下吗等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！