VB ±£´æExcelÎļþÎÊÌâ
±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ÃÔõôһ²½µ½Î»¡«£¡
дµ½csvÎļþÀïÃæ°É
²»ÐУ¬ÒªÇó±£´æµÄ¸ñʽ¾ÍÊÇxls,°ïæÏëÏë°ì·¨°É
ExcelµÄRange¶ÔÏóÓÐÒ»¸öValueÊôÐÔ,¸ÃÊôÐÔÖ¸ÏòÒ»¸öϱêϽçΪ1µÄ¶þάVariantÊý×é,LZ¿ÉÒÀ´Ë¿ìËÙ¶ÁдExcelµÄµ¥Ôª¸ñµÄÖµ.
Ö±½Ó½«Êý×éÖеÄÊý¾Ý»æÖÆÍ¼ÐξͿÉÒÔÁ˰ɣ¿
²»Êǵģ¬ÏÈÊDZ£´æ³öһϵÁеÄÊý¾Ý£¬È»ºó»Í¼ÐÐÊÇÓû§×Ô¼ºµÄÐèÇó
ÏÖÔÚÒª×öµÄ£¬¾ÍÊÇÌæÓû§Ê¡È¥Ëûת»¯Êý¾ÝÀàÐ͵IJÙ×÷
Êý¾ÝÊÇÐèÒªµÄ£¬²»½ö½öÊÇÓÐͼÐΡ«£¡
Ŷ¡«¡«¡«¡«¡«
´´½¨excel¶ÔÏ󣬿ÉÒÔ´ò¿ªÒ»¸öÄ£°åÎļþ È»ºó²Ù×÷¡£createobject("excel.application")£¬Õâ¸öÀïÃæÌṩÁËn¶àÀ࣬»ù±¾ÊÖ¹¤¿ÉÒÔ²Ù×÷µÄ¶¼¿ÉÒÔÓôúÂëʵÏÖ£¬Òª¿´Àà½á¹¹¾ÍÖ±½ÓÔÚexcelÖдò¿ªvba£¬Ëæ±ãн¨¸öºê£¬È»ºóÔÚÄǸö¿áËÆvbµÄide¹¤¾ßÀïÃæ°´f2
Dim XLApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Dim XLWorkSheet As New Excel.Worksheet
Set XLApp = CreateObject("Excel.Application")
Set XLWorkBook = XLApp.Workbooks.Add
Set XLWorkSheet = XLWorkBook.Worksheets(1)
XLApp.Visible = True
For j = 0 To MSFlexGrid1.Cols - 1
If j = 0 Or j = MSFlexGrid1.Cols - 1 Then
MSFlexGrid1.Col = j
For i =
Ïà¹ØÎÊ´ð£º
Õâ¸ö³ÌÐòÊǹ̶¨µÄ£¬±ÈÈçcmd.exe
´ò¿ªCMDºó£¬Êó±êÔÚCMDµÄ±êÌâÀ¸¿ÉÒÔµã»÷ÓÒ¼üºÍ×ó¼ü£¬µ¯³öÏàÓ¦µÄ²Ëµ¥¡£
ÎÒÒª´ïµ½µÄÄ¿µÄÊÇ£ºÎÞÂÛÊÇ×ó»÷»¹ÊÇÓÒ»÷CMDµÄ±êÌâÀ¸¶¼²»Äܵ¯³ö²Ëµ¥¡£
»òÕßÄܳöÏֲ˵¥Ò²ÐУ¬µ«Ö»Äܳö ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
ÔÚÎҵijÌÐòÀ½øÈ롰ɾ³ýÓû§¡±£¬"Ìí¼ÓÓû§"´°Ìå֮ǰ¾ùÏȵ¯³öÒ»¸ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó²ÅÄܽøÈëÏàÓ¦½çÃæ£¬ÈçºÎÉè¼Æ´úÂ룿
¶ÁÊý¾Ý¿âÀïÃæ¹ÜÀíÔ±µÄÃÜÂë
È»ºó¸úÊäÈëµÄÄÚÈݱȽÏ
ºÜ¼òµ¥ ......
Ôõôµã»÷form2Éϵİ´Å¥ ¿ÉÒÔ½áÊøform1ÉÏÕýÔÚ½øÐеÄÑ»·
form1ÀïÃæÌí¼ÓÒ»¸ö±äÁ¿£º
Public bEnd As Boolean
Ñ»·´úÂëÌí¼Ó£º
bEnd = False
Do
...
If ......
ÎÒÒªµ¼Èëµ¼³öÊý¾Ý¿âÎļþ£¬ÔÚµ½´¦µÄʱºòʹÓÃÁí´æÎª¶Ô»°¿ò£¬¾ßÌå´úÂëÊÇÈçºÎʵÏֵģ¿ÎÒÖ±½ÓÓÃcommondialog1.showsaveÖ®ºóµãÁí´æÎªÃ»ÓÐÏìÓ¦£¬ÊDz»ÊÇÒªÌí¼Óʲô´úÂ룿¼±£¡
Áí´æÎªÊ²Ã´¸ñʽµÄÎļþÄãÐèÒª¸æËß´ó¼Ò,дµ½²»Í¬À ......