(不定期更新)使用VBA解決 excel web 查詢無法匯入、匯入太慢的股市資料

snare wrote:
(編輯中… 編輯中…...(恕刪)

bioleon69 wrote:
還有什麼getelementbyid
getelementbytagname的
這邊是有範例all.tags("table")...(恕刪)

snare wrote:
範例網站：增加臺灣證...(恕刪)

bioleon69 wrote:
這次改版很多頁面都有html/csv下載 兩種
最近應該不少人都在code
...(恕刪)
...(恕刪)
應該說,您自己會使用哪一種?...(恕刪)

snare wrote:
如果您有注意看的話...(恕刪)

snare wrote:
如果您有注意看的話...(恕刪)

yuehmao wrote:
這次又學到一個新的用法
Sheets("sheet1").Columns("A:A").TextToColumns DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Comma:=True
...(恕刪)

Sub Macro1()

        Columns("A:A").Select

        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _

        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _

        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _

        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:= _

        True

End Sub

yuehmao wrote:
這次所採用的這個csv文件的抓取方式,雖然很快,
但似乎在貼上儲存格時會自然的讓 欄寬 和 列高 變得有點太大,
最後,還是要做事後美化處理...
...(恕刪)

bioleon69 wrote:
INPUTBOX的方法正常
因為我新增一個表單,一個工作表...(恕刪)