google ¶³ºÝµwºÐ ¸ê®Æ§¨¤U¸ü
- ©«¤l
- 22
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7.0
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-4-6
- ³Ì«áµn¿ý
- 2024-3-31
|
google ¶³ºÝµwºÐ ¸ê®Æ§¨¤U¸ü
¤p§Ì¥Ø«e¨Ï¥Îgoogleªº¶³ºÝµwºÐ
¨Ã¥B±N¼Æ¦ÊÓ¤w«Ø¥ß¦nªºexcel¤W¶Ç¨ì¶³ºÝµwºÐªº¤@ÓA¸ê®Æ§¨
¦P®É±N³oÓ¸ê®Æ§¨¶}±Òºô¸ô¦@¥Î
¥Ø«e¥i¥H¤â°Ê¦Û¤vÂI¿ï¸ê®Æ§¨µM«á¥kÁä·|¸õ¥X¥i¥HÂI¿ï¤U¸üªº¿ï¶µ¡A«ö¤U¸ügoogle·|±N¸Ó¸ê®Æ§¨ÂনzipÀ£ÁYÀɵM«á¤U¸ü
¦ý·Q½Ð°Ý¤@¤U¸Ó¦p¦ó¨Ï¥Îvba¨Ó¦Û°Ê¤U¸ü³oÓ¸ê®Æ§¨
¦]¬°¤p§Ì³sÄò´ú¸Õ¤F¦n´X¦¸¤â°Ê¤U¸ü¡A¤U¸üªººô§}¨C¦¸³£¤£¤@¼Ë@@~~~~~~
¦Ó¤p§Ì»Ýn¨C¤Ñ©T©w®É¶¡¦n´X¦¸±NÀɮפU¸ü«á¸ÑÀ£ÁY§ó·s¹q¸£¬Û¦PÀɮתºexcelÀÉ
¦pªGn¤â°Ê¤U¸ü¥i¯à·|ºÆ±¼
©Ò¥H·Q¸ß°Ý¦³¨S¦³¤j¤j¥i¥H«ü¾É¤@¤U³ogoogleÅܰʺô§}ªºvba¸Ó«ç»ò¼g
·P®¦ |
|
|
|
|
|
|
- ©«¤l
- 22
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7.0
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-4-6
- ³Ì«áµn¿ý
- 2024-3-31
|
¥»©«³Ì«á¥Ñ pideo ©ó 2015-11-4 21:40 ½s¿è
ps.¦pªG¬Ogoogle¶³ºÝÀɮתº³¡¤À¥Ñ©ó¦³©T©wºô¥u©Ò¥H¤p§Ì¦³¼g¤FÓ¥H¤Uªºvba¥i¥H¥¿½T¹B¦æ¡A¦ý³o¤èªk¥u¦³googleÀɮשT©wºô§}³¡¤À¥i¥H³o¼Ë¥Î¡A¦ý¬O¤p§Ì¸ê®Æ§¨¸Ì±¦³¤W¦ÊÓexcelÀÉ@@~~~n¤@Ó¤@Ó±Nºô§}§Ë¥XÀ³¸Ó·|§Ë¨ì¤Ñ¯î¦a¦Ñ
©Ò¥H¤~·Qª½±µ±N¾ãÓ¸ê®Æ§¨¤â°Ê«ö¤@¦¸¤U¸ü´N¸Ñ¨M¡A¦ý¬O»Ýn©T©w®É¶¡ÀWÁcªº¤U¸ü´N§Æ±æ¯à¨Ï¥Îvba¦Û°Ê°µ³o¥ó¨Æ¡A¦ý¸ê®Æ§¨¬OÅܰʺô§}¸Ó¦p¦ó¸Ñ¨M¡A¦]¬°¤£ª¾¹Dgoogle¨C¦¸µo¥X¨Óªººô§}¨ì©³¬OþÓ@@~~~~
Sub ¤U¸ü()
'±qgoogle drive¤U¸üÀÉ®×
Dim myURL As String
Dim WinHttpReq As Object
myURL = "https://docs.google.com/spreadsheets/d/1v4Me4vd9nviQ6nLAm9L7Ax5RVYEZOf-Bw563HZVUiIs/pub?output=xlsx" '¨Ó·½ÀÉ®×
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 ("D:\1000.xlsx")
oStream.Close
End If
End Sub |
|
|
|
|
|
|
- ©«¤l
- 22
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7.0
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-4-6
- ³Ì«áµn¿ý
- 2024-3-31
|
¤p§Ì§ä¨ì¸Ñ¨M¤èªk¤F
google app¦³´£¨Ñ¤@ÓDirect Linkªº¥~±¾
¥i¥Hª½±µ±N¥þ³¡¤W¦ÊÓexcelÀɪººô§}¤@¦¸¥þ³¡ª½±µ¸ÑªR¥X¨Ó
ª½±µ¥þ³¡½Æ»s¨Ï¥Î´N¥i¥H¤F |
|
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- SP1
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-5-21
- ³Ì«áµn¿ý
- 2015-11-14
|
·PÁ¤À¨É¡ã
¤S¾Ç¨ì·sªºªF¦è¤F¡I |
|
|
|
|
|
|