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

帖子: 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

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

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

13^#

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

回復 11# diabo

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

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

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

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

HSIEN6001

中學生 Rank: 2

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

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

10^#

發表於 2012-8-2 23:52 | 只看該作者

回復 9# diabo

謝謝回覆!
我希望的是下載為.xls 格式或 .csv格式
所以我應該要修改哪裡才OK?!

TOP

diabo

中學生 Rank: 2

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

9^#

發表於 2012-8-2 23:31 | 只看該作者

回復 6# HSIEN6001

你查的目標網址是 HTML ，ADODB.Stream 存檔當然也必須是HTML
將 0050.xls 改為 0050.htm 就可以打開了....

修改 .SaveToFile (path & "0050" & ".htm")

diabo

TOP

HSIEN6001

中學生 Rank: 2

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

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

8^#

發表於 2012-8-2 23:26 | 只看該作者

回復 7# lalalada

那原始碼就是搞不出來~~~~粉殘念!!
拜託您行行好;教一下外行
卻很努力學習的我<----(噁心)

拜託!拜託!~^o^~

TOP

lalalada

中學生 Rank: 2

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

7^#

發表於 2012-8-2 23:16 | 只看該作者

回復 5# HSIEN6001

啊我剛剛才注意到有短消息
然後我沒有權限回= =
然後我看過那個BLOG但是我不是主人XD
我現在得出門等一下回你 ~

TOP

HSIEN6001

中學生 Rank: 2

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

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

6^#

發表於 2012-8-2 23:16 | 只看該作者

接收回應：
responseText：將返回消息作為文本字串
responseBody：將返回消息作為HTML文檔內容
responseXML：將返回消息視為XML文檔，在伺服器回應消息中含有XML資料時使用
responseStream：將返回消息視為Stream物件

爬文很久，還沒法好好理解貫通這些對應
可能是這個才讓開啟出現錯誤

仍愚鈍，找不出要怎麼改
麻煩先進開示！～謝謝！

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]