返回列表 上一主題 發帖

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

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

本帖最後由 HSIEN6001 於 2012-8-2 22:27 編輯

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

TEST.rar (5.02 KB)

本帖最後由 HSIEN6001 於 2012-8-10 09:30 編輯

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

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

~感恩~

TOP

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

TOP

回復 31# lalalada


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

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

^皿^

TOP

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

TOP

回復 29# HSIEN6001

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

TOP

回復 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

TOP

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

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

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

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

TOP

本帖最後由 HSIEN6001 於 2012-8-5 17:10 編輯

回復 26# lalalada


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

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

TOP

回復 24# HSIEN6001

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

TOP

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