Private Sub Command1_Click()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate2 "D:\1.html"
    IE.Visible = True
    j = App.Path + "\Capture_2.jpg"
    
    'j的值是D:\capture_2.jpg     IE.document.All.upfile.focusEnd Sub
1.html代码
<html>
<body>
<form>
<INPUT TYPE=FILE NAME=upfile></Input>
</form>
</body>
</html>
    有没有办法把变量j赋给1.html中的那个框框,我是想,有没有办法把j中的值进行一次复制,在进行focus指定框框,然后在进行一次粘贴。请问各位高手们要怎么做?