Board logo

標題: [發問] 從Excel將資料上傳到網頁~ [打印本頁]

作者: hugh0620    時間: 2012-3-29 09:57     標題: 從Excel將資料上傳到網頁~

本帖最後由 hugh0620 於 2012-3-29 14:45 編輯

Dear 大大們

        因為,現在很多工作是需要將資料輸入在網頁上,將資料上傳上去,
        也由於網頁的設計就像是ERP或一般程式設計一樣,
        一個蘿蔔一個坑,因此,為讓其他部門同事工作方便,
        設計一個EXCEL與網頁欄位相對應的工具,
        當在EXCEL先將資料建齊後,再透過VBA的方式,將資料逐筆的上載上去,
        (在EXCEL輸入資料比較快,建立完後,可再檢查資料的正確,再將資料上傳
          有重覆的地方,可以用COPY的方式,來建檔,如在網頁上,比較不好處理)
      
        小弟也花了些時間初步的建構一個簡單的工具
        依Yahoo網址進行資料查詢 如附檔
        [attach]10196[/attach]
        這是小弟第一次嘗試將資料上傳到網頁上,因為這個跟網頁的程式碼有關
        需要去看網頁的程式碼,了解什麼是input的id,按鈕的id,才將其完成
        由於沒有asp或html的基礎,只有參照它人類似的ex來套用,但真的不甚了解其語法
        亦希望能透過這個發問,對有需要在網頁上重覆性工作的人,收集及提供一些資訊來應用
      
       以下是小弟對一般資料在網頁處理時會有的步驟 ,若有不符合情況或是漏掉的,請大大們再指教
       (下列程式碼,僅是舉例說明,並非真實的撰寫方式,還是要大大們分享,真正去執行時,該如何來撰寫)
       1. 連結網頁
       2. 輸入帳密+確定  (這邊就會有兩個input +一個按鈕)
              需要用if來判斷 ,當按確定後,網頁回傳的訊息是正確或錯誤  (這部份小弟還沒測試過,亦請大大們能分享)
              可用yahoo登入mail的帳密來測試,該如何撰寫   (亦可進行測試)            
               if   按鈕=ok then
                     msgbox  " 確定進入"  
               else
                      msgbox  " 失敗,帳密錯誤"
                end if
       3.  確定登入後,開始逐筆資料的輸入, N個INPUT
             因為網頁有很多INPUT的字,有沒有大大比較了解網頁如何判斷INPUT是需要填寫的
             可否提供類似這方面的知識
       4.  輸入完資料後,可能是
                        [下一步]或是
                        [確定SAVE]或是
                        [換頁] 或是
                       ..........
               在處理上,可能會發生上述的情況
        5.  最後再來就是循環將EXCEL的資料上傳
        
        小弟就先列出這些問題,請大大們來分享或教導後輩
        小弟亦會每到一個進度,將一些範例放上來分享
'===== 登入帳密的寫法,以yahoo mail為例==========
(僅能在登出的情況下執行,希望有大大能提供先登出,再登入的寫法)
  1. Sub EX2()  'Yahoo mail 登入的程式碼
  2. A = Sheet1.Range("A1")                                                     '網址
  3.             With CreateObject("InternetExplorer.Application")
  4.                 .Navigate A
  5.                 Do While .Busy Or .ReadyState <> 4
  6.                     DoEvents
  7.                 Loop
  8.                 .Visible = True
  9.                 .Document.all("username").innerText = Sheet1.Range("A2")     '帳號
  10.                 .Document.all("passwd").innerText = Sheet1.Range("A3")       '密碼
  11.                 .Document.all("persistent").Value = Y                        '保持登入
  12.                  MsgBox "資料已經填寫完成,進行登入"
  13.                 .Document.all(".save").Click                                 '登入按鈕
  14.             End With
  15. End Sub
複製代碼





歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)