ÈçºÎÓÃVB²Ù×÷Excelת»»ÎªXML¸ñʽ£¨½éÉÜ×ÊÁÏÒ²Óз֣©
¶ÔÓÚEXCELÎļþµÄÄÚÈÝ£¬Ï£Íû°´ÕÕÒ»¶¨¸ñʽת»»ÎªxmlÎļþ£¬EXCELÄÚÈÝÀýÈ磺
Voucher_Id Oper Entry_Id ZhaiYao Acc_Code JieFang DaiFang fName1 fNeiRong1 fName2 fNeiRong2
1 Admin 1 ²âÊÔÕªÒª 540401 1000 ²¿ÃÅ 02005 ÏîÄ¿¹¤³Ì 02005001
1 Admin 2 ²âÊÔÕªÒª 100101 1000
2 Admin2 1 ²âÊÔÕªÒª2 540402 900 ²¿ÃÅ 02005 ÏîÄ¿¹¤³Ì 02005001
2 Admin2 2 ²âÊÔÕªÒª2 100101 900
ת»»ÎªxmlÎļþµÄÄÚÈÝΪ£º
<?xml version="1.0" encoding="gb2312"?>
<interface>
<voucher id="">
<voucher_head>
<Voucher_Id>1 </Voucher_Id>
<Oper>Admin </Oper>
</voucher_head>
<voucher_body>
<entry>
<Entry_id>1 </Entry_id>
<ZhaiYao>²âÊÔÕªÒª </ZhaiYao>
<acc_code>540401 </acc_code>
<jiefang>1000 </jiefang>
<daifang>0 </daifang>
<auxiliary_accounting>
<item name="²¿ÃÅ">02005 </item>
<item name="ÏîÄ¿¹¤³Ì">02005001 </item>
</auxiliary_accounting>
</entry>
<entry>
<Entry_Id>2 </Entry_Id>
<ZhaiYao>²âÊÔÕªÒª </ZhaiYao>
<Acc_Code>100101 </Acc_Code>
<JieFang>0 &
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
´ÓÍøÉÏÕÒÁËÒ»¸ö°æ±¾£¬Ô´´úÂëÈçÏ£º
VB code:
Option Explicit
'Global DefLang As String
Const WebURL As String = "http://translate.google.com/translate_t"
Const SearchString As Strin ......
ÎÒÏëÔÚÊó±êÒÆÖÁÃüÁî°´Å¥ÉÏ£¬µ¯³öÒ»¸öÌáʾ¿ò£¬µ«²»ÖªÈçºÎŪ£¬Çë×ö¸öʾÀý
tooltip
лл£¡ÎÒÊÇÐÂÊÖ£¬ÄÜ˵µÃÏêϸЩÂð£¿×îºÃÓиöÀý×Ó
Command1.ToolTipText="xxx"
ÎÒÔÚcommandÖп´µ½ÕâÑù²»ÄÜʵÏÖ ......