Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Óï·¨¹æ·¶


Ò»¡£Êý¾ÝÀàÐÍ
 Byte 1
×Ö½Ú ÎÞ·ûºÅ
 Interger  2
×Ö½Ú
 Long  4
×Ö½Ú
 Float 4
×Ö½Ú
 Double 8
×Ö½Ú
 String
 Date
 Boolean
 Currency
 Variant
2.
±ä³¤×Ö·û´®ºÍ¶¨³¤×Ö·û
 
ϵͳĬÈϳõʼֵΪ¿Õ×Ö·û´®;
 
±ä³¤×Ö·û´®£ºdi ......

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ÖÆ×÷OCX¿Ø¼þ

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

vb Ä£ÄâÊó±ê°´¼ü

 °ÑÊó±êÒÆµ½ÆÁĻָ¶¨Î»Öà È磨111.111£© µ¥»÷Ò»ÏÂ
ÔÙÒÆµ½ÆÁÄ»ÁíÒ»Ö¸¶¨Î»ÖÃÖ¸¶¨Î»Öà È磨222.222£©µ¥»÷Ò»ÏÂ
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPo ......

¹ØÓÚVBµÄListBox¿Ø¼þÑ¡¶¨ÏîµÄ»ñÈ¡

 ½ñÌìÔÚ×öVBÏîÄ¿µÄʱºò£¬Ê¹ÓÃÁËListBox¿Ø¼þÀ´»ñȡһЩÁбíÏÓÃÁ˲ŷ¢ÏÖûÓÐListViewºÃÓã¬ListViewÓÐItems£¨SelectItem£©¿ÉÒÔ¶¨Î»µ½µ±Ç°µÄÑ¡ÖÐÏ¶øListBoxûÓУ»ListViewÓÐTag¿ÉÒÔÉ趨ѡÖÐÏîµÄ±êʾ£¬ListBoxûÓС£ÉÏÍøÒ²ÕÒ²»µ½Ô­Òò£¬ÖªµÀÈ¥ÔĶÁMSDNºÍ×Ô¼º²âÊÔ¡£
Ö®ºóÖÕÓÚÕÒµ½ÁËÎÊÌâµÄ¹Ø¼ü¡£
ʼþ1£ºÌí¼ÓListBoxÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ