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

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 =


Ïà¹ØÎÊ´ð£º

vb±àдdllÎļþÌáʾÕÒ²»µ½dllinstall×¢Èëµã

ÎÒÏëдһ¸öasp¶ÁÈ¡±¾µØ»ú×ÓµÄÍøÍ«µÄ¹¦ÄÜ£¬ÐèÒªÓÃvbдһ¸ödll ÔÚÍøÉÏÕÒÁËһϣ¬°ÑÏÂÃæµÄ¶Î¿½Èëvb¹¤³ÌÀ
Option Explicit

Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private ......

VB Îı¾¿ò

×Ö·û´® m1="E"
×Ö·û´® m2="F"

Èç¹ûtext1.text=m1+m2µÄ»°  Ôòtext1ÏÔʾµÄÊÇ EF

µ«ÊÇÈç¹û
×Ö·û´® m1="E"
×Ö·û´® m2="6"
Èç¹ûtext1.text=m1+m ......

vbÒþ²Ø´úÂë

  ÓÃvb×öºÃµÄÈí¼þ£¬ÏëÒª¼ÓÈë×Ô¶¯Òþ²ØµÄ¹¦ÄÜ£¬ÔÚÄÇÌí¼Ó°¡£¬»¹ÓÐÒþ²ØµÄ´úÂëÄÇÓа¡    ½èÓÃһϠ   лÁË
·½·¨1
Private Sub Form_Load()
Me.Height = 1 * Screen.TwipsPerPixelY
Me ......

VB Timer¿Ø¼þ

ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ

ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ