返回列表 上一主題 發帖

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

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
1# 跳轉到 »
發表於 2012-8-2 23:31 | 顯示全部帖子
回復 6# HSIEN6001

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

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

TOP

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
2#
發表於 2012-8-3 00:10 | 顯示全部帖子
回復 10# HSIEN6001

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

  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
複製代碼
diabo

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題