lalalada

大成功!!
感謝你
這速度真是太讓人滿意了~
另外給個不重要小建議
如果在下載前多加一個判斷頁數是否為空字串
即可避免下載到無資料htm
事後也就不必處理
大概可以多省個幾行=~="

HSIEN6001

回復 31# lalalada


    不錯!有禮貌的孩子~乖~
懂的提醒我~

但是!!
語法給出來~~不知道我很菜?!

^皿^

lalalada

XD
不就
If Page <> "" then 迴圈
@@?

HSIEN6001

回復 31# lalalada

    我自己的應用是,不必調格式
全部交給Access處理格式問題

所以加上你建議的篩選沒交易的不用下載之後
就只需要這段,會更快

所以省下的掛載時間 ;加上轉檔時間
(轉檔在自己的電腦裡處裡，起碼沒掛在網路上,增加IP曝光危險性)
嗯!!!在還沒有CSV可下載之前,還算滿意!

1. Sub ChangHtmToXls()     'htm改xls
   
2. Dim F As String, path As String, file As String
   
3. path = "D:\htm\"    '檔案存放的位置
   
4. file = Dir(path & "券商市*.htm")
   
5. Do While file <> ""
   
6. Application.DisplayAlerts = False
   
7.     With Workbooks.Open(path & file)
   
8.     .SaveAs Filename:=path & Replace(file, ".htm", ".xls"), FileFormat:=xlNormal
   
9.     ActiveWorkbook.Close True
   
10. Application.DisplayAlerts = True
    
11.         End With
    
12.         file = Dir
    
13. Loop
    
14. Kill "D:\htm\*.htm"        '下載完,轉檔後再一起刪  *.hml  (比較省時)
    
15. End Sub

複製代碼

其實,稍稍回顧之後,才發現
http://forum.twbts.com/viewthrea ... p;extra=&page=2
#11 樓的大大,也曾提過這個快速 [達到] 取資料的目的
只是大家對格式的問題所困擾，而沒繼續這方面的應用

所以,三人行,必有我師~~~謝謝恩師們!
藉由討論中出現的問題,各自達到成長目的
這才是論壇的目的

~感恩~