打开对话框 IE 自动化 VBA

Question

我正在尝试登录一个网站，然后上传一些照片，但我没有进一步了解。当对话框打开时，我无法以编程方式控制它。我试图将一个对象定义为FileDialog 并使用Application.SendKeys，但似乎对话框不是应用程序。

Answer 1

你好，我的代码是这样的：

1.I define an obj as internetexplorer.aplication
2.I login and then I want to upload a photo so I click the button for upload
' all works till now 
3.Now I try to interact with the dialog that let's me to choose the photos programmatically and their is my problem 

谢谢保罗，我今天就试试看！

最好的问候

乌达尔

Answer 2

您必须使用带有类似以下代码的浏览器对象：

.

Set browser = CreateObject("InternetExplorer.Application")

browser.Visible = True

brwser.navigate "http://*.com/..." 'your address

Sleep 1000 'wait for 1 second

With browser.Document
   Set txtUsr = .getElementsByName("Username")
   Set txtPass = .getElementsByName("UserPass")
   Set btnLogin = .getElementById("btnLogin")
End With

txtUsr.innerText = "User Name"
txtPass.innerText = "Password"
btnLogin.Click

.

等等……

• 使用 DOM，并尽可能避免使用 SendKeys

• “Sleep”使用的 API 可以像这样在模块顶部声明：

  Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

.

编辑：我注意到您实际上是在尝试与对话框而不是浏览器页面进行交互。如果是这样，您需要使用 Windows API 函数才能首先从 VBA 中识别它；我建议使用“FindWindow”：

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
 ByVal lpClassName As String, _
 ByVal lpWindowName As String _
) As Long

并像这样从 VBA 调用它：

setMyDialog = FindWindow(vbNullString, dialogCaption)

然后发送密钥给它；您可以发送“Tab”键从一个文本框移动到下一个文本框

如果网站使用此对话框允许您选择多个图像，那么自动化将更具挑战性；您必须使用其他录制方法来模拟多个文件选择或鼠标拖放操作

以下是一些有助于 API 功能的链接：

• How To Get a Window Handle Without Specifying an Exact Title (microsoft.com)
• API Declarations for VB and VBA (microsoft.com)
• *.com/questions/25098263/（如何使用 FindWindow）

.

编辑您的 3 个问题：

• “我在使用函数时遇到错误。64 位系统的问题...” - 您有 64 位版本的 Excel，因此请替换此声明

.

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String _
) As Long

用这个：

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String
) As LongPtr

.

• “当我复制函数时，VBA 说只有 cmets 可能出现在 End Sub...”之后。

这是一个声明，所以它必须放在模块的顶部（在任何其他函数之前）

• 我应该写什么来代替“vbNullString”和“dialogCaption”？？

您仍然可以使用“vbNullString”作为第一个参数，但您必须将“dialogCaption”替换为对话框的标题

• 不要为 vbNullString 使用引号
• 请在对话框标题中使用引号