在計(jì)算機(jī)軟件中,Microsoft Excel具有強(qiáng)大的制表功能,F(xiàn)oxpro具有很強(qiáng)的數(shù)據(jù)庫(kù)處理能力。在審計(jì)實(shí)際工作中,經(jīng)常涉及兩者數(shù)據(jù)間的相互轉(zhuǎn)換。下面介紹幾種常用轉(zhuǎn)換方法,供同行參考。
一、將數(shù)據(jù)庫(kù)文件轉(zhuǎn)換為Excel表格文件(dbf-->xls)
?。ㄒ唬┲苯哟蜷_(kāi)異構(gòu)數(shù)據(jù)文件 從DBF格式轉(zhuǎn)換成Ms Excel工作表格式非常方便,可以直接打開(kāi),具體操作如下: 1.啟動(dòng)Ms Excel,點(diǎn)擊主選菜單“文件”下“打開(kāi)”; 2.在“打開(kāi)”對(duì)話窗的“文件類型”下拉列表里,選取“dBase文件(*.dbf)”,并且指定盤(pán)符和文件夾,找到欲打開(kāi)的DBF文件,例如:D:\\sj2002\\fox\\出門證.dbf; 3.點(diǎn)擊“打開(kāi)”按鈕。 系統(tǒng)以Excel電子表形式顯示DBF文件的數(shù)據(jù),注意,當(dāng)前文檔的名稱是“出門證.dbf”,并且還可以對(duì)打開(kāi)的文件修改后,仍然按DBF格式保存。如果需要以Ms Excel工作表保存,則還須以選菜單“另存為”,指定保存類型為“Microsoft Excel工作簿”,保存當(dāng)前數(shù)據(jù),例如,在“D:\\sj2002\\excel”文件夾下,另存為“出門證.xls”。
?。ǘ├肍oxpro的“導(dǎo)出”功能來(lái)實(shí)現(xiàn)數(shù)據(jù)轉(zhuǎn)換 在Foxpro數(shù)據(jù)庫(kù)系統(tǒng)中,將DBF格式轉(zhuǎn)換成Ms Excel工作表格式也是非常方便的,具體操作如下: 1.啟動(dòng)Foxpro,點(diǎn)擊主選菜單“文件”下“打開(kāi)”; 2.在“打開(kāi)”對(duì)話框的“文件類型”下拉列表里,選取“表(*.dbf)”,并且指定盤(pán)符和文件夾,找到欲打開(kāi)的DBF文件; 3.點(diǎn)擊主選菜單“文件”下的“導(dǎo)出”,在“導(dǎo)出”對(duì)話框的“文件類型”下拉列表中,選取“Microsoft Excel5.0(xls)”,并且指定盤(pán)符和文件夾,然后確定xls文件名后點(diǎn)擊“保存”按鈕即可,例如:D:\\sj2002\\excel\\出門證.xls。
?。ㄈ┦褂镁幊谭椒▉?lái)實(shí)現(xiàn)數(shù)據(jù)轉(zhuǎn)換 如果您對(duì)VFP編程語(yǔ)言較為熟悉,可以編寫(xiě)一個(gè)簡(jiǎn)單的應(yīng)用程序,來(lái)實(shí)現(xiàn)DBF格式轉(zhuǎn)換成Ms Excel工作表格式,具體做法,首先要求在VFP命令窗口中輸入modify command,然后在文本框中輸入以下代碼(&&及其后的內(nèi)容表示注釋): use 出門證.dbf &&根據(jù)實(shí)際工作需要,選擇您所需的實(shí)表名。 eole=createobject(\"excel.application\") eole.workbooks.add eole.worksheets(\"sheet1\").activate eole.visible=.t. k=fcount() &&取得字段數(shù) for a=1 to k eole.cells(1,a).value=field(a) &&在(1,X)單元格中寫(xiě)入字段名稱 endfor I=reccount()&&取得記錄個(gè)數(shù) For j=1 to I Go j Wait \"正在寫(xiě)入完第\"+alltrim(str(j,5))+\"條記錄\" window nowait For x=1 to k Zhi=field(x) Eole.cells(j+1,x).value=&zhi Endfor Endfor Wait \"記錄寫(xiě)完\" window timeout 3 文件保存為zm.prg,在命令窗口中執(zhí)行do zm.prg,等待一會(huì)兒我們就可看到生成的Excel表,試著預(yù)覽一下,看其效果如何。
二、將Excel表格文件轉(zhuǎn)換為數(shù)據(jù)庫(kù)文件(xls-->dbf) Excel內(nèi)置轉(zhuǎn)換功能支持的常用數(shù)據(jù)格式包括DBF格式和各種文本格式的數(shù)據(jù)文件,操作如下: 1.打開(kāi)一個(gè)XLS格式的工作表,例如,D:\\sj2002\\excel\\出門證.xls; 2.點(diǎn)擊主菜單“文件”下“另存為”選項(xiàng),在“另存為”對(duì)話框的“保存類型”下拉列表里,選取“DBF4(dBase Ⅳ)”或者“文本文件(以制表符分隔)(*.txt)”,如果需要,還可改變文件名和保存的盤(pán)符、文件夾等; 3.點(diǎn)擊“保存”按鈕,查看D:\\sj2002\\excel文件夾,已有“出門證.DBF”文件。 (朱明) (作者單位:淮南礦業(yè)集團(tuán)公司潘一礦審計(jì)科研)
|