ÇëÎÊVBÏÂÔØµ½EXCELÎÊÌâ - VB / ¿Ø¼þ
ÎÒÓиö³ÌÐòÊÇÓÃVB±àµÄ,Ö»ÓпÉÖ´ÐгÌÐò1,ûÓÐÔ´´úÂë,ËùÒÔÖ»ÄÜÓÃVBÁíÍâÔÙ×öÒ»¸ö³ÌÐò2,ÏÖÔÚÎÒÏë°ÑÁíÍâµÄ³ÌÐò2×ö³ÉÒ»¸ö°´Å¥,ÎÒÏëʵÏÖµÄÊÇ:
ÔÚ´ò¿ªÔÓгÌÐò1µÄij¸öÒ³ÃæÊ±,Ò»°´Õâ¸ö°´Å¥¾Í¿ÉÒÔ½«´ËÒ³ÃæµÄ±í¸ñ¿Ø¼þÀïµÄÄÚÈݵ¼Èëµ½EXCELÖÐ,
ÇëÎÊ´ó¼ÒÈçºÎʵÏÖ°¡?
Õâ¸öÄѶȱȽϴó£¬Ó¦¸Ã˵ÕâÑù×öЧ¹û²»¼Ñ¡£
ÓÑÇéUp.............
Õâ¸öÄѶȱȽϴó£¬Ó¦¸Ã˵ÕâÑù×öЧ¹û²»¼Ñ
objExcelSheet.Cells(lngRow, lngColumn
Ïà¹ØÎÊ´ð£º
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Îļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......