返回列表 上一主題 發帖

此網頁匯入excel, 巨集要怎麼改??

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-22 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-12-6 10:40 | 只看該作者

此網頁匯入excel, 巨集要怎麼改??

WEB
1
http://stock.chinatimes.com/asp/hot/ShortOperate.asp?lcount=30&m=puplim&align=v

Selection=7,11  ===========>不對!???
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False
--------------------------------------
With Sheets("漲跌停")
                .Cells = ""
                .Cells(1, 1) = "漲停鎖死股"
                For Each i In Array(7, 11)
                    If i = 24 Then .Cells(1, "J") = "跌停鎖死股"
                    Y = 2
                    For R = 0 To xlVbTable(i).Rows.Length - 1
                        For C = 0 To xlVbTable(i).Rows(1).ALL.Length - 1
                            .Cells(Y, C + IIf(i = 5, 1, 10)) = xlVbTable(i).Rows(R).Cells(C).innerText
                            'IIf(i = 5, 1, 10) ->  1:="A", 10:="J"
                        Next
                        Y = Y + 1
                    Next
                    If i = 5 Then .Rows(13).Delete   '貼上連結的儲存格仍然是#REF!->儲存格被刪除掉
      
            End With
收藏 分享

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-22 
2#
發表於 2013-12-6 15:18 | 只看該作者
本帖最後由 t8899 於 2013-12-6 15:19 編輯

試了30分才試出來  :-(
With Sheets("漲跌停")
                .Cells = ""
                .Cells(1, 1) = "漲停鎖死股"
                For Each i In Array(6, 10)
                    If i = 10 Then .Cells(1, "J") = "跌停鎖死股"
                    Y = 2
                    For R = 0 To xlVbTable(i).Rows.Length - 1
                        For C = 0 To xlVbTable(i).Rows(1).ALL.Length - 1
                            .Cells(Y, C + IIf(i = 6, 1, 10)) = xlVbTable(i).Rows(R).Cells(C).innerText
                            'IIf(i = 6, 1, 10) ->  1:="A", 10:="J"
                        Next
                        Y = Y + 1
                    Next
                    If i = 6 Then .Rows(13).Delete  
                    If i = 6 Then .Rows(24).Delete
                 
                Next
            End With

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題