MasteringVFP/13/6

== 開啟Excel 檔的範例 ==
<pre>
Exl_file = GETFILE('XLS', '選擇或取消', '選擇', 0, '請選擇要開啟的Excel檔')
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要開啟的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要開啟的Excel檔是 "+Exl_file
ENDCASE
oExl=CREATEOBJECT("Excel.application")
if VARTYPE(oExl) <> "O"
= MESSAGEBOX("EXCEL沒有安裝或損壞或因為記憶體不足而無法使用!",64,"提示")
return
endif
oExl.SheetsInNewWorkbook?=1
oExl.Visible=.T.
oExl.workbooks.Open('&Exl_file')
oExl.activesheet.rows(1).insert
oExl.activecell.formular1c1 = "表頭"
with oExl.SELECTION.font
.name = "細明體"
.fontstyle = "normal"
.size = 20
.strikethrough = .f.
.superscript = .f.
.subscript = .f.
.outlinefont = .f.
.shadow = .f.
endwith
</pre>
== 匯入Excel檔的範例 ==
<pre>
Exl_file = GETFILE('XLS', '選擇或取消', '選擇', 0, '請選擇要匯入的Excel檔')
DO CASE
CASE EMPTY(Exl_file)
Messagebox("並未選擇要匯入的Excel檔",1+32,"訊息視窗")
QUIT
OTHERWISE
? "你選擇要匯入的Excel檔是 "+Exl_file
ENDCASE
import from &Exl_file Type xl8
browse
</pre>
== 匯出為Excel檔的範例(含欄位名稱) ==
<pre>
use Student 
copy to stu_info type XL5 
</pre>
== 匯出為CSV 檔的範例(含欄位名稱) ==
<pre>
use Student 
copy to stu_info type CSV
</pre>
== 匯出為文字檔的範例1(不含欄位名稱) ==
<pre>
use Student 
copy to stu_info type DELIMITED
</pre>
== 匯出為文字檔的範例2(不含欄位名稱) ==
<pre>
use Student 
copy to stu_info type SDF
</pre>