返回列表 上一主題 發帖

html 匯入,表格格式不對,都在同一儲存格, 如何調整???

t8899

帖子
745 
主題
242 
精華
0 
積分
1000 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-8-27 07:30 | 只看該作者

html 匯入,表格格式不對,都在同一儲存格, 如何調整???

html 匯入,表格格式不對,都在同一儲存格, 如何調整??? Book1.zip (1.85 KB)
收藏 分享

zheng211016
　暱稱: zheng逸

中學生Rank: 2

帖子
98 
主題
15 
精華
0 
積分
163 
點名
0  
作業系統
WIN7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2017-5-30 
最後登錄
2024-1-7 
2#
發表於 2019-8-27 16:48 | 只看該作者
妳檔案內沒提供妳撰寫的程式碼 要怎幫你偵錯?

TOP

t8899

帖子
745 
主題
242 
精華
0 
積分
1000 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-18 
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

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
返回列表 上一主題