ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBAµ{¦¡¦b·s¾÷¤W­±¤£¯à¹B¦æªº°ÝÃD

[µ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)

1.png

2.png (5.36 KB)

2.png

Win10 µL½×¬O 32 ©Î¬O 64 ¦ì¤¸¤U¡A°õ¦æ Office 2010 ¡A¹B§@§¡ OK¡C

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD