html 匯入,表格格式不對,都在同一儲存格, 如何調整???
- 帖子
- 760
- 主題
- 250
- 精華
- 0
- 積分
- 1023
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-11-29
|
html 匯入,表格格式不對,都在同一儲存格, 如何調整???
html 匯入,表格格式不對,都在同一儲存格, 如何調整???
 Book1.zip (1.85 KB)
|
|
|
|
|
|
|
|
- 帖子
- 99
- 主題
- 15
- 精華
- 0
- 積分
- 164
- 點名
- 2
- 作業系統
- WIN7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-5-30
- 最後登錄
- 2024-10-5
|
2#
發表於 2019-8-27 16:48
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 760
- 主題
- 250
- 精華
- 0
- 積分
- 1023
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-11-29
|
3#
發表於 2019-8-27 18:54
| 只看該作者
本帖最後由 t8899 於 2019-8-27 18:59 編輯
妳檔案內沒提供妳撰寫的程式碼 要怎幫你偵錯?
zheng211016 發表於 2019-8-27 16:48 
原始 https://mops.twse.com.tw/mops/web/t203sb01
抓的網頁 https://mops.twse.com.tw/server- ... cr-2890-2019Q1.html
With CreateObject("InternetExplorer.Application")
.Navigate "https://mops.twse.com.tw/server-java/t164sb01?step=3&SYEAR=" & Year(Date) & "&file_name=tifrs-fr1-m1-ci-cr-" & [b1] & "-" & [B3] & ".html"
Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
.ExecWB 17, 2 ' Select All
.ExecWB 12, 2 ' Copy selection
With ActiveSheet
' .UsedRange.Offset(1).Clear
.Cells(1, 7).Select
.PasteSpecial Format:="HTML"
End With
.Quit '關閉 IE
End With |
|
|
|
|
|
|
|
