- ©«¤l
- 219
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 243
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-4-18
- ³Ì«áµn¿ý
- 2022-2-7
|
¦^´_ 1# HSIEN6001
¦]¬°¤Óµæªº°ÝÃD,¨S¤Hn¦^µª§Ú¶Ü?!
§ä¨ì³oÓ
http://www.excelpx.com/home/show.aspx?id=8740&cid=15
°Ñ¾\À³¥Î©ó¥Ü¨Ò¯S©Ê
¦pªG¸T¥Î QueryTable ª«¥óªº Web ¬d¸ß«©w¦V¥\¯à¡A«h¸ÓȬ° True¡C¹w³]Ȭ° False¡CBoolean Ãþ«¬¡A¥iŪ¼g¡C
expression.WebDisableRedirections
expression ¥²»Ý¡C¸Ó¹Bºâ¦¡ªð¦^¡§À³¥Î©ó¡¨¦Cªí¤¤ªºª«¥ó¤§¤@¡C
¥Ü¨Ò
¦b¥»¥Ü¨Ò¤¤¡AMicrosoft Excel ½T©w¤u§@襤²Ä¤@±i¤u§@ªíªº Web ¬d¸ß«©w¦Vªº³]¸m¡C¥»¥Ü¨Ò°²©w QueryTable ª«¥ó¦ì©ó²Ä¤@±i¤u§@ªí¤W¡A§_«h±N¥X²{¹B¦æ¿ù»~¡C
Sub CheckWebQuerySetting()
Dim wksSheet As Worksheet
Set wksSheet = Application.ActiveSheet
MsgBox wksSheet.QueryTables(1).WebDisableRedirections
End Sub
========================
©|¥¼²z¸Ñ,ÁÙ¦b°Ñ®©¤¤¡C¡C¡CO__Q¡C¡C¡C¡C |
|