- ©«¤l
- 218
- ¥DÃD
- 73
- ºëµØ
- 0
- ¿n¤À
- 290
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-5-19
- ³Ì«áµn¿ý
- 2022-11-29
|
[µo°Ý] oStream.SaveToFile ()ÀɦW°ÝÃD
½Ð°ÝoStream.SaveToFile ()¬A©·¸Ì±n¥´¤°»ò¡A¤~¯àÅý¦sÀɪºÀɦWµ¥©ó¤U¸üÀɮתºìÀɦW¤@¼Ò¤@¼Ë
¨Ò¦p:¤U¸üªºÀɮצWºÙ¡u123.xls¡v¡A¦sÀɪºÀɦW´N¦P¤U¸üÀɦW¡u123.xls¡v
¤U¸üªºÀɮצWºÙ¡uABC.pptx¡v¡A¦sÀɪºÀɦW´N¦P¤U¸üÀɦW¡uABC.pptx¡v
¥H¤U¬°µ{¦¡½X
---------------------------------------------------------------------------------------------
Sub ¤U¸üÀÉ®×()
Dim myURL As String
myURL = "http://w3.hdut.edu.tw/ezcatfiles/a001/img/img/507/EDOC_20171120.pptx"
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send
myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody
oStream.SaveToFile (ActiveWorkbook.Path & "\" & ?)
oStream.Close
End If
End Sub
--------------------------------------------------------------------------------------------- |
|