- 帖子
- 219
- 主題
- 24
- 精華
- 0
- 積分
- 243
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-4-18
- 最後登錄
- 2022-2-7
 
|
34#
發表於 2012-8-10 09:28
| 只看該作者
本帖最後由 HSIEN6001 於 2012-8-10 09:30 編輯
回復 31# lalalada
我自己的應用是,不必調格式
全部交給Access處理格式問題
所以加上你建議的篩選沒交易的不用下載之後
就只需要這段,會更快
所以省下的掛載時間 ;加上轉檔時間
(轉檔在自己的電腦裡處裡，起碼沒掛在網路上,增加IP曝光危險性)
嗯!!!在還沒有CSV可下載之前,還算滿意!- Sub ChangHtmToXls() 'htm改xls
- Dim F As String, path As String, file As String
- path = "D:\htm\" '檔案存放的位置
- file = Dir(path & "券商市*.htm")
- Do While file <> ""
- Application.DisplayAlerts = False
- With Workbooks.Open(path & file)
- .SaveAs Filename:=path & Replace(file, ".htm", ".xls"), FileFormat:=xlNormal
- ActiveWorkbook.Close True
- Application.DisplayAlerts = True
- End With
- file = Dir
- Loop
- Kill "D:\htm\*.htm" '下載完,轉檔後再一起刪 *.hml (比較省時)
- End Sub
http://forum.twbts.com/viewthrea ... p;extra=&page=2
#11 樓的大大,也曾提過這個快速 [達到] 取資料的目的
只是大家對格式的問題所困擾，而沒繼續這方面的應用
所以,三人行,必有我師~~~謝謝恩師們!
藉由討論中出現的問題,各自達到成長目的
這才是論壇的目的
~感恩~ |
|
