ÇëÎÊVBÏÂÔØµ½EXCELÎÊÌâ - VB / ¿Ø¼þ
ÎÒÓиö³ÌÐòÊÇÓÃVB±àµÄ,Ö»ÓпÉÖ´ÐгÌÐò1,ûÓÐÔ´´úÂë,ËùÒÔÖ»ÄÜÓÃVBÁíÍâÔÙ×öÒ»¸ö³ÌÐò2,ÏÖÔÚÎÒÏë°ÑÁíÍâµÄ³ÌÐò2×ö³ÉÒ»¸ö°´Å¥,ÎÒÏëʵÏÖµÄÊÇ:
ÔÚ´ò¿ªÔÓгÌÐò1µÄij¸öÒ³ÃæÊ±,Ò»°´Õâ¸ö°´Å¥¾Í¿ÉÒÔ½«´ËÒ³ÃæµÄ±í¸ñ¿Ø¼þÀïµÄÄÚÈݵ¼Èëµ½EXCELÖÐ,
ÇëÎÊ´ó¼ÒÈçºÎʵÏÖ°¡?
Õâ¸öÄѶȱȽϴó£¬Ó¦¸Ã˵ÕâÑù×öЧ¹û²»¼Ñ¡£
ÓÑÇéUp.............
Õâ¸öÄѶȱȽϴó£¬Ó¦¸Ã˵ÕâÑù×öЧ¹û²»¼Ñ
objExcelSheet.Cells(lngRow, lngColumn
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......