Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÄܼǼÖÐÎĵļüÅ̼Ǽ

http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
ÄܼǼµ½ÖÐÎÄ£¬È±µãÊDz»ÄܼǼµ½Ctrl£¬shift£¬alt£¬capslock£¬home£¬del£¬pageUP£¬pageDownµÈ¼þµÄ°´ÏÂ״̬¡£
vb6´úÂëÈçÏ£º
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWind ......

vb³£ÓÃ×Ö·û´®´¦Àíº¯Êý

1. ASC(X)£¬Chr(X)£º×ª»»×Ö·û×Ö·ûÂë   
[¸ñʽ]£º   
P=Asc(X) ·µ»Ø×Ö·û´®XµÄµÚÒ»¸ö×Ö·ûµÄ×Ö·ûÂë   
P=Chr(X) ·µ»Ø×Ö·ûÂëµÈÓÚXµÄ×Ö·û   
[·¶Àý]£º   
(1)P=Chr(65)   
‘ Êä³ö×Ö·ûA,ÒòΪAµÄASCIIÂëµÈÓÚ65   ......

VBʹÓÃActiveX¿Ø¼þʵÀýºÍ²½¾Û

Ä¿µÄÕÆÎÕÒ»¸ö¼òµ¥µÄVB³ÌÐòµÄ½¨Á¢¡¢±à¼­¡¢µ÷ÊÔ¡¢ÔËÐкͱ£´æµÄ·½·¨¡£
²Ù×÷²½Öè ¢Å½øÈëVB»·¾³£¬Ð½¨¹¤³Ì¡£·½·¨ÊÇ£ºÈç¹û³öÏ֓н¨¹¤³Ì”¶Ô»°¿ò£¬ÔòÑ¡Ôñ“±ê×¼.EXE”²¢µã»÷[´ò¿ª]°´Å¦£»»òÕßÖ±½Óµã»÷²Ëµ¥[Îļþ]-[н¨¹¤³Ì]¡£¶¼»á³öÏÖÒ»¸öÃûΪ“Form1”µÄд°Ìå¡£
¢Æ´Ó±ê×¼¿Ø¼þ¹¤¾ßÀ¸ÖÐÏò´°Ìå¼Ó ......

Ê®Ììѧ»á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ºÅ