网页上传文件怎么搞？

zslyx

perfect131 发表于 2022-3-4 16:06
IE方法参考：
https://stackoverflow.com/questions/34803863/vbaie-how-to-assign-pathname-to-file ...

这个思路很新，不过我运行时出了问题。文件路径+文件名没有输在弹出的框里。不过和click相比，用FOCUS+sendkeys，倒是可以用句柄的方式了。但是输入后，变乱码了。
Sub 123()



    winhwnd = FindWindow(vbNullString, "选择要加载的文件")
   Do Until winhwnd <> 0
    winhwnd = FindWindow(vbNullString, "选择要加载的文件")
    DoEvents
   Loop


        btnHwnd = FindWindowEx(winhwnd, 0, "edit", vbNullString)
        Do Until btnHwnd > 0
         btnHwnd = FindWindowEx(winhwnd, 0, "comboboxex32", vbNullString)
         btnHwnd = FindWindowEx(btnHwnd, 0, "combobox", vbNullString)
         btnHwnd = FindWindowEx(btnHwnd, 0, "edit", vbNullString)
         DoEvents
        Loop


asd = "C:\Users\Z370\Desktop\360se.exe"
SendMessage btnHwnd, WM_SETTEXT, 0, asd

End Sub

zslyx

perfect131 发表于 2022-3-4 16:00
IE上传

已解决。不过只用了一半。focus+sendkeys！
另一半，用api句柄搞定！

zslyx

perfect131 发表于 2022-3-4 16:06
IE方法参考：
https://stackoverflow.com/questions/34803863/vbaie-how-to-assign-pathname-to-file ...

帮分析下什么原因，focus+sendkeys在家一点问题都没。在单位就一点反应都没是啥情况在家用的office2019版，单位是2007版和wps的2019版。

知道问题所在了！因为focus之后，sendkeys如果按F8一步步运行，其实焦点发生了变化。

592rmb

留下学习，谢谢