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

ÇóÖú¹ØÓÚVB¶¯Ì¬¿ØÖÆEXCEL±í¸ñ±ß¿ò - VB / »ù´¡Àà

ÎÒÓÃÒÔÏ´úÂëÍùEXCELÀïÌí¼ÓÊý¾Ý£¬×îºóÒª°Ñ±í¸ñ±ß¿òÉèÖóöÀ´£¬Ê¹ÓÃÁËÂ¼ÖÆºêµÄ°ì·¨
Ò»¸öÊÇÔÚ¼ÓÁËÒ»ÐÐÊý¾ÝÒÔºóÌí¼Ó±ß¿ò£¬Ò»ÖÖÊÇÈ«²¿Êý¾Ý¶¼Ìí¼ÓÍê±Ïºó£¬ÓÃÒ»¸ö°´¼üΪÕû¸ö±í¸ñÌí¼Ó±ß¿ò£¨ÏÂÁдúÂëΪºóÕߣ©£¬µ«ÊǶ¼³öÏÖÁ˶ÔÏó±äÁ¿»òwith¿é±äÁ¿Î´ÉèÖõÄÌáʾ£¬ºóÀ´ÎÒÊÔÁËһϣ¬Æô¶¯³ÌÐòºó²»Ìí¼ÓÊý¾Ý£¬Ö±½ÓÌí¼Ó±ß¿òÊdzɹ¦µÄ£¬µ«ÊÇÔٴεã»÷Ìí¼Ó±ß¿òÓÖÊÇÕâ¸öÌáʾ£¬»³ÒÉÊÇrangeµÄÎÊÌ⣬Çë¸ßÊÖÃǰïæָµãһϰ¡

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim hang As Long '¼ÆËãÌí¼ÓÁ˼¸ÐÐÊý¾Ý


¡¯Ìí¼ÓÒ»ÐÐÊý¾Ý
Private Sub Command2_Click()
  Dim content(10) As String
   
  content(0) = Time
  For i = 1 To 9 Step 2
  content(i) = 12.5
  Next
   
  For i = 2 To 10 Step 2
  content(i) = 22.11
  Next
   
   

  Set xlApp = CreateObject("Excel.Application")
  xlApp.DisplayAlerts = False '²»ÏÔʾÊÇ·ñ±£´æ
  Set xlBook = xlApp.Workbooks.Open("C:\exper.xls")
  On Error GoTo 0
  Set xlSheet = xlBook.Worksheets(1)
  xlApp.Visible = False '²»ÏÔʾ³ö´´½¨µÄÎļþ
  xlSheet.Activate
   
  For i = 0 To 10
  xlSheet.Cells(hang, i + 1) = content(i)
  Next
   
 


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ