vb excel²Ù×÷³ö´í - VB / ¿Ø¼þ
ÏÂÃæÊÇÎÒ´ÓÎÒµÄÁíÍâÒ»¸öÌû×ÓÖп½¹ýÀ´µÄ£¬ÏëÒýÆð¸ü¶àÈ˰ïæ£¬ËùÒÔÁí·¢ÐÂÌû£¬Çë¸÷λ°ïæ¿´Ï£¬Ð»Ð»À²£¡
ÊǶÔÒ»¸öexcelÖжàÐнøÐÐsum³ö´í
ÒýÓà 2 Â¥ king06 µÄ»Ø¸´:
VB code
Range("A1:A101").Select
Range("A101").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-100]C:R[-1]C)" 'µÚ101ÐмǼÕâ¸öºÍÊǶàÉÙ.
ÎÒʹÓõÄÊÇÕâλͬѧµÄ·½·¨£¬µ«ÊÇÏÖÔÚÓöµ½ÁíÍâÒ»¸öÎÊÌâ
ÎҵijÌÐòÖØ¸´ÔËÐÐʱ±¨´í object variable or with block variable not set
±¨´íÐÐÊÇ ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)" ±¨´í¶ÔÏóÊÇActiveCell.FormulaR1C1
ÏÂÃæÊÇÎҵĶÔExcel²Ù×÷µÄ´úÂ룬Âé·³¸÷λ¸ø¿´Ò»Ï£¬ÎÊÌâ´¦ÔÚÄÄ£¬Ð»Ð»£¡
--¶¨Òå
Dim excelApp As Excel.Application
Dim excelBook As Excel.Workbook
Dim excelSheet As Excel.Worksheet
--´ò¿ªExcel¶ÔÏó
Set excelApp = CreateObject("Excel.Application")
Set excelBook = excelApp.Workbooks.Open(excelPath)
Set excelSheet = excelBook.Worksheets(1)
--¶ÔexcelµÄ²Ù×÷µÈ
excelSheet.Cells(endRow, 1) = "»ã×Ü:"
excelSheet.Range("C5:C" & endRow).Select
excelSheet.Range("C" & endRow).Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"
--¶ÔexcelµÄ¹Ø±ÕµÈ²Ù×÷
excelApp.Visible = True
excelBook.SaveAs savePath
excelBook.Save
&nbs
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......