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

[發問] 不好意思,求教於各方高手...

verify9k

中學生 Rank: 2

帖子: 17
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: Window10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-12-4
最後登錄: 2022-6-16

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-7-21 20:35 | 只看該作者

[發問] 不好意思,求教於各方高手...

我有一段程式碼,已經看了一個月了,始終看不出錯誤,只好來請求幫忙,
這段程式碼可在 Excel 2007年版順利執行 Download資料,但是 Excel 2013無法執行.
程式分為兩部分,

如附件所示,第一部分是輸入公司代號並且按鈕執行,
第二部分是 Download資料,其實第二部分是錄製巨集
之後再手改完成的.

Question.zip (23.34 KB)

樓主熱帖

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 29
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-24

2^#

發表於 2020-7-22 01:34 | 只看該作者

回復 1# verify9k

goodinfo 沒辦法用 QueryTables.Add 抓,要用xml,01那邊文書區超多範例,不過很難

很慘忍的幫你翻釋vba下載後的那段亂碼
隢??蝬脩??批捆銝?頠??亥岷?祉雯蝡?
(請勿透過網站內容下載軟體查詢本網站)

TOP

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 29
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-24

3^#

發表於 2020-7-22 02:01 | 只看該作者

回復 1# verify9k

GBKEE大,寫的很多ie範例也可以用,程式碼長度跟 QueryTables.Add差不多,簡單易懂

Sub Ex()

Dim R As Integer, C As Integer

With CreateObject("InternetExplorer.Application")
   .Visible = True
      .Navigate "https://goodinfo.tw/StockInfo/ShowSaleMonChart.asp?STOCK_ID=2330"
      Do While .Busy Or .ReadyState <> 4: DoEvents: Loop

      With .Document.all.tags("table")(21)
         For R = 0 To .Rows.Length - 1
            For C = 0 To .Rows(R).Cells.Length - 1
                  ActiveSheet.Cells(R + 1, C + 1) = .Rows(R).Cells(C).innerText
            Next
         Next
      End With
      .Quit
   End With

End Sub

TOP

verify9k

中學生 Rank: 2

帖子: 17
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: Window10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-12-4
最後登錄: 2022-6-16

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2020-7-22 18:25 | 只看該作者

回復 3# quickfixer

多謝幫忙,謝謝您!!!

TOP

靜思自在 : 有時當思無時苦，好天要積雨來糧。

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