diabo

回復 10# HSIEN6001

土方法，下載後用 Excel 開啟  HTM 另存新檔 XLS

1. 
   
2. Application.DisplayAlerts = False
   
3. Workbooks.Open Filename:="D:\0050.htm"
   
4. ActiveWorkbook.SaveAs Filename:="D:\0050.xls", FileFormat:=xlNormal
   
5. ActiveWorkbook.Close True
   
6. Application.DisplayAlerts = True

複製代碼

lalalada

回復 8# HSIEN6001

我也覺得你滿認真的XD
所以會很願意一起交流:p
你有EMAIL或其他聯絡方式嗎?
這樣比較方便~也可以傳檔案(對論壇來說太大了...)
因為我權限好像很低
一小時只能回三篇而且不能傳短消息...(所以到現在才回)
然後我也是新手  之前也沒有其他程式背景
VBA寫到現在不滿3個禮拜喔^.<

HSIEN6001

回復 11# diabo


    大大~真的可以
但是可以放在迴圈內做完?!

因為看不懂 Application.DisplayAlerts = False 查找了一會兒資料
希望於下載的迴圈直接完成,不用再次Workbooks.Open
及  ActiveWorkbook.SaveAs
這個地方,我也想繼續Try

c_c_lai

回復 13# HSIEN6001
試試看！
TEST.rar (8.55 KB)

下載次數: 38

2012-8-3 09:01

HSIEN6001

回復 14# c_c_lai

    謝謝!
這個    Kill "D:\0050.htm"~~我知道

我只是想.....如果可能
應該直接抓回.xls 或者 .csv
盡量減去不必要的程序

近來心得：
學習中，要不斷修正自己的程序中的 [包袱]
以前---->可以跑,我就滿足了。
現---->哇ｅｏ４!　我給牠那麼累贅;還因為可以下載;自鳴得意些啥呀!
.........對不起自己ing

^^
如果學習中,那些看不過去的語法
傷了許多大大的眼睛
請海涵 & 不吝嗇--->用力糾正我
謝謝!

lalalada

回復 15# HSIEN6001

原PO謙虛了~
看語法會發現是學習嚴謹的人(我都亂寫....QQ)
根據之前實驗結果,SaveAs那邊是可以指定直接存成csv檔的
然後再用open打開尋找原始碼

lalalada

回復 15# HSIEN6001

喔對了
我有寄信到你的信箱 請參考
想問一下下載下來之後的檔案有多大呢?
是否有辦法能縮減檔案大小....

HSIEN6001

回復 16# lalalada

那個方式改.csv檔   打開你會發現資料內容不對喔!

HSIEN6001

回復 11# diabo


    感謝大大分享這塊
測試結果,還是獨立出來整理--->真的比較好
才不用掛載那麼久

謝謝!

devidlin

回復 14# c_c_lai


    你好，為何打開TEST檔案後都沒有資料。