Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÇëÎÊVBÏÂÔØµ½EXCELÎÊÌâ - VB / ¿Ø¼þ

ÎÒÓиö³ÌÐòÊÇÓÃVB±àµÄ,Ö»ÓпÉÖ´ÐгÌÐò1,ûÓÐÔ´´úÂë,ËùÒÔÖ»ÄÜÓÃVBÁíÍâÔÙ×öÒ»¸ö³ÌÐò2,ÏÖÔÚÎÒÏë°ÑÁíÍâµÄ³ÌÐò2×ö³ÉÒ»¸ö°´Å¥,ÎÒÏëʵÏÖµÄÊÇ:
ÔÚ´ò¿ªÔ­ÓгÌÐò1µÄij¸öÒ³ÃæÊ±,Ò»°´Õâ¸ö°´Å¥¾Í¿ÉÒÔ½«´ËÒ³ÃæµÄ±í¸ñ¿Ø¼þÀïµÄÄÚÈݵ¼Èëµ½EXCELÖÐ,
ÇëÎÊ´ó¼ÒÈçºÎʵÏÖ°¡?
Õâ¸öÄѶȱȽϴó£¬Ó¦¸Ã˵ÕâÑù×öЧ¹û²»¼Ñ¡£

ÓÑÇéUp.............



Õâ¸öÄѶȱȽϴó£¬Ó¦¸Ã˵ÕâÑù×öЧ¹û²»¼Ñ
objExcelSheet.Cells(lngRow, lngColumn


Ïà¹ØÎÊ´ð£º

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ