[發問] 可以下載,讀取有問題

HSIEN6001

麻煩版上先進幫我看看
語法內,到底哪裡要修改
下載的文件,才能正常開啟
感恩!

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 樓的大大,也曾提過這個快速 [達到] 取資料的目的
只是大家對格式的問題所困擾，而沒繼續這方面的應用

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

~感恩~

lalalada

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

HSIEN6001

回復 31# lalalada


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

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

^皿^

lalalada

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

lalalada

回復 29# HSIEN6001

感恩!
目前正在修改程式碼中
等等就可以實驗了^_^

HSIEN6001

回復 28# HSIEN6001

如上
'代號與名稱拆解,視個人需求;此段可省
Dim i%, strn$, Rng As Range
    Application.ScreenUpdating = False
    Set Rng = Range("F3")
            For i = 1 To Len(Rng)
                strn = Mid(Rng, i, 1)
                If Not IsNumeric(strn) Then
                    Rng.Offset(0, 1) = "'" & Mid(Rng, 1, i - 1)
                    Rng.Offset(0, 2) = Mid(Rng, i)
                    Exit For
                End If
            Next i
    Application.ScreenUpdating = True
   
'代號與名稱拆解，這段語法也可參考GBKEE的Code
    Dim i%, Rng As Range
    Application.ScreenUpdating = False
    Set Rng = Range("F3")
    Do
        For i = 1 To Len(Rng)
            If Not IsNumeric(Mid(Rng, i, 1)) Then
                Rng.Offset(0, 1) = "'" & Mid(Rng, 1, i - 1)
                Rng.Offset(0, 2) = Mid(Rng, i)
                Exit For
            End If
        Next i
            Set Rng = Rng.Offset(1)
    Loop Until Rng = ""
    Application.ScreenUpdating = True

HSIEN6001

分享前,首先謝謝 diabo 大解惑,才能繼續這不同的思路

如先前 [券商買賣日報明細] 下載之延伸題:

若下載回來的是htm格式
可以試試這個轉檔xls
小的一直在學習中,拙劣的東西 或 卑微的思路
就僅供大家~~參考!參考!
~別見笑^_^!!

因為上載有1MB限制
故挑選幾家特別的股票代號,以供測試
htm轉xls.rar (81.17 KB)

下載次數: 44

2012-8-9 11:10

HSIEN6001

回復 26# lalalada


無論是xls 或 htm ,格式雖然沒有在相同點
同樣可處理,就是指定給它統計的欄位而已
全部整理統計沒正確看時間捏! (30分?!)
若應用VBA,相信會更快

先前討論位置，留給看倌們自行參考：
http://forum.twbts.com/thread-6451-1-1.html
http://forum.twbts.com/thread-6349-1-1.html

lalalada

回復 24# HSIEN6001

你好~
請問你#24 po的那個(券市商xxx)的資料內容資料內容就是#23的貼圖嗎
所以是根據每天下載下來的交易明細進行整理?
可以說一下是怎麼做的嗎?
如果對每一支股票全部整理的話會耗時很久吧?
我目前只能針對有興趣的股票整理 因為太花時間...所以想請問一下做法