blocks|key|1040433|text|您必须使用带有类似以下代码的浏览器对象：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1040434|。|1040435|Set+browser+=+CreateObject("InternetExplorer.Application")

browser.Visible+=+True

brwser.navigate+"http://stackoverflow.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|code-block|syntax|javascript|1040436|1040437|以此类推。|1040438|1040439|使用DOM，如果possible|unordered-list-item|1040440|"Sleep“使用可以在模块顶部声明的API，请尽量避免使用SendKeys：|1040441|1040442|私有声明子休眠库"kernel32“(ByVal+dwMilliseconds+As+Long)|1040443|1040444|编辑：我注意到您实际上是在尝试与对话框交互，而不是与浏览器页面交互。如果是这样的话，您需要使用Windows+API函数才能首先从VBA中识别它；我建议使用"FindWindow"：|offset|length|style|BOLD|1040445|Private+Declare+Function+FindWindow+Lib+"User32"+Alias+"FindWindowA"+(+_
+ByVal+lpClassName+As+String,+_
+ByVal+lpWindowName+As+String+_
)+As+Long|1040446|并从VBA调用它，如下所示：|1040447|setMyDialog+=+FindWindow(vbNullString,+dialogCaption)|1040448|然后将键发送到它；您可以发送"Tab“键从一个文本框移动到下一个文本框|1040449|如果网站使用此对话框来允许您选择多个图像，则自动化将更具挑战性；您必须使用其他录制方法来模拟多个文件选择或使用鼠标的拖放操作|1040450|以下是一些对API函数有帮助的链接：|1040451|1040452|How+To+Get+a+Window+Handle+Without+Specifying+an+Exact+Title+(microsoft.com)|1040453|API+Declarations+for+VB+and+VBA+(microsoft.com)|1040454|stackoverflow.com/questions/25098263/+(如何使用FindWindow)|1040455|1040456|1040457|为您的3个问题编辑：|1040458|1040459|“使用函数时出现错误。64位系统有问题...”-您有64位版本的Excel，因此请替换此声明|1040460|1040461|1040462|Private+Declare+Function+FindWindow+Lib+"User32"+Alias+"FindWindowA"+(+_
+++++ByVal+lpClassName+As+String,+_
+++++ByVal+lpWindowName+As+String+_
)+As+Long|1040463|使用这一条：|1040464|Private+Declare+PtrSafe+Function+FindWindow+Lib+"user32"+Alias+"FindWindowA"+(+_
+++++ByVal+lpClassName+As+String,+_
+++++ByVal+lpWindowName+As+String
)+As+LongPtr|1040465|1040466|1040467|“当我复制函数VBA时说只有注释可能出现在End+Sub..."|1040468|1040469|这是一个声明，因此它必须放在模块的顶部(在任何其他函数之前)|1040470|我应该写什么而不是"vbNullString“和"dialogCaption"??？|1040471|1040472|1040473|您仍然可以使用"vbNullString“作为第一个参数，但必须将"dialogCaption”替换为对话框的标题|1040474|1040475|do不对vbNullString|1040476|do使用引号对对话框的标题使用引号|1040477|1040478|entityMap|0|LINK|mutability|MUTABLE|url|https://support.microsoft.com/en-us/kb/147659|1|http://www.microsoft.com/en-ca/download/details.aspx?id=12427^0|0|0|0|0|0|0|0|0|0|0|0|0|2|0|0|0|0|0|0|0|0|0|1O|0|0|0|V|1|0|0|0|0|0|9|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|G|0|0|F|0|0^^$0|@$1|2|3|4|5|6|7|2S|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|2T|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|2U|8|@]|9|@]|A|$G|H]]|$1|I|3|C|5|6|7|2V|8|@]|9|@]|A|$]]|$1|J|3|K|5|6|7|2W|8|@]|9|@]|A|$]]|$1|L|3|-4|5|6|7|2X|8|@]|9|@]|A|$]]|$1|M|3|N|5|O|7|2Y|8|@]|9|@]|A|$]]|$1|P|3|Q|5|O|7|2Z|8|@]|9|@]|A|$]]|$1|R|3|-4|5|6|7|30|8|@]|9|@]|A|$]]|$1|S|3|T|5|6|7|31|8|@]|9|@]|A|$]]|$1|U|3|C|5|6|7|32|8|@]|9|@]|A|$]]|$1|V|3|W|5|6|7|33|8|@$X|34|Y|35|Z|10]]|9|@]|A|$]]|$1|11|3|12|5|F|7|36|8|@]|9|@]|A|$G|H]]|$1|13|3|14|5|6|7|37|8|@]|9|@]|A|$]]|$1|15|3|16|5|F|7|38|8|@]|9|@]|A|$G|H]]|$1|17|3|18|5|6|7|39|8|@]|9|@]|A|$]]|$1|19|3|1A|5|6|7|3A|8|@]|9|@]|A|$]]|$1|1B|3|1C|5|6|7|3B|8|@]|9|@]|A|$]]|$1|1D|3|-4|5|6|7|3C|8|@]|9|@]|A|$]]|$1|1E|3|1F|5|O|7|3D|8|@]|9|@$X|3E|Y|3F|1|3G]]|A|$]]|$1|1G|3|1H|5|O|7|3H|8|@]|9|@$X|3I|Y|3J|1|3K]]|A|$]]|$1|1I|3|1J|5|O|7|3L|8|@]|9|@]|A|$]]|$1|1K|3|-4|5|6|7|3M|8|@]|9|@]|A|$]]|$1|1L|3|C|5|6|7|3N|8|@]|9|@]|A|$]]|$1|1M|3|1N|5|6|7|3O|8|@$X|3P|Y|3Q|Z|10]]|9|@]|A|$]]|$1|1O|3|-4|5|6|7|3R|8|@]|9|@]|A|$]]|$1|1P|3|1Q|5|O|7|3S|8|@]|9|@]|A|$]]|$1|1R|3|-4|5|6|7|3T|8|@]|9|@]|A|$]]|$1|1S|3|C|5|6|7|3U|8|@]|9|@]|A|$]]|$1|1T|3|1U|5|F|7|3V|8|@]|9|@]|A|$G|H]]|$1|1V|3|1W|5|6|7|3W|8|@]|9|@]|A|$]]|$1|1X|3|1Y|5|F|7|3X|8|@]|9|@]|A|$G|H]]|$1|1Z|3|C|5|6|7|3Y|8|@]|9|@]|A|$]]|$1|20|3|-4|5|6|7|3Z|8|@]|9|@]|A|$]]|$1|21|3|22|5|O|7|40|8|@]|9|@]|A|$]]|$1|23|3|-4|5|6|7|41|8|@]|9|@]|A|$]]|$1|24|3|25|5|6|7|42|8|@]|9|@]|A|$]]|$1|26|3|27|5|6|7|43|8|@]|9|@]|A|$]]|$1|28|3|-4|5|O|7|44|8|@]|9|@]|A|$]]|$1|29|3|-4|5|6|7|45|8|@]|9|@]|A|$]]|$1|2A|3|2B|5|6|7|46|8|@]|9|@]|A|$]]|$1|2C|3|-4|5|6|7|47|8|@]|9|@]|A|$]]|$1|2D|3|2E|5|O|7|48|8|@$X|49|Y|4A|Z|10]]|9|@]|A|$]]|$1|2F|3|2G|5|O|7|4B|8|@$X|4C|Y|4D|Z|10]]|9|@]|A|$]]|$1|2H|3|-4|5|6|7|4E|8|@]|9|@]|A|$]]|$1|2I|3|-4|5|6|7|4F|8|@]|9|@]|A|$]]]|2J|$2K|$5|2L|2M|2N|A|$2O|2P]]|2Q|$5|2L|2M|2N|A|$2O|2R]]]]

You'll have to use a browser object with code similar to this:

.

<pre><code>Set browser = CreateObject("InternetExplorer.Application")

browser.Visible = True

brwser.navigate "http://stackoverflow.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
</code></pre>

.

and so on...

<ul>
<li>Use DOM, and try to avoid SendKeys if possible</li>
<li>"Sleep" uses an API that can be declared at the top of the module like this:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)</li>
</ul>

.

Edit: I noticed that you are actually trying to interact with a dialog box, not a browser page. If so, you'll need to use Windows API functions to be able to first identify it from VBA; I'd suggest using "FindWindow":

<pre><code>Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
 ByVal lpClassName As String, _
 ByVal lpWindowName As String _
) As Long
</code></pre>

and call it from VBA like this:

<pre><code>setMyDialog = FindWindow(vbNullString, dialogCaption)
</code></pre>

then send keys to it; you can send the "Tab" key to move from one text box to the next

If the website is using this dialog to allow you to select multiple images it will be more challenging to automate; you'll have to use other recordings methods to simulate multiple file selections or drag-and-drop actions with the mouse

Here are some links that can help with API functions:

<ul>
<li><a href="https://support.microsoft.com/en-us/kb/147659" rel="nofollow">How To Get a Window Handle Without Specifying an Exact Title</a> (microsoft.com)</li>
<li><a href="http://www.microsoft.com/en-ca/download/details.aspx?id=12427" rel="nofollow">API Declarations for VB and VBA</a> (microsoft.com)</li>
<li>stackoverflow.com/questions/25098263/ (How to use FindWindow)</li>
</ul>

.

Edit for your 3 questions:

<ul>
<li>"I get an error when i use the function. Something with the 64-bit system..." - you have a 64 bit version Excel so replace this declaration</li>
</ul>

.

<pre><code>Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
 ByVal lpClassName As String, _
 ByVal lpWindowName As String _
) As Long
</code></pre>

with this one:

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

.

<ul>
<li>"When i copy the function VBA says that only comments may appear after End Sub..."</li>
</ul>

This is a declaration so it must be placed at the top of the module (before any other functions)

<ul>
<li>What should I write instead of "vbNullString" and "dialogCaption"??</li>
</ul>

You can still use "vbNullString" as the first argument, but you have to replace "dialogCaption" with the title of your dialog box

<ul>
<li>do not use quotation marks for vbNullString</li>
<li>do use quotation marks for the title of the dialog</li>
</ul>

blocks|key|528210|text|你好我的代码是这样的：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|528211|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+|code-block|syntax|javascript|528212|谢谢你，保罗，我今天就试一试！|528213|诚挚的问候|528214|Udar|528215|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|R|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Hello my code is like this :

<pre><code>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 
</code></pre>

Thank you Paul i'll try it today out!

Best Regards 

Udar

I'm trying to log into a website and then upload some photos but I'm not getting any further. When the dialog opens, I can't control it programmatically. I tried to define an object as <code>FileDialog</code> and also to use the <code>Application.SendKeys</code> but it seems that the dialog isn't an application.

Open Dialog IE Automation VBA

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

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

问打开对话框IE自动化VBA
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问打开对话框IE自动化VBAEN