VFP與EXCEL的幾種交互編程方法

VFP與EXCEL的幾種交互編程方法一、 EXECL驅(qū)動VFPEXECL內(nèi)置的VBA語言(VisualBasicForApplication)為EXECL功能的擴展提供了便利的手段,用戶可使用該語言直接驅(qū)動VFP完成數(shù)據(jù)檢索等功能。程序首先生成一個VFP對象，然后用VFP的DoCmd方法執(zhí)行VFP摸索命令串，其摸索結(jié)果再借助于VFP的DateToClip方法拷貝至剪切板，最后VBA將其粘貼至工作表的正確位置。SubFoxTest()DimoFoxAsObjectDimSLessonAsStringDimSCommandAsStringSetoFox=CreateObject("VisualFoxPro.Application")'啟動VFP，生成VFP對象Sheets("查詢").SelectSLesson=Range("課程名"廠在名為“課程名”的單元格中得到欲查詢的課程名稱Sheets.Add＇產(chǎn)生新的工作表單ActiveSheet.Name=Slesson＇指定工作表單的名稱與課程名稱相同SCommand="SELECT學(xué)號，語文，數(shù)學(xué)FROMd:\vfp\學(xué)生成績表WHERE"+SLesson+"<60INTOCURSORTEMP"＇形成VFP查詢命令串oFox.DoCmdScommand＇執(zhí)行VFP命令串oFox.DataToClip"temp"，，3＇將搜索結(jié)果以文本方式拷貝至剪切板Range("a1:a1").Select＇指向拷貝目標(biāo)區(qū)域左上角單元ActiveSheet.Paste＇粘貼搜索結(jié)果EndSub為便于使用，作者在EXECL中自制了一名為“搜索”的工具欄及一名為“開始搜索”的按鈕，并將上述宏程序段與自制按鈕相關(guān)聯(lián)，按下此按鈕即可運行程序并在EXCEL中得到要求的數(shù)據(jù)。制作工具欄及按鈕的方法如下：選“工具”/“自定義”菜單，出現(xiàn)自定義對話框；選擇“工具欄”頁框，然后按下“新建”按鈕；在工具欄對話框中輸入“搜索”作為新建工具欄的名稱；選擇“命令”頁框，在“類別”列表中選“宏”，在“命令”列表中選“自定義按鈕”并將其拖放至新建的“搜索”工具欄；按下“更新所選內(nèi)容”按鈕，首先在“命名”欄中填入按鈕名稱“開始搜索”，然后選擇“指定宏”，在隨后出現(xiàn)的“指定宏”列表中選擇上述宏程序FoxTest()即可實現(xiàn)為該宏指定一個工具欄按鈕。VFP與EXCEL的幾種交互編程方法時間：2007-09-25作者：佚名編輯：本站點擊：1605[評論]二、 VFP使用OLE功能驅(qū)動EXECLOLE(ObjectLinkingandEmbedding)對象鏈接與嵌入，是WINDOWS應(yīng)用程序間相互傳遞和共享數(shù)據(jù)的一種有效方法。VFP借助于OLE不僅可共享其它應(yīng)用程序的數(shù)據(jù)，而且還能以對象方式直接控制其它應(yīng)用程序的運行，從而進(jìn)一步擴展VFP的功能。VFP支持直接在程序中創(chuàng)建、使用和控制OLE對象，實現(xiàn)OLE自動化。作為OLE客戶VFP與作為OLE服務(wù)器的EXCEL具有良好的編程接口，下述程序段用OLE方式實現(xiàn)所要求的功能。程序首先生成一個EXCEL的OLE對象OleApp以便對其進(jìn)行操作，然后利用OLE功能從EXCEL表單中獲取欲查詢的課程名，并控制EXCEL生成新的工作表，VFP的查詢結(jié)果仍然使用剪切板的方式傳遞至EXCEL工作表。OleApp=CREATEOBJECT("Excel.Application")&&打開EXCEL，產(chǎn)生OLE對象OleApp.Application.Caption="VFP交互編程"&&指定標(biāo)題欄名稱OleApp.Application.Visible=.T.&&置EXCEL可見OleApp.Application.WorkBooks.Open("d:\vfp\VFP交互.xls")&&打開EXCEL工作簿DOWHILE.T.pplicationnAnswer=MESSAGEBOX("開始搜索？",32+4,"搜索指定數(shù)據(jù)")&&產(chǎn)生信息框IF(.NOT.(nAnswer=6))&&如按下“Yes，按鈕，則開始搜索，反之退出EXITENDIF.Sheets(”查詢”).Select&&選擇“查詢”工作表單SLesson=OleApp.Application.Range('課程名").value&&得到欲查詢的課程名稱.Sheets.Add&&新建一工作表單.ActiveSheet.Name=Slesson&&指定工作表單的名稱SCommand="SELECT學(xué)號，語文，數(shù)學(xué)FROMd:\vfp\學(xué)生成績表WHERE"+ALLTrim(SLesson)+"<60INTOCURSORTEMP"&&形成VFP查詢命令串&Scommand&&執(zhí)行VFP命令串_VFP.DataToClip("TEMP",,3)&&將搜索結(jié)果以文本方式拷貝至剪切板.Range("a1:a1").Select&&指向拷貝目標(biāo)區(qū)域左上角單元.ActiveSheet.Paste&&粘貼搜索結(jié)果ENDWITHENDDOOleApp.Quit&&關(guān)閉EXCEL，保存更新后的工作簿文件三、VFP使用DDE功能驅(qū)動EXECLDDE(DynamicDataExchange)動態(tài)數(shù)據(jù)交換，是WINDOWS應(yīng)用程序間相互傳遞和共享數(shù)據(jù)的另一種有效方法，DDE用共享存儲器在應(yīng)用程序間交換數(shù)據(jù)。DDE會話發(fā)生在DDE客戶與DDE服務(wù)器應(yīng)用程序之間，客戶應(yīng)用程序向服務(wù)器應(yīng)用程序請求數(shù)據(jù)和服務(wù)，而服務(wù)器響應(yīng)客戶應(yīng)用程序?qū)?shù)據(jù)與服務(wù)的請求。DDE的數(shù)據(jù)交換可分三種方式：冷鏈接：客戶應(yīng)用程序請求數(shù)據(jù)時，服務(wù)器應(yīng)用程序才發(fā)送數(shù)據(jù)給客戶應(yīng)用程序；暖鏈接：服務(wù)器應(yīng)用程序在每次數(shù)據(jù)項的值變化時都向客戶應(yīng)用程序發(fā)送通告，但它并不直接發(fā)送值給客戶應(yīng)用程序，而由客戶應(yīng)用程序決定是否取得該數(shù)據(jù)；熱鏈接：服務(wù)器應(yīng)用程序在每次值變化時都發(fā)送數(shù)據(jù)項的新值給客戶應(yīng)用程序。VFP與EXCEL均支持DDE客戶與服務(wù)器。下述程序段由作為DDE客戶的VFP應(yīng)用程序與作為DDE服務(wù)器的EXCEL用DDE方式實現(xiàn)所要求的功能。程序首先啟動EXCEL，然后在VFP應(yīng)用程序與“查詢”工作表單的“課程名”單元格之間形成“熱鏈接”，當(dāng)“課程名”單元格內(nèi)容改變時，將自動執(zhí)行“GetData”過程。在該過程中首先直接獲取DDE數(shù)據(jù)，如果該數(shù)據(jù)為“空”，則關(guān)閉EXCEL，程序結(jié)束；反之，利用DDEPOKE功能向EXCEL發(fā)送鍵盤命令串，以形成新的工作表，最后VFP將查詢結(jié)果通過剪切板送EXCEL形成要求的工作表。PUBLICExcelChanPUBLICSheetChanRUN/N3C:\ProgramFiles\MicrosoftOffice\Office\EXCEL.EXE&&以“活動”與“最大化方式啟動EXCELExcelChan=DDEInitiate("Excel",'SYSTEM')&&初始化DDE通道ExcelChan=DDEExecute(ExcelChan,'[Open("d:\vfp\VFP交互.xls")]')&&打開“VFP交互.xls”SheetChan=DDEInitiate('Excel','查詢')&&初始化DDE通道SheetChan=DDEAdvise(SheetChan,'課程名','GetData',2)&&在VFP應(yīng)用程序與“查詢”工作表單的“課程名”單元格之間形成“熱鏈接”！如果該單元數(shù)值改變，貝朋行“GetData”過程。PROCEDUREGetDataPARAMETERSChannel,Action,Item,Data,Format,AdviseIFAction='ADVISE'.AND.Item='課程名'&&服務(wù)器提供的鏈接名為“課程名”SLesson=Data&&直接獲取DDE服務(wù)器提供的數(shù)據(jù)SLesson=LEFT(SLesson,LEN(SLesson)-2)&&去掉原始數(shù)據(jù)尾部的格式字符IF(LEN(SLesson)=0)&&如果指定單元格內(nèi)容為“空”，貝退出=DDETerminate(SheetChan)&&終止DDE通道SheetChan=DDEExecute(ExcelChan,'[Quit]')&&退出EXCEL=DDETerminate(ExcelChan)&&終止DDE通道ExcelChanELSE=DDEExecute(ExcelChan,'[Formula.Goto(‘課程名")]')&&指定名為“課程名”的單元格為活動單元格=DDEExecute(ExcelChan,'[Copy]')&&將指定單元格內(nèi)容拷貝至剪切板SKey="'%IW%OHRW{enter『"&&鍵盤命令字符串，表示插入(I)|工作表(W)；格式(0)|工作表(H)|重命名(R)；粘貼”=DDEExecute(ExcelChan,&SKey)&&通過DDE通道將命令串送EXCELWAITWINDOWTIMEOUT2&&等待2秒鐘以實現(xiàn)上述命令串SCommand="SELECT學(xué)號,語文,數(shù)學(xué)FROMd:\vfp\學(xué)生成績表WHERE"+ALLTRIM(SLesson)+"v60INTOCURSORTEMP"&&形成VFP查詢命令串&Scommand&&執(zhí)行VFP命令串_VFP.DataToClip("TEMP",,3)&&將搜索結(jié)果以文本方式拷貝至剪切板SheetChan1=DDEInitiate("Excel",'&SLesson')&&初始化DDE通道SheetChan1指向新生成的工作表=DDEExecute(SheetChan1,'[Paste]')&&粘貼搜索結(jié)果=DDETerminate(SheetChani)&&終止DDE通道SheetChaniENDIF關(guān)于vfp控制excel、word的常用東東頭大mailto:ppp1117@163.com大家對vfp中通過OLE調(diào)用excel、word完成報表、數(shù)據(jù)轉(zhuǎn)換等功能還感興趣，請按以下步驟得到完整的VBA幫助：1、安裝msoffice97/2000；2、啟動excel、word，單擊“工具”一“宏”一“VisualBasic編輯器”進(jìn)入，再選“幫助”菜單即可（注意：第一次使用VBA幫助會提示插入光盤安裝VBA幫助的）。現(xiàn)將excel下常見的東東搜集整理如下：創(chuàng)建Excel對象_ole_excel=CreateObject（"Excel.Application"）打開指定工作表_ole_excel.WorkBooks.Open（"工作表文件名"） &&要打開的工作表名（xls）必須是全路徑添加新工作簿_ole_excel.WorksBooks.Add激活指定的工作簿_ole_excel.WorkSheets（"工作簿名"）.Activate5?設(shè)置Excel對象為可見，一般為調(diào)試用_ole_excel.visible=.t.更改Excel對象標(biāo)題欄_ole_excel.Caption="VFP程序OLE調(diào)用Excel"給單元格賦值_ole_excel.cells（行，列）.value=變量 &&重要，一般由VFP傳遞數(shù)據(jù)給excel即由此句，可以是VFP支持的任何數(shù)據(jù)設(shè)置指定列的寬度_ole_excel.ActiveSheet.Columns（列）.ColumnWidth=字符個數(shù)設(shè)置指定行的高度（默認(rèn)單位：磅）_ole_excel.ActiveSheet.Rows（行）.RowHeight=1/0.035 &&設(shè)定行高為1厘米，1磅=0.035厘米在第18行之前插入分頁符_ole_excel.WorkSheets（"Sheet1"）.Rows（18）.PageBreak=1在第4列之前刪除分頁符_ole_excel.ActiveSheet.Columns（4）.PageBreak=0設(shè)置四個邊框線條的類型及風(fēng)格_ole_excel.ActiveSheet.Range（范圍）.Borders（線型）.LineStyle=1 &&范圍指起止的單元格，如"B1:H9";Borders為邊框線條：1—左，2—右，3—頂，4—底，5—斜線\，6—斜線/;LineStyle為線型參數(shù)：1—細(xì)實線，2—細(xì)虛線，……4—點虛線，……，9—雙細(xì)實線13?指定邊框線寬度（Borders為邊框線條，參見上條；默認(rèn)單位：磅）_ole_excel.ActiveSheet.Range（范圍）.Borders（線型）.Weight=2設(shè)置頁眉_ole_excel.ActiveSheet.PageSetup.CenterHeader="什么什么報表"設(shè)置頁腳_ole_excel.ActiveSheet.PageSetup.CenterFooter="第&P頁"設(shè)置頁眉到頂端邊距_ole_excel.ActiveSheet.PageSetup.HeaderMargin=2/0.035 &&2厘米設(shè)置頁腳到底邊邊距_ole_excel.ActiveSheet.PageSetup.FooterMargin=3/0.035&&3厘米18．設(shè)置頂邊距_ole_excel.ActiveSheet.PageSetup.TopMargin=3/0.035&&3厘米19．設(shè)置底邊距_ole_excel.ActiveSheet.PageSetup.BottomMargin=3/0.035&&3厘米20．設(shè)置左邊距_ole_excel.ActiveSheet.PageSetup.LeftMargin=3/0.035 &&3厘米21．設(shè)置右邊距_ole_excel.ActiveSheet.PageSetup.RightMargin=3/0.035 &&3厘米22．設(shè)置頁面水平居中_ole_excel.ActiveSheet.PageSetup.CenterHorizontally=.t.23．設(shè)置頁面垂直居中_ole_excel.ActiveSheet.PageSetup.CenterVertically=.t.24．設(shè)置頁面紙張大小，重要！很多網(wǎng)友需要的東東_ole_excel.ActiveSheet.PageSetup.PaperSize=紙張類型&&下面列出常見的紙張;可為下列XlPaperSize常量之一(某些打印機可能不支持所有的這些紙張大小);常量數(shù)值意義;xlPaperLetter1Letter(8-1/2in.x11in.)xlPaperA38A3(297mmx420mm)xlPaperA49A4(210mmx297mm)xlPaperA4Small10 A4Small(210mmx297mm)xlPaperA511A5(148mmx210mm)xlPaperB412B4(250mmx354mm)xlPaperB513B5(182mmx257mm)xlPaperFanfoldUS39U.S.StandardFanfold(14-7/8in.x11in.)xlPaperUsersht.range("&sf").Rows.AutoFitsht.range("&sf").Columns.AutoFitCOUNT(value1,value2,...)倒底如何調(diào)用才能知道EXCEL當(dāng)前SHEET的總行數(shù)與總列數(shù)？？愚昧?？床欢Ｖ缓脽┱埬阍敿?xì)說明。剛試驗：35．合并單元格，重要！_ole_excel.Worksheets("工作簿名").Range(范圍).merge &&范圍必須指定起止的單元格,如"A1:B4"好象也合并不了！myexcel.worksheetd("e:\zzz\xls99.xls").range("a1:b4").merge1、 當(dāng)前行、當(dāng)前列沒意義；2、 水平居中：_ole_excel.WorkSheets("Sheet1").Range("A1:A5").HorizontalAlignment=xlHAlignCenter垂直居中：_ole_excel.WorkSheets("Sheet1").Rows(2).VerticalAlignment=xlVAlignCenter3、合并的是工作簿而非工作表！你那句是指工作表啊當(dāng)前的總行數(shù)、總列數(shù)：.ActiveSheet.UsedRange.rows.count.ActiveSheet.UsedRange.columns.count▲能夠讓打開的窗口作為VFP的子窗口嗎？?_ole_excel.visible=.t.▲請問各位高手，在VFP6.0中生成Execl表格，如何設(shè)置“頂端標(biāo)題行”和“左邊標(biāo)題列”WithActiveSheet.PageSetup.PrintTitleRows="$1:$3".PrintTitleColumns=""EndWitheole.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"eole.ActiveSheet.PageSetup.PrintTitleColumns="$A:$A"VFP與Excel交互編程VFP(VisualFoxpro)是一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，由于其強大的數(shù)據(jù)處理能力及良好的兼容性，使其成為數(shù)據(jù)庫應(yīng)用程序開發(fā)人員強有力的工具而廣為使用；而Excel則是一個優(yōu)秀的電子表格處理軟件，在兼容性、操作界面、公式運算、圖表等方面有著獨到的優(yōu)勢，成為廣大辦公應(yīng)用人員必備的首選軟件。上述兩種軟件在各自的應(yīng)用領(lǐng)域均得到了廣泛的應(yīng)用，同時上述兩種軟件還具有良好的交互編程能力，為兩者相輔相成、取長補短奠定了良好的基礎(chǔ)。本文將結(jié)合實例介紹VFP與Excel交互編程的方法，在VFP中除了使用OLE技術(shù)外，還可使用DDE技術(shù)與外部服務(wù)器進(jìn)行數(shù)據(jù)交換，本文主要講解VFP中使用OLE技術(shù)與Excel交換數(shù)據(jù)，Excel中借助內(nèi)置的VBA使用VFP提供的Application對象來調(diào)用VFP中的一些功能。其功能可簡述如下:VFP數(shù)據(jù)表“學(xué)生成績.DBF”中含“學(xué)號、姓名、語文、數(shù)學(xué)”等字段，示例程序?qū)腅xcel工作簿“VFP交互.XLS”的工作表“查詢”中用“條件”區(qū)域(一般為一個矩形區(qū)中的數(shù)據(jù)，該區(qū)域名稱指定為“條件”，數(shù)據(jù)形如“語文＞60”、“數(shù)學(xué)＜90”等)中的數(shù)據(jù)作為查詢的條件，用“連接條件”區(qū)域(一般為一個單元格，其值為“or”或者“and”)來獲取組合“條件”的邏輯連接，并將該連接信息的內(nèi)容以工作表的形式顯示出來，然后調(diào)用VFP中針對給定表的SQL查詢來找出給定條件的記錄并顯示到Excel中。下列程序均在VFP6.0與Excel2000中調(diào)試通過。Excel驅(qū)動VFPExcel內(nèi)置的VBA語言(VisualBasicForApplication)為Excel功能的擴展提供了便利的手段，用戶可使用該語言直接驅(qū)動VFP完成數(shù)據(jù)檢索等功能。程序首先生成一個VFP對象，然后用VFP的DoCmd方法執(zhí)行VFP搜索命令串，其搜索結(jié)果再借助于VFP的DataToClip方法拷貝至剪切板，最后VBA將其粘貼至工作表的正確位置，為了每次運行時能將結(jié)果插入到工作表中，依次對操作的工作表以“搜索結(jié)果”、“搜索結(jié)果1”等進(jìn)行編號。SubexceluseFox()DimoFoxAsObject'聲明oFox為一個對象DimSCommandAsString'SQL對應(yīng)的命令串變量DimcellAsVariantDimchoiceAsStringDimjoinAsStringDimfirstAsBooleanDimfoundAsBoolean'搜索結(jié)果標(biāo)志，若表單中有搜索結(jié)果，則為真SetoFox=CreateObject(“VisualFoxPro.Application”)'啟動VFP,生成VFP對象Sheets(“查詢”).Select'選擇對應(yīng)的工作表“查詢”join=Range(“連接條件”)'在單一表格中的一個元素，其值為and或者orchoice=“”'置連接串初值為空first=True'一般情況下連接串后需要加上邏輯連接符and或or，首次例外ForEachcellInRange(“條件”)'產(chǎn)生連接條件，形成where語句的連接邏輯串IffirstThenchoice=choice+cell'形成第一次出現(xiàn)的where子句后的字符串first=False'修改首次進(jìn)入標(biāo)志，以后的連接均需要加上邏輯連接符Elsechoice=choice+“”+join+“”+cell'join的值是and或者是orEndIfNextcellSheets.Add'產(chǎn)生新的工作表單'找一個不重復(fù)的工作表名found=False'工作表名中前四個漢字有沒有“搜索結(jié)果”的標(biāo)志變量n=1ForEachcellInWorksheetsIfInStr(1,cell.Name,“搜索結(jié)果”)<>0Thenfound=True'找到對應(yīng)的工作表Ifn<Val(Mid(cell.Name+Space(2),5,2))Thenn=Val(Mid(cell.Name+Space(2),5,2))'形成形如搜索結(jié)果1、搜索結(jié)果2等的表單名EndIfEndIfNextcellIfNotfoundThenActiveSheet.Name=“搜索結(jié)果”Elsen=n+1'值增1ActiveSheet.Name=“搜索結(jié)果”&n'形成工作表名EndIfSCommand=“SELECT*FROMd:\vfp\學(xué)生成績表WHERE"+choice+“INTOCURSORTEMP”’形成VFP查詢命令串oFox.DoCmdScommand'執(zhí)行VFP命令串oFox.DataToClip“temp”,,3'將搜索結(jié)果以文本方式拷貝至剪切板Range(“a1:a1”).Select'指向拷貝目標(biāo)區(qū)域左上角單元ActiveSheet.Paste'粘貼搜索結(jié)果EndSub上述Excel中的區(qū)域名稱(如“條件”和“連接條件”名稱)的設(shè)定方法是，在Excel中選擇菜單“插入-＞名稱-＞定義”來完成對給定區(qū)域名稱的設(shè)定，這個名稱可以在VBA中訪問，如前述中的“條件”和“連接條件”。VFP使用ExcelOLE(ObjectLinkingandEmbedding)對象鏈接與嵌入，是Windows應(yīng)用程序間相互傳遞和共享數(shù)據(jù)的一種有效方法。VFP借助于OLE不僅可共享其他應(yīng)用程序的數(shù)據(jù)，而且還能以對象方式直接控制其他應(yīng)用程序的運行，從而進(jìn)一步擴展VFP的功能。VFP支持直接在程序中創(chuàng)建、使用和控制OLE對象，實現(xiàn)OLE自動化。作為OLE客戶，VFP與作為OLE服務(wù)器的Excel具有良好的編程接口，下述程序段用OLE方式實現(xiàn)所要求的功能。程序首先生成一個Excel的OLE對象OleApp以便對其進(jìn)行操作，然后利用OLE功能從Excel表單中獲取欲查詢的條件，并控制Excel生成新的唯一的工作表，通過找尋當(dāng)前操作的所有工作表達(dá)到名稱的唯一，VFP的查詢結(jié)果仍然使用剪切板的方式傳遞至Excel工作表中。localcondition，where1，first，scommand，cell，newsheet，found1，nOleApp=CreateObject(“Excel.Application”)&&打開Excel，產(chǎn)生OLE對象OleApp.Application.Caption=“VFP交互編程”&&指定標(biāo)題欄名稱OleApp.Application.Visible=.T.&&置Excel可見OleApp.Application.WorkBooks.Open(“d:\vfp\VFP交互.xls”)&&打開Excel工作簿，用戶也可以修改連接條件或者查詢條件where1=“”&&保存SQL中where子句的變量first=.t.&&置首次進(jìn)入“查詢”工作表中“條件”區(qū)域標(biāo)志found1=.f.n=1DOWHILE.T.WITHOleApp.ApplicationnAnswer=MessageBox(“開始搜索？”,32+4,“搜索指定數(shù)據(jù)”)&&顯示搜索信息IF(.NOT.(nAns