![]() ![]() ![]() ![]() |
|||||
|
|||||
¼Ó¥D Noah Levitt ![]()
![]() ![]() |
¦b¨Ï¥Î¤@Ó¹L¥hª©¥»½s¿èªºExcelÀÉ¡A¦bAuto_Open´N¥X²{°õ¦æ¶¥¬q¿ù»~32809¡AY¥t¦s¬°xlsmÀÉ«h¥X²{°õ¦æ¶¥¬q¿ù»~57121 (1) runtime error 32809 À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~ (2) runtime error 57121 À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~ ª¦¤å¸Õ¹L¤£¤Ö¸Ñ¨M¤è®×ÁÙ¬OµLªk¸Ñ¨M¡A¥]§t¤U¸ü§ó·sÀÉ DLL¤ÎOCX«·s¦bsyswow64/system32µù¥U¡A½T»{¤Þ¥Î¶µ¥Ø¨S¦³¿òº| ¥Ø«e¨Ï¥Î¹L¨â¥xOffice2016ªº¹q¸£³£³o¼Ë¡A¥Î¥t¤@¥xOffice2007ªº«h·|»¡ÀÉ®×·´·l¤w×´_¡AµM«áVBªºCode¥þ¨S¤F¡C ·Pı¬O¸ò±±¨î¶µ¬ÛÃöªº°ÝÃD¡A¦ýÀ³¸Ó¬O§Ú¹q¸£³]©w¿òº|¤F¤°»ò¡A¥i¥H½Ð¯qª©¤W¦U¦ì¤j¯«¶Ü? ·P®¦ Àɮ׳sµ²¦p¤U: http://easywin.yuantafutures.com.tw/download/%E4%BA%A4%E6%98%93APIExcel%E7%AF%84%E4%BE%8B.zip
·j´M¬ÛÃöTagsªº¤å³¹¡G
[ VBA ] , [ ±±¨î¶µ ] , [ °õ¦æ¶¥¬q¿ù»~ ] , [ 32809 ] , [ 57121 ] ,
¥»½g¤å³¹µoªí©ó2019-08-27 22:34 |
§O§Ñ®½VP·PÁÂÀ°§U§Aªº¤H | ·s¤â·|ûÁ@¤@Á@ |
1¼Ó |
1.ùر¦³«Ü¦h«ö¶sn«ö¨º¤@Ó
2.§Ú«öµn¤J«á³Q§iª¾ ¨S¦³->YuantaOrd1
¥»½g¤å³¹¦^ÂЩó2019-08-28 08:31
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
2¼Ó
§@ªÌ¦^À³
Noah Levitt ![]() ![]() |
YuantaOrd1 ¬Onµù¥UDLL«á¤~¯à¨Ï¥Îªº¸Ì±¨ç¦¡¡A»Ýn¨ì¤¸x´Á³f©xºô¤U¸ühttp://easywin.yuantafutures.com.tw/api/download.html
¤£¹L¡AnÅý¤j¤j¥h¸Õ¨ºÓ´N¤Ó³Â·Ð¤F §Ú¥Dn¬O·Q°Ý: ¦b«öµn¤J«ö¶s´Nµo¥Í¿ù»~¡A´N¬OThisWorkBook¸Ì±Private Sub Workbook_Open() ³v¦æ°»ªº¸Ü²Ä¤@¦æ´N32809¤F ¤j¤j¥i¥H¶i¦æ¨ì«öµn¤Jªº¨BÆJ¡A¬O¤£¬O¥Nªí±zWorkbook_Open¨ºÃä¨S¦³runtime error©O? Y¬O¨S¿ùªº¸Ü¡A½Ð°Ý¬O¤£¬O§Úªº±±¨î¶µ©Î¤Þ¥Î ³¡¤À¥X¤F¤°»ò°ÝÃD¡A·PÁ¤j¤j¡C P.S. Excel¤w¥ÎºÞ²zªÌÅv°õ¦æ¡A¦w¥þ©Ê½Õ¨ì³Ì§C¡A±Ò¥Î¥þ³¡¥¨¶°»P±±¨î¶µ
¥»½g¤å³¹¦^ÂЩó2019-08-28 11:31
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
3¼Ó
§@ªÌ¦^À³
Noah Levitt ![]() ![]() |
¼È®É¸Ñ¨M runtime error 32809»P57121¡A¬O±qÀ£ÁYÀÉ¥´¶}´N§â¤Þ¥Î³]¦n¦A¥t¦s¡A¨ä¹ê¤]¤£ª¾¹D¬°¤°»ò¡A»~¥´»~¼²
¦ý«áÄò¤S¦³·s°ÝÃD¬O¡Aµn¤J«á¥X²{runtime error 424 ¦p¤U2019/8/28 ¤U¤È 04:57:41¡G424:¦¹³B»Ýnª«¥ó¡A¸Ó¬qµ{¦¡½X¦p¤U: ¿ù»~¥X²{¦bresult=YuantaOrd³o¦æ¡A½Ð°Ý¦pªGÂsÄýª«¥ó§äªº¨ìYuantaOrd ¥H¤Î¨ä¦¨ûªº»¡©ú¡A¬O¤£¬O´N¥Nªí¦³¤Þ¥Î¦¨¥\ ¬°¤°»ò¤S·|¥X²{424¦¹³B»Ýnª«¥ó©O? ·PÁ¦U¦ì¤j¤j Private Sub LogonBt_Click() Dim result As Long On Error GoTo ErrHandler edErrHandler.Text = "" WaitFlag = True checkio = False totalcancelflag = False result = YuantaOrd.SetFutOrdConnection((LogonID.Text), (LogonPass.Text), (ConnIP.Text), (ConnPort.Text)) ConnResult.Text = Now & "¡G" & CStr(result) ErrHandler: If Err.Number <> 0 Then edErrHandler.Text = Now & "¡G" & CStr(Err.Number) & ":" & Err.Description End If End Sub
¥»½g¤å³¹¦^ÂЩó2019-08-28 17:02
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
4¼Ó |
¤À¤GÓª¬ªp¡G
1.¦bÀ£ÁYÀɤ¤ª½±µ°õ¦æªº¸Ü ¬O¥i¥H¨ì YuantaOrd1 ¨º¥y¡A¦³¨S¦³¸g¹L BookWork_open §Ú´N¤£ª¾¹D¤F¡C 2.n¦sÀɳQ§iª¾ª©¥»°ÝÃD¡A¬Y¨Ç actx ¤£·|¦sÀÉ¡A¦sÀÉ«á¡C¦A°õ¦æ´N¥X²{ 32809ªº°ÝÃD¡C
¥»½g¤å³¹¦^ÂЩó2019-08-28 17:44
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
5¼Ó |
¥t¤@Ó¨S¦³ª«¥óªº°ÝÃD
((LogonID.Text), (LogonPass.Text), (ConnIP.Text), (ConnPort.Text)) ¬O«ü Logonid.TexT LogonPass.Text ... µ¥µ¥ªº¨ä¤¤¤§¤@§ä¤£¨ì
¥»½g¤å³¹¦^ÂЩó2019-08-28 17:45
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
6¼Ó |
±q¼Ó¥Dªº´yz¡AY¬OOffice 2007ª©¶}±Ò®É¡A¸õ¥X°T®§«ü¥X"ÀÉ®×·´·l¤w×´_"¡A¦ý¦bOffice 2016ª©¥X²{"µ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~"°T®§¡C
¦³¨âºØ¥i¯à¡G 1. ÀÉ®×½T¹ê毁·l¡A¦ý×´_®É¨Ã¤£§¹¾ã¡A¥H¦Ü©óVBAµ{¦¡½X¥þ¨S¤F¡C 2. Àɮת©¥»¤Ó¦Ñ¡AOffice 2016µLªk¬Û®e¡C¡]¦]¬°2007ª©ªºÀÉ®×»P2010¦~ª©¤§«áªºÀɮ׮榡¡A¨Ã¨Ã¤£¤@¼Ë¡C¡^ Y¬O²Ä¤@ºØª¬ªp¡A°£«D檈¥D¦³¿ìªk¨ú±o즳ªºµ{¦¡½X¶K¦^¥h,©Î¬O¼Ó¥D¥»¨¦³¯à¤O«·s¼¶¼gµ{¦¡½X,§_«h¬OµL¸Ñªº¡A¦]¬°n±Ï¦^¨Óªº¥i¯à©Êµ¥©ó¢¯¡C Y¬O²Ä¤GºØª¬ªp¡A¼Ó¥D¥i¥H¸Õ¸Õ§ï¥Î»POffice 2007¦~¥N¬Û®t¸û¤pªºª©¥»¡A¦pOffice 201¢¯ª©°õ¦æ¬Ý¬Ý¡AY¬O»POffice 2016ªºª¬ªp¬Û¦P¡A¦P¼Ë¬OµL¸Ñ¡C¤Ï¤§Y¥i¥H¥¿±`¶}±Ò¡A¥Bµ{¦¡½X¤]¦b¡A¨º´N¥ý¥t¦s¤@¥÷Office 201¢¯ª©ªºÀɮסC¡]Office 201¢¯ª©¥H«áªºÀɮ׮榡¬O¤@¼Ëªº¡^ PS. Ó¤H±ÀÂ_²Ä¤@ºØª¬ªpªº¥i¯à©Ê¸û°ª¡A¼Ó¥DªºÀɮ׬O¤U¸ü¨ú±oªº¶Ü¡HY¬Oªº¸Ü¡A«·s¤U¸ü¬Ý¬Ý¡A¦³®ÉÔ¤U¸üªºÀÉ®×·|¦]ºô¸ô¶Ç¿é°ÝÃD¡A³y¦¨¤U¸üªºÀɮצ³°ÝÃD¡AYÀɮרS¦³°ÝÃD¡A«·s¤U¸ü¤@¯ë³£¥i¥H¸Ñ¨M¡C
¥»½g¤å³¹¦^ÂЩó2019-10-17 03:02
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ-- |
¦^ÂÐ |
¦pn¦^À³,½Ð¥ýµn¤J. |