- ©«¤l
- 15
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 71
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- offfice2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-8-6
- ³Ì«áµn¿ý
- 2024-7-13
|
[µo°Ý] VBAµ{¦¡¦b·s¾÷¤W±¤£¯à¹B¦æªº°ÝÃD
¨â¦~«e¼g¦nªºªº¤@ÓVBAµ{¦¡¡Aùر¦³¥H¤Uªº»y¥y
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.navigate ("http¡K¡K
¦b32bitªºwin7, office 2010¥H¤Îª©ªº¶Æ¹CÂsÄý¾¹¤W¹B¦æºZ¶¶¡C¦ý¬O²{¦b·sªº»O¦¡¾÷¦w¸Ë¤Fwin10, office 2016¥H¤Î³Ì·sª©ªº¶Æ¹CÂsÄý¾¹¡Cµo²{¦p±NIE³]©w¬°Àq»{ÂsÄý¾¹¡A³oÓµ{¦¡ÁÙ¯à¹B¦æ¡A¦ý«D±`½wºC¡C¦pªG¤´¥Î¶Æ¹CÂsÄý¾¹§@爲Àq»{ÂsÄý¾¹¡A«h§¹¥þ¤£¯à¹B¦æ¡A¨C¹L¤@¬q®É¶¡¼u¥X¡§microsoft excel ¥¿¦bµ¥«Ý¨ä¥LÀ³¥Îµ{¦¡§¹¦¨ole°Ê§@¡¨Äµ§iÄæ¡A«ö¡§½T©w¡¨¦A¼u¥X´X¦¸¤W±ªºÄµ§iÄæ«á¥X²{¡¨°õ¦æ¿ù»~¶¥¬q429,ActiveX¤¸¥óµLªk²£¥Íª«¥ó¡¨ªº¿ù»~®Ø¡A«ö¡§°»¿ù¡¨·|±N¡§Set IE = CreateObject("InternetExplorer.Application")¡¨
³o¤@¦æ¥N½Xhighlight¡CÂsÄý¾¹¤]§¹¥þ¤£·|¥X²{´Á«Ýªº³Q¥´¶}ªººô¶¡C¦Û¤vgoogle¤F¦n¤[¡A«ö·Ó©Ò±Ðªº¤èªkÁÙ¬O¸Ñ¨M¤£¤F¡A¦³½Ð°ª¤âÌ«üÂI°g¬z¡I¦hÁ |
-
-
1.png
(6.15 KB)
-
-
2.png
(5.36 KB)
|