如何將從EXCEL內的資料貼入網站中(過程都由VBA自動執行) - Excel程式區

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

14^# 跳轉到 »

發表於 2013-10-21 10:19 | 只看該作者

回復 2# stillfish00

Dear S 大

我想請問關於網頁物件的這個寫法裡面

.document.getElementById("raw_textarea").innerText = myData.GetText '填入
.document.getElementById("result_submit").Click 'submit

這兩行字的解釋，應該要去msdn的哪裡查詢或是從哪個物件去了解

我常常看到你們與G大&H大都能夠運用自如

我還在學習的過程當中，發現查找資料是最難的一環，剩下來的應用，看範例應該都能略知一二慢慢理解

請問這個部分假設我是新手，想要了解網頁物件用法，應該從哪個地方切入

謝謝您的指教^^

TOP

icestormer

中學生 Rank: 2

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

13^#

發表於 2013-10-20 09:08 | 只看該作者

回復 12# c_c_lai

問題都解決了感謝各位!

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2013-10-20 06:43 | 只看該作者

回復 11# icestormer

' MsgBox x.All.tags("h4")(0).innerText
[L22] = x.All.tags("h4")(0).innerText

複製代碼

TOP

icestormer

中學生 Rank: 2

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

11^#

發表於 2013-10-19 21:23 | 只看該作者

本帖最後由 icestormer 於 2013-10-19 21:26 編輯

Sub Test()
  Dim oIe, myData As DataObject, x

  Set myData = New DataObject  '需引用 MS Form Object Library

  With Sheets("問題")
.Range(.[A4], .[F4].End(xlDown)).Copy
  End With
  myData.GetFromClipboard

  Set oIe = CreateObject("internetExplorer.Application")
  With oIe
'.Visible = False
.navigate "http://www.evepraisal.com"
Do While oIe.readystate <> 4: DoEvents: Loop

.document.getElementById("raw_textarea").innerText = myData.GetText '填入
.document.getElementById("result_submit").Click 'submit

Application.Wait Now + TimeValue("00:00:05")  '等待5秒完成

Set x = .document.getElementById("result_container")
  MsgBox x.All.tags("h4")(0).innerText

請問一下 MSGBOX這行如果要把結果寫入 L22格內要怎寫呢?(不要顯示在MSGBOX上) 感謝
.Quit
  End With

End Sub

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2013-10-19 16:36 | 只看該作者

本帖最後由 GBKEE 於 2013-10-19 16:39 編輯

回復 7# icestormer
模組插入表單就可以了

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

9^#

發表於 2013-10-19 14:38 | 只看該作者

回復 7# icestormer
為方便閱覽，特將它翻譯如下：

Actually it's a member of msforms library, not from native vba.
(確實它是微軟表單程式庫的乙員，而非 VBA 的生成元件)
you can use it without a userform but you'll need a reference
to Microsoft Forms Object Library. The reference is automatically added
to a workbook when you insert a Userform from VBeditor's Insert menu.
(你可以不需表單而去使用它，但是你還是須要參考到微軟的表單物件程式庫。
當你從VB編輯插入選單內插入一張表單時，此參考項會自動加入到活頁簿裡。)
Problem (問題)
An Excel VBA subroutine that involves interaction with the Windows Clipboard fails to run with the error:
“Compile error: User-defined type not defined.” The line of code highlighted by Excel as
being the cause of the error includes a reference to the “DataObject” object type.
(當一個試算表 VBA 程式段內涵蓋視窗剪貼簿之鏈結於執行時產生錯誤："程式編輯錯誤：使用者自訂型態尚未定義"。
反白標示發生錯誤的這行是在說明它在參照 "資料物件 (“DataObject”)" 時發生了參照錯誤。)
Solution (解決方案)
(Tested on my machine with Excel 2003 SP3) (已經在Excel 2003 SP3測試過)
In the Microsoft Visual Basic editor: (在微軟的 VB 編輯器內)
Stop debugging by clicking the “Stop” button on the toolbar (if debugging isn't already stopped).
(停止偵錯模式，即選按工作列上的 "停止" 鈕終止偵錯)
Tools menu | References (工具菜單 | 參考項目 )
In the list of available references, find “Microsoft Forms 2.0 Object Library”, check it, and click OK.
在參考列示項目選單內，找尋“Microsoft Forms 2.0 Object Library”，找到後點選它就完成了。
(For me, this was the 2nd unchecked item from the top of the list; it wasn't sorted alphabetically
in the list like most of the rest of the listed items.)
Run the macro again. (再重新執行巨集)
That's it! Hope this helps! (就這樣！希望對你有所幫助！)

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

8^#

發表於 2013-10-19 08:38 | 只看該作者

回復 7# icestormer
我只會對案例回復，至於平常如何呼叫真的不知如何聯繫。
但我找到了兩篇有關解決方案，提供你參考：

Actually it's a member of msforms library, not from native vba.
you can use it without a userform but you'll need a reference
to Microsoft Forms Object Library. The reference is automatically added
to a workbook when you insert a Userform from VBeditor's Insert menu.

複製代碼

Problem
An Excel VBA subroutine that involves interaction with the Windows Clipboard fails to run with the error:
“Compile error: User-defined type not defined.” The line of code highlighted by Excel as
being the cause of the error includes a reference to the “DataObject” object type.
Solution
(Tested on my machine with Excel 2003 SP3)
In the Microsoft Visual Basic editor:
Stop debugging by clicking the “Stop” button on the toolbar (if debugging isn’t already stopped).
Tools menu | References
In the list of available references, find “Microsoft Forms 2.0 Object Library”, check it, and click OK. (For me, this was the 2nd unchecked item from the top of the list; it wasn’t sorted alphabetically in the list like most of the rest of the listed items.)
Run the macro again.
That’s it! Hope this helps!