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 =
Ïà¹ØÎÊ´ð£º
´úÂëÈçÏ£º Private Sub MSFlexGrid1_SelChange() If MSFlexGrid1.Rows = 1 Then Exit Sub If MSFlexGrid1.Row = 0 Then Exit Sub grid_row = MSFlexGrid1.Row ......
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺 Public hhook Private Sub Command1_Click() hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID) End Sub ÒÔϵ ......
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£) È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË ½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ Õâ¸öÒªÔõà ......
ÎÒÔÚÎÒµçÄÔ(ÆÁÄ»±È½Ï´ó)Éè¼ÆÒ»¸ö½çÃæ,µ«ÊÇÔÚÆÁÄ»±È½ÏСµÄµçÄÔÉϲâÊÔʱ,·¢ÏÖ°´Å¥²»»áËæ×ÅÆÁÄ»´óС¶ø×Ô¶¯±ä´óС. ÒªÔõôÉè? Me.Height = Screen.Height * 0.6 Me.Width = Screen.Width * 0.6 VB cod ......
ÓÃvb×öºÃµÄÈí¼þ£¬ÏëÒª¼ÓÈë×Ô¶¯Òþ²ØµÄ¹¦ÄÜ£¬ÔÚÄÇÌí¼Ó°¡£¬»¹ÓÐÒþ²ØµÄ´úÂëÄÇÓа¡ ½èÓÃһϠлÁË ·½·¨1 Private Sub Form_Load() Me.Height = 1 * Screen.TwipsPerPixelY Me ......