返回列表 上一主題 發帖

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

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-6-9 21:23 | 只看該作者

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

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

嘗試過用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
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-6-10 19:48 | 只看該作者
由於公司內部網頁無法提供網址

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


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

  3. Dim a As Object
  4. Sub UpData()
  5. Dim tagid As Object

  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 = "名稱"

  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
複製代碼

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題