簡單實(shí)現(xiàn)Ｗｏｒｄ、Ｅｘｃｅｌ文檔之間數(shù)據(jù)共享的方法
2007-12-29 00:00:00戴俊秋裴純禮
中小學(xué)信息技術(shù)教育 2007年10期
在Office中，將Word中控件（或數(shù)組）的數(shù)據(jù)送到Excel指定行、列的單元格（或區(qū)域）中，保存Excel文檔，然后進(jìn)行數(shù)據(jù)的匯總統(tǒng)計(jì)，是經(jīng)常采用的方法。其基本步驟如下。
1.定義和創(chuàng)建用于接受Word文檔中各控件（或數(shù)組）值的Excel工作表“對象”，并將其“隱藏”（即保留在內(nèi)存中而不在屏幕上顯示出來）。其典型語句如下。
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = False'隱藏Excel工作表單
2.把Word文檔中控件（或數(shù)組）的值賦予Excel的指定單元格（或區(qū)域）。
下列語句可以把用戶選定調(diào)查的年份組合框（Year_CBox）的值賦予Excel的第1行第1列單元格：
ExcelSheet.Application.Cell
