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

麻辣家族討論版版 » Excel程式區 » 如何將從EXCEL內的資料貼入網站中(過程都由VBA自動執行)

返回列表下一主題上一主題發帖

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

博士班 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 了。

複製代碼

祝你一帆風順！

中學生 Rank: 2

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

3^#

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

回復 2# 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

複製代碼

靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。

返回列表下一主題上一主題