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

vbµ÷ÓÃexcel·½·¨´óÈ«

ÔÚVBÖÐÒªÏëµ÷ÓÃExcel£¬ÐèÒª´ò¿ªVB±à³Ì»·¾³“¹¤³Ì”²Ëµ¥ÖеēÒýÓÔÏîÄ¿£¬²¢Ñ¡È¡ÏîÄ¿ÖеēMicrosoft Excel 11.0 object library”Ïî¡£ÓÉÓÚÄãµÄExcel°æ±¾²»Í¬£¬ËùÒÔÕâ¸öÑ¡ÏîµÄ°æ±¾ºÅÒ²ÊDz»Í¬µÄ¡£
    ÒòΪEXCELÊÇÒÔ²ã´Î½á¹¹×éÖ¯¶ÔÏóµÄ£¬Æä¶ÔÏóÄ£ÐÍÖк¬ÓÐÐí¶à²»Í¬µÄ¶ÔÏóÔªËØ¡£
    µÚÒ»²ã£ºApplication¶ÔÏ󣬼´Excel±¾Éí£»
    µÚ¶þ²ã£ºworkbooks¶ÔÏ󼯣¬Ö¸ExcelµÄ¹¤×÷²¾Îļþ£»
    µÚÈý²ã£ºworksheets¶ÔÏ󼯣¬±íʾµÄÊÇExcelµÄÒ»¸ö¹¤×÷±í£»
    µÚËIJ㣺CellsºÍRange¶ÔÏó£¬Ö¸ÏòExcel¹¤×÷±íÖеĵ¥Ôª¸ñ¡£
    н¨Á¢Ò»¸öVBµÄ¹¤³Ì£¬ÏÈ·ÅÒ»¸öbutton£¬Ãû³ÆÎªExcel_Out¡£Ïȶ¨ÒåºÃ¸÷²ã£º
Dim xlapp As Excel.Application 'Excel¶ÔÏó
Dim xlbook As Excel.Workbook '¹¤×÷²¾
Dim xlsheet As Excel.Worksheet '¹¤×÷±í
    ÎÒÃÇ´òËã×öµÄÊÇ£º´ò¿ª/н¨Ò»¸öexcel£¬ÔÚÆäÖжÔij¹¤×÷±íµÄһЩµ¥Ôª¸ñÐÞ¸ÄÆäÖµ£¬È»ºóÁí´æÎªtest.xlsÎļþ¡£
Private Sub Excel_Out_Click()
Dim i, j As Integer
Set xlapp = CreateObject("Excel.Application") '´´½¨EXCEL¶ÔÏó
  'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '´ò¿ªÒѾ­´æÔÚµÄtest.xls¹¤¼þ²¾Îļþ
Set xlbook = xlapp.Workbooks.Add 'н¨EXCEL¹¤¼þ²¾Îļþ
'xlbook.RunAutoMacros (xlAutoOpen) 'ÔËÐÐEXCELÆô¶¯ºê
'xlbook.RunAutoMacros (xlAutoClose) 'ÔËÐÐEXCEL¹Ø±Õºê
xlapp.Visible = True 'ÉèÖÃEXCEL¶ÔÏó¿É¼û£¨»ò²»¿É¼û£©
Set xlsheet = xlbook.Worksheets(1) 'ÉèÖû¹¤×÷±í''
                              ''~~~µ±Ç°¹¤×÷²¾µÄµÚÒ»Ò³,ÕâÀïÒ²¿ÉÒÔ»»³É“±íÃû”
'ÏÂÃæ¾ÍÊǼòµ¥µÄÔÚһЩµ¥Ôª¸ñÄÚдÈëÊý×Ö
For i = 7 To 15
   For j = 1 To 10
     xlsheet.Cells(i, j) = j   'µ±Ç°¹¤×÷²¾µÚÒ»Ò³µÄµÚIÐеÚJÁÐ
   Next j
Next i
With xlsheet      'ÉèÖñ߿òΪÊÇʵÏß
    .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
End With
'ÒýÓõ±Ç°¹¤×÷²¾µÄµÚ¶þÒ³
Set xlsheet = xlapp.Applicat


Ïà¹ØÎĵµ£º

VBÖд°ÌåÄ£¿é¡¢±ê׼ģ¿é¡¢ÀàÄ£¿éµÄÇø±ð

VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......

VB¼Ó½âÃÜ´úÂë

 Function crypt(Action As String, Key As String, Src As String) As String
'Action
'  E encrypts, D decrypts,
'Key is a unique string needed to en/decrypt (either
'  hardcode or setup something for the user to enter.
'Src is the string to be en/decrypted.
On Error GoTo errHandl ......

vb¿ìËÙ·ÃÎÊ×¢²á±íµÄ·½·¨

VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Reg Demo"
ClientHeight = 6570
ClientLeft = 45
ClientTop = 435
ClientWidth = 7695
LinkTopic = "Form1"
MaxButton = 0 'False
Min ......

ÈçºÎʹÓÃVBÖÆ×÷OCX¿Ø¼þ

 Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØÎ»,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷¡£Í¬Ê±OCX¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ²Ø³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµØÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓã¬Í¬Ê±»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!ÏÂÃæÁгöÖÆ ......

Ê®Ììѧ»áASP.net֮ʵսϵÁУ¨C#ºÍVb.netË«°æ±¾£©

Ê®Ììѧ»áASP.net֮ʵսϵÁУ¨C#ºÍVb.netË«°æ±¾£©
µÚÒ»Ìì
  ÎÒÈÏΪASP.NET±ÈASPÄѺܶ࣬ϣÍû´ó¼Ò×öºÃ×¼±¸¡£ÄÑÄÑÔÚʵÏÖͬһ¸öЧ¹ûÓкܶ෽·¨£¬´ó¼Ò»òÐí»áÒÉ»ó¡£Ê®Ììѧ»áϵÁн̳̻áÇåÎúµÄд³ö¸÷ÖÖ·½·¨£¬Èôó¼ÒÄÜÉÙÒ»µã¿²¿À¡£ÔÚASPÀïÃæ£¬´ó¼Ò¼¸ºõ¶¼ÊÇʹÓÃVB£¬Êý¾Ý¿âÂҲÎÞ·ÇÊÇSQLºÍACCESS¡£ÔÚASP.NETÀïÃæ£¬Êý¾Ý¿â»¹ÊÇÕ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ