[發問] 可以操作自動上傳資料嗎?

faye59

由於公司內部網頁無法提供網址

嘗試過用myIE.document.all("txtFile").Value傳值進去，
可是[readonly]無法填入，有其他方法嗎?
爬過很多網站跟文章找不到相關的解答，
還是VBA不允許自動上傳檔案?
如需Function我在補上。

<!-- upload form -->
<div id="upload" style="margin-top:-20;margin-bottom:-20;display:none">
  <form name="frmUpload" method=POST action='lot_query_upload.jsp' enctype="multipart/form-data">
    <table border="1" cellpadding="0" cellspacing="0" class="w3dFormL" width="70%" align="center">
      <tr>
        <td>
          <table border="0" cellpadding="0" cellspacing="0" align="center">
            <tr>
              <td class="tbl" style="padding-left:10px">Choose a text file
                <input class="tbl" type='file' name="txtFile" size="30" > <!--1.0.1 Remove [readonly] option-->
              </td>
              <td style="padding-left:10px">
                <input class="btn" type="button" name="cmdOK" value="OK" onclick="doUpload()">
                <input class="btn" type="button" name="cmdCancel" value="Cancel" onclick="doCancel()">
              </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
  </form>
</div>

faye59

由於公司內部網頁無法提供網址

嘗試過用myIE.document.all("txtFile").Value傳值進去，
可是[readonly] ...
faye59 發表於 2018-6-9 21:23

補上我的寫的VBA
沒一開始補上想說沒什麼內容

1. Option Explicit
   
2. 
   
3. Dim a As Object
   
4. Sub UpData()
   
5. Dim tagid As Object
   
6. 
   
7. Set a = CreateObject("InternetExplorer.Application")
   
8. a.Visible = True
   
9. a.Navigate "http://test/Query.jsp"
   
10. While a.Busy = True Or a.readyState <> 4
    
11. DoEvents
    
12. Wend
    
13. a.document.all("fldName").Value = "選單"
    
14. a.document.all("queryCondition").Value = "名稱"
    
15. 
    
16. Set tagid = a.document.getelementsbytagname("INPUT")
    
17. tagid(1).Click
    
18. While a.Busy = True Or a.readyState <> 4
    
19. DoEvents
    
20. Wend
    
21. a.document.parentWindow.execScript "tabChange(1, 'P_LOT_OPER', 'ORACLE2')", "JavaScript"
    
22. End Sub

複製代碼