¥xÆW³Ì¤jµ{¦¡³]­pªÀ¸sºô¯¸
½u¤W¤H¼Æ
1131
 
·|­ûÁ`¼Æ¡G245228
°Q½×¥DÃD¡G189098
Åwªï±z§K¶O¥[¤J·|­û
°Q½×°Ï¦Cªí >> office VBA / WinOS >> Excel VBA °õ¦æ¶¥¬q¿ù»~
[]  
[§Ú­n¦^ÂÐ]
1
¦^À³¥DÃD ¥[¤J§ÚªºÃöª`¸ÜÃD ÀËÁ|¦¹½g°Q½× ±N´£°ÝªÌ¥[¤J­Ó¤H¶Â¦W³æ
Excel VBA °õ¦æ¶¥¬q¿ù»~
»ù­È : 20 QP  ÂI¾\¼Æ:275 ¦^À³¼Æ:6

¼Ó¥D

Noah Levitt
ªù¥~º~
0 1
10 2
µo°e¯¸¤º«H

®½ÃØ VP µ¹ Noah Levitt
½Ð°Ý§Úªº¹q¸£¨Ï¥ÎOffice2016¡A
¦b¨Ï¥Î¤@­Ó¹L¥hª©¥»½s¿èªºExcelÀÉ¡A¦bAuto_Open´N¥X²{°õ¦æ¶¥¬q¿ù»~32809¡A­Y¥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¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
1.ùØ­±¦³«Ü¦h«ö¶s­n«ö¨º¤@­Ó
2.§Ú«öµn¤J«á³Q§iª¾ ¨S¦³->YuantaOrd1
¥»½g¤å³¹¦^ÂЩó2019-08-28 08:31
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
2¼Ó
§@ªÌ¦^À³

Noah Levitt
®½ÃØ VP µ¹ Noah Levitt ÀËÁ|¦¹¦^À³
YuantaOrd1 ¬O­nµù¥UDLL«á¤~¯à¨Ï¥Îªº¸Ì­±¨ç¦¡¡A»Ý­n¨ì¤¸x´Á³f©xºô¤U¸ühttp://easywin.yuantafutures.com.tw/api/download.html
¤£¹L¡A­nÅý¤j¤j¥h¸Õ¨º­Ó´N¤Ó³Â·Ð¤F
§Ú¥D­n¬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
®½ÃØ VP µ¹ 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¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
¤À¤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¼Ó
¦^À³

P³¯
ÀËÁ|¦¹¦^À³
¥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¼Ó
¦^À³

ù§B´µ
ÀËÁ|¦¹¦^À³
±q¼Ó¥Dªº´y­z¡A­Y¬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¢¯ª©°õ¦æ¬Ý¬Ý¡A­Y¬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ªº¶Ü¡H­Y¬Oªº¸Ü¡A­«·s¤U¸ü¬Ý¬Ý¡A¦³®É­Ô¤U¸üªºÀÉ®×·|¦]ºô¸ô¶Ç¿é°ÝÃD¡A³y¦¨¤U¸üªºÀɮצ³°ÝÃD¡A­YÀɮרS¦³°ÝÃD¡A­«·s¤U¸ü¤@¯ë³£¥i¥H¸Ñ¨M¡C
¥»½g¤å³¹¦^ÂЩó2019-10-17 03:02
== ñ¦WÀÉ ==
--¥¼µn¤Jªº·|­ûµLªk¬d¬Ý¹ï¤èñ¦WÀÉ--
   
1

¦^ÂÐ
¦p­n¦^À³,½Ð¥ýµn¤J.