1234
返回列表 上一主題 發帖

請問如何將網頁的圖片存檔

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
18# 跳轉到 »
發表於 2014-12-14 18:08 | 只看該作者
回復 14# GBKEE


    謝謝 GBKEE 版大
   是我看錯了
   
        .Document.ALL.tags("INPUT")("input_search_stk").Value = Trim(1258)

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
17#
發表於 2014-12-14 15:00 | 只看該作者
本帖最後由 wufonna 於 2014-12-14 15:09 編輯

回復 14# GBKEE


    請問 大大 第一段對應的是這程式碼嗎，那第二段的我這樣改為何查無該股票代碼資料
諸問 大大 如何有誤，改如何做練習，謝謝


<button type="submit" class="btn btn-default"><span class="glyphicon glyphicon-search" aria-hidden="true"></span>&nbsp;查詢</button>

      Set a = .Document.ALL.tags("BUTTON")
        For Each e In a
            If Trim(e.innertext) = "查詢" And e.ID = "" Then
            e.Click
            Exit For
            End If
        Next

<input type="radio" id="rdo_search_stk" tabindex="14" name="rdo_search" value="1" class="input-radio-search" checked><span>個股查詢</span>
<button id="header_search_btn" tabindex="17" class="input-button ui-corner-all" tabindex="13">搜尋</button>       

Sub test()
Dim e As Object, a As Object
    Set IE = CreateObject("InternetExplorer.Application")
   
    With IE
        .Visible = True
        '券商買賣證券日報表查詢系統（一般交易）
        .Navigate "http://www.gretai.org.tw/web/stock/aftertrading/broker_trading/brokerBS.php?l=zh-tw"
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
        .Document.ALL.tags("INPUT")("rdo_search_stk").Value = 1
        .Document.ALL.tags("INPUT")("input_search_site").Value = Trim(1258)
        Set a = .Document.ALL.tags("BUTTON")
        For Each e In a
        If e.ID = "header_search_btn" Then
            e.Click
            Exit For
        End If
        Next
    End With
End Sub

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
16#
發表於 2014-12-14 13:05 | 只看該作者
回復 14# GBKEE

原來就在面前 哈
謝謝 GBKEE 大大

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
15#
發表於 2014-12-14 12:24 | 只看該作者
回復 14# GBKEE



請問,該如何載入其他頁次
若不用寫入Excel,而直接 .Click 下載CSV檔(BIG5) 檔案
語法該怎麼修正
  1.         Set aa = .Document.getElementsByTAGName("INPUT")
  2.         For R = 0 To aa.Length - 1
  3.             If aa(R).Value = "下載CSV檔(BIG5)" And aa(R).Type = "button" Then
  4.                 aa(R).Click   '有 "下載CSV檔(BIG5)" 的按鈕
  5.                     Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  6.             End If
  7.         Next
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2014-12-14 05:45 | 只看該作者
回復 12# wufonna
2010版的找不到圖片如何更名
如圖 到名稱方塊中修改






VBA修改
  1. With 工作表1
  2.     .Shapes(1).Name = "驗證圖"
  3.     .Shapes("驗證圖").Fill.UserPicture 圖形    '
  4. End With
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
13#
發表於 2014-12-13 19:28 | 只看該作者
回復 11# GBKEE

謝謝 GBKEE 大大
* 使用繪圖的圖片
可以了 ^_^

2014-12-13_192543.jpg (70.4 KB)

2014-12-13_192543.jpg

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
12#
發表於 2014-12-13 17:24 | 只看該作者
回復 11# GBKEE
GBKEE 大大
2010版的找不到圖片如何更名，
這程式是要先看圖片的字再輸入 F2 和 f4 才可輸出嗎
程式還不清楚，研究看看 不會再請教 大大
謝謝  GBKEE 版大

活頁簿1.rar (29.42 KB)

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2014-12-13 15:04 | 只看該作者
回復 10# wufonna

你的附檔
插入的圖片需使用繪圖的圖片
一樣你的附檔 的圖片沒改名稱為 "驗證圖"
給你除錯程式碼
  1. Private Sub 圖形更新()
  2.    On Error GoTo ER
  3.     If IE Is Nothing Then Get_Ie
  4.     If Msg Then MsgBox "驗證圖 更新完畢"
  5.     Msg = False
  6.     With IE
  7.         .Refresh
  8.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  9.         網路圖片存檔 .Document.ALL.tags("IMG")(0).href
  10.     End With
  11.     MsgBox 工作表1.Shapes("驗證圖").Name
  12.    
  13.     工作表1.Shapes("驗證圖").Fill.UserPicture 圖形    '
  14.   Exit Sub
  15. ER:
  16.     MsgBox Err & vbLf & Err.Description
  17.     Stop
  18.     MsgBox 工作表1.Shapes(1).Name
  19.     Resume
  20. End Sub

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

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
10#
發表於 2014-12-13 14:38 | 只看該作者
回復 9# GBKEE

GBKEE 大
執行有開啟IE
錯諤碼如下，還是我有那一步做了，謝謝

檔安同放D:\ 根目下

2014-12-13_143120.jpg (111.53 KB)

2014-12-13_143120.jpg

2014-12-13_143151.jpg (36.57 KB)

2014-12-13_143151.jpg

活頁簿1.rar (23.84 KB)

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2014-12-13 13:23 | 只看該作者
本帖最後由 GBKEE 於 2014-12-13 13:24 編輯

回復 8# wufonna
這錯誤是你將 IE關閉了
VBA按下重設,重新執行程式
  1. Private Sub Get_Ie()
  2.     Set IE = CreateObject("InternetExplorer.Application")
  3.     With IE
  4.        ' .Visible = True  *** 不顯示就是防止使用者關閉IE
  5.         '券商買賣證券日報表查詢系統（一般交易）
  6.         .Navigate "http://www.gretai.org.tw/web/stock/aftertrading/broker_trading/brokerBS.php?l=zh-tw"
  7.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  8.     End With
  9. End Sub
複製代碼


插入的圖片需使用繪圖的圖片
  1. 工作表1.Shapes("驗證圖").Fill.UserPicture 圖形
複製代碼
附檔插入的圖片沒改名稱 驗證圖
也可以使用 Shapes(索引值)->如Shapes(1)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
1234
返回列表 上一主題