可以下載,讀取有問題 - Excel程式區

diabo

中學生 Rank: 2

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

11^# 跳轉到 »

發表於 2012-8-3 00:10 | 只看該作者

回復 10# HSIEN6001

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

Application.DisplayAlerts = False
Workbooks.Open Filename:="D:\0050.htm"
ActiveWorkbook.SaveAs Filename:="D:\0050.xls", FileFormat:=xlNormal
ActiveWorkbook.Close True
Application.DisplayAlerts = True

複製代碼

diabo

TOP

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

12^#

發表於 2012-8-3 00:57 | 只看該作者

回復 8# HSIEN6001

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

TOP

HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

13^#

發表於 2012-8-3 08:22 | 只看該作者

回復 11# diabo

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

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

14^#

發表於 2012-8-3 09:01 | 只看該作者

回復 13# HSIEN6001
試試看！

TEST.rar (8.55 KB)

TOP

HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

15^#

發表於 2012-8-3 09:42 | 只看該作者

回復 14# c_c_lai

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

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

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

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

TOP

lalalada