如何将vfp的查询结果导入excel表中???
如何将vfp的查询结果导入excel表中???,查询结果是用set filter to 命令查询出来的,我想将查询结果导入excel表然后自动打开excel,最好能控制导入哪些字段??
[解决办法]
用copy to "xx.xls " fields field1,...即可達到要求.
[解决办法]
COPY TO EXCEL表名.XLS FIELDS 字段1,字段2,字段3 TYPE XL5
[解决办法]
*从dbf-table 到 xl-table
*定义常量
#define True .t.
#define False .f.
#define xlWBatWorksheet -4167
#define xlAutomatic 0
#define xlNone 1
#define xlContinuous 1
#define xlThin 2 && 等于1时为点线，2为细线，3为粗线，4更粗
XLApp = createobject( "Excel.Application ")
XLApp.visible = True
XLApp.Workbooks.add[xlWBatWorksheet]
nCols=fcount() && 数据列数
myalias = alias() && 获取当前数据表别名
XLApp.Workbooks[1].Worksheets[1].Name = myalias
Sheet = XLApp.Workbooks[1].Worksheets[myalias]
* 填写xl表的列标题
for i = 1 to nCols
Sheet.Cells[1,i] = field(i)
endfor
nRows = 1 && 数据行数
* 从dbf表中复制数据到xl表中（逐行填充）
scan
nRows = nRows + 1
for i = 1 to nCols
fieldname = field(i)
if type(fieldname)= "C "
Sheet.Cells[nRows,i].NumberFormatLocal = "@ " && 设置单元格数据类型为字符型，以避免数字字符变为数值型
endif
Sheet.Cells[nRows,i] = iif(empty(&fieldname), ' ',iif(type(fieldname)= "C ",alltrim(&fieldname),&fieldname))
endfor
endscan
Selection=XLApp.Range(XLApp.Cells(1,1),XLApp.Cells(1,nCols)) && 设定范围为第一行
Selection.font.bold = .t. && 字体加粗
Selection.horizontalAlignment = 3 && 水平居中排列
Selection=XLApp.Range(XLApp.Cells(1,1),XLApp.Cells(nRows,nCols)) && 设定范围为有数据的整个区域
Selection.font.size = 9 && 体字大小为 9 号
XLApp.Workbooks[1].Sheets[1].rows.rowHeight=20 && 行距为20
XLApp.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1 " && 设定第一行为每页必须打印的行
* 设定表格边线
for i=1 to 4
With Selection.Borders(i)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
EndWith
endfor
retu
