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ÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......
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 ......
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 ......
Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØÎ»,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷¡£Í¬Ê±OCX¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ²Ø³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµØÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓã¬Í¬Ê±»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!ÏÂÃæÁгöÖÆ ......
Ê®Ììѧ»áASP.net֮ʵսϵÁУ¨C#ºÍVb.netË«°æ±¾£©
µÚÒ»Ìì
ÎÒÈÏΪASP.NET±ÈASPÄѺܶ࣬ϣÍû´ó¼Ò×öºÃ×¼±¸¡£ÄÑÄÑÔÚʵÏÖͬһ¸öЧ¹ûÓкܶ෽·¨£¬´ó¼Ò»òÐí»áÒÉ»ó¡£Ê®Ììѧ»áϵÁн̳̻áÇåÎúµÄд³ö¸÷ÖÖ·½·¨£¬Èôó¼ÒÄÜÉÙÒ»µã¿²¿À¡£ÔÚASPÀïÃæ£¬´ó¼Ò¼¸ºõ¶¼ÊÇʹÓÃVB£¬Êý¾Ý¿âÂҲÎÞ·ÇÊÇSQLºÍACCESS¡£ÔÚASP.NETÀïÃæ£¬Êý¾Ý¿â»¹ÊÇÕ ......