icestormer

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-10-18 13:29 | 只看該作者

[發問] 如何將從EXCEL內的資料貼入網站中(過程都由VBA自動執行)

EXCEL, 如何

新問題.rar (10.19 KB)
主要想讓紅圈處的資料複制>>打開右上方的網址>再貼上後按下 submit

最好還能將下面紅圈處二筆ISK 也都傳回EXCEL上

不知有沒有法子能做到呢? 感謝幫忙了

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-10-18 16:20 | 只看該作者

本帖最後由 stillfish00 於 2013-10-18 16:22 編輯

回復 1# icestormer

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
.Quit
End With
End Sub

複製代碼

TOP

icestormer

中學生 Rank: 2

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

3^#

發表於 2013-10-18 23:32 | 只看該作者

回復 2# stillfish00

你好我不太懂問題出在那但我才跑第一行就出現上圖的問題請問我要怎做呢??

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

4^#

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

回復 3# icestormer
如 stillfish00 之解說：使用 DataObject 宣告，須引用 Microsoft Form Object Library
你先檢查該 Library 是否已經勾選，否則執行時會產生 "未定義" 的訊息，我將如何引用
的方法，說明如下，希望對你會有所幫助。

1. 開發人員 ---> 工具 ---> 設定引用項目 ---> 可引用的項目(A)
2. 然後觀察 Micorsoft Forms 2.0 Ojbect Library 有否勾選？
3. 如果該項目不存在!
4. 則點選 "瀏覽" 選鈕 ---> 新增引用項目 - VBAProject，
搜尋位置(I) 指向 Windows/System32\FM20.dll，接著再點選
"開啟" 便會自動勾選 Micorsoft Forms 2.0 Ojbect Library 了。

複製代碼

祝你一帆風順！

TOP

icestormer

中學生 Rank: 2

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

5^#

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

回復 4# c_c_lai

你好我是用2003的但我找不到你說的開發人員選項呢

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

6^#

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

回復 5# icestormer
我手頭上並沒有 2003 的版本，有關這方面
你可能要去請教 GBKEE 版大了，因為他也是
使用 2003 的版本。

TOP

icestormer

中學生 Rank: 2

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

7^#

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

回復 icestormer
我手頭上並沒有 2003 的版本，有關這方面
你可能要去請教 GBKEE 版大了，因為他也是
...
c_c_lai 發表於 2013-10-19 08:04

那請問我要怎找他呢? 是寫信給他? (我還沒用過這類的功能~~)

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!

複製代碼

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! (就這樣！希望對你有所幫助！)