VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍：
*!* 1．创建Excel对象
oExcel=Createobject("Excel.application")
*!* 2．添加新工作簿
oExcel.Workbooks.Add
*!* 3．设置第3个工作表为激活工作表
oExcel.Worksheets("sheet3").Activate
*!* 4．打开指定工作簿
oExcel.Workbooks.Open("c:/temp/ll.xls")
*!* 5．显示Excel窗口
oExcel.Visible=.T.
*!* 6．更改Excel标题栏
oExcel.Caption="VFP应用程序调用Microsoft Excel"
*!* 7．给单元格赋值
oExcel.cells(1,4).Value=XM(XM为数据库字段名)
*!* 8．设置指定列的宽度(单位：字符个数)
oExcel.ActiveSheet.Columns(1).ColumnWidth=5
*!* 9．设置指定行的高度(单位：磅)
oExcel.ActiveSheet.Rows(1).RowHeight=1
(设定行高为1磅，1磅=0.035厘米)
oExcel.ActiveSheet.Rows("50:100").RowHeight=1 &&设置第50行至100行的高度
*!* 10．在第18行之前插入分页符
oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1
*!* 11．在第4列之前删除分页符
oExcel.ActiveSheet.Columns(4).PageBreak=0
*!* 12．指定边框线宽度(Borders参数如下)
ole.ActiveSheet.Range("b3:d3").BorderS(2).Weight=3
*!* 13．设置四个边框线条的类型
oExcel.ActiveSheet.Range("b3:d3").BorderS(2).LineStyle=1
(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)
*!* 14．设置页眉
oExcel.ActiveSheet.PageSetup.CenterHeader="报表1"
*!* 15．设置页眉(字体大小)
oExcel.ActiveSheet.PageSetup.CenterHeader="&50报表1" &&'&'后面的50可以自定义，表示字体的大小
*!* 16．设置页脚
oExcel.ActiveSheet.PageSetup.CenterFooter="第&P页"
*!* 17.设置页脚(字体大小)
oExcel.ActiveSheet.PageSetup.CenterFooter="&28第&P页" &&'&'后面的28可以自定义，表示字体的大小
*!* 18．设置页眉到顶端边距为2厘米
oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035
*!* 19．设置页脚到底边距为3厘米
oExcel.ActiveSheet.PageSetup.FooterMargin=3/0.035
*!* 20．设置顶边距为2厘米
oExcel.ActiveSheet.PageSetup.TopMargin=2/0.035
*!* 21．设置底边距为4厘米
oExcel.ActiveSheet.PageSetup.BottomMargin=4/0.035
*!* 22．设置左边距为2厘米
oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.035
*!* 23．设置右边距为2厘米
oExcel.ActiveSheet.PageSetup.RightMargin=2/0.035
*!* 24．设置页面水平居中
oExcel.ActiveSheet.PageSetup.CenterHorizontally=.T.
*!* 25．设置页面垂直居中
oExcel.ActiveSheet.PageSetup.CenterVertically=.T.
*!* 26．设置页面纸张大小(1－窄行8 5 11 39－宽行14 11 9:A4) oExcel.ActiveSheet.PageSetup.Papersize=1
*!* 27．打印单元格网线
oExcel.ActiveSheet.PageSetup.PrintGridlines=.T.
*!* 28．拷贝整个工作表
https://www.doczj.com/doc/9d16776205.html,edRange.Copy
*!* 29．拷贝指定区域
oExcel.ActiveSheet.Range("A1:E2").Copy
*!* 30．粘贴
oExcel.WorkSheet("Sheet2").Range("A1").PasteSpecial
*!* 31．在第2行之前插入一行
oExcel.ActiveSheet.Rows(2).Insert
*!* 32．在第2列之前插入一列
oExcel.ActiveSheet.Columns(2).Insert
*!* 33．设置字体
oExcel.ActiveSheet.Cells(2,1)https://www.doczj.com/doc/9d16776205.html,="黑体"
*!* 34．设置字体大小
oExcel.ActiveSheet.Cells(1,1).Font.Size=25
*!* 35．设置字体为斜体
oExcel.ActiveSheet.Cells(1,1).Font.Italic=.T.
*!* 36．设置整列字体为粗体
oExcel.ActiveSheet.Columns(1).Font.Bold=.T.
*!* 37．清除单元格公式
oExcel.ActiveSheet.Cells(1,4).ClearContents
*!* 38．打印预览工作表
oExcel.ActiveSheet.PrintPreview
*!* 39．打印输出工作表
oExcel.ActiveSheet.PrintOut
*!* 40． https://www.doczj.com/doc/9d16776205.html,mandBars(1).Controls(1).accChild(18).Execute &&打印（菜单序号18为Excel2003的‘打印’项）
&&不同版本Excel的菜单序号可以通过以下程序取得
*(需要在VFP7.0以上运行)
oXls=Getobject("","excel.sheet")
XlApp=oXLS.Application
XlSheet=XlApp.ActiveSheet
bars=https://www.doczj.com/doc/9d16776205.html,mandBars.Count
Str1=''
For i=1 To bars
Str1=Str1+Chr(13)+Alltrim(Str(i))+'、
'+https://www.doczj.com/doc/9d16776205.html,mandBars(i).accName+'(NAME:'+https://www.doczj.com/doc/9d16776205.html,mandBars(i).Name+'
INDEX:'+Alltrim(Str(https://www.doczj.com/doc/9d16776205.html,mandBars(i).Index))+')'
bars2=https://www.doczj.com/doc/9d16776205.html,mandbars(i).accChildCount
For j=1 To bars2
Try
obj=https://www.doczj.com/doc/9d16776205.html,mandbars(i).Controls(j)
Str1=Str1+Chr(13)+' '+Alltrim(Str(j))+'、
'+https://www.doczj.com/doc/9d16776205.html,mandbars(i).Controls(j).accname+'(ID:'+Alltrim(Str(https://www.doczj.com/doc/9d16776205.html,mandBars(i). Controls(j).Id))+')'
For k=1 To obj.accChildCount
Try
If Not Empty(obj.Controls(k).accname )
Str1=Str1+Chr(13)+' '+Alltrim(Str(k))+'、
'+obj.Controls(k).accName+' (ID：'+ Alltrim(Str(obj.Controls(k).Id))+')'
Endif
Catch
Exit
Endtry
Endfor
Catch
Exit
Endtry
Endfor
Wait Windows Alltrim(Str(i))+' / '+Alltrim(Str(bars))+'
'+Str(i/bars*100,10,2)+'%' Nowait
Endfor
Save To Xls.txt All Like Str1
Modify Command Xls.txt
Return
*!* 41．工作表另存为
oExcel.ActiveWorkbook.SaveAs("c:/temp/22.xls")
*检测当前目录是否有同名的EXCEL表，如果有先删除，再另存
If !File(Sys(5) + Curdir() + "result.xls")
oExcel.ActiveWorkbook.SaveAs(Sys(5) + Curdir() + "result.xls")
Else
lcFileName = loExcel.GetSaveAsFilename("result", "Excel (*.xls), *.xls")
If !Empty(lcFileName)
If File(lcFileName)
Delete File (lcFileName)
Endif
oExcel.ActiveWorkbook.SaveAs(lcFileName) Endif
Endif
*!* 42．放弃存盘 && 避免出现保存对话框
oExcel.ActiveWorkbook.saved=.T.
*!* 43．存盘
oExcel.ActiveWorkbook.Save
*!* 44．关闭工作簿
oExcel.Workbooks.Close
objexcel.activeworkbook.Close(.F.)
*!* 45．退出Excel
oExcel.Quit
Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭
*!* 46．合并单元格
oExcel.ActiveSheet.Range("A4:B5").MergeCells=.T.
*!* 47．下列设置大家自己理解
With crfole.ActiveSheet.PageSetup
.LeftHeader = Chr(13)+"左页眉"
.CenterHeader = "中页眉"
.RightHeader = "右页眉"
.LeftFooter = "左页脚"
.CenterFooter = "中页脚"
.RightFooter = "右页脚"
.Orientation=1 &&1竖排，2横排
Endwith
With crfole.Range("A4:C4")
.MergeCells = .T.
.WrapText =.F.
.Orientation = 0
.AddIndent =.F.
.ShrinkToFit = .F.
Endwith
*!* 48．文本对齐
oExcel.Range("A4:c4").HorizontalAlignment =1 &&水平(1-默认、2-靠左、3-居中、4-靠右、5-填充、6=两端对齐、7=跨列居中、8=分散对齐)
oExcel.Range("A4:c4").VerticalAlignment =2 &&垂直(1=靠上、2=居中、3=靠下、4=两端对齐、5=分散对齐)
*!* 49．拷贝整个工作表（含格式）
oExcel.activesheet.cells.Copy &&拷贝
oExcel.sheets(1).Select &&选择第一工作表
oExcel.ActiveSheet.Paste &&粘贴
oExcel.ActiveSheet.Cells(3,4).Value && ActiveSheet 为当前的Sheet工作薄名字，
Cells(3,4).value 为第3行第4列的值
*以上控制调用语句在中文VFP5.0企业版下运行通过，运行环境为Excel 97及中文Windows 98
*!* 50．显示某个单元格的批注内容
oExcel=Createobject("Excel.application")
oExcel.Workbooks.Open("d:/TEST/testa.xls")
oExcel.Visible=.T.
?oExcel.Range("B5").Comment.Text &&显示B5单元格的批注内容
oExcel.Workbooks.Close
oExcel.Quit
Release oExcel
*!* 51．oExcel.ActiveSheet.PageSetup.PrintTitleRows="$1:$1" &&每页都打印行标头（每页顶部出现的单元格的行）
*!* 52．保护工作表：
oExcel.ActiveSheet.Protect('密码
',.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.)
*!* 53．保护工作薄
oExcel.ActiveWorkbook.Protect('密码',.T.,.T.)
第一个.T.：保护工作簿结构
第二个.T.：保护工作簿窗口
*!* 54．设置允许用户编辑区域
oExcel.ActiveSheet.Protection.AllowEditRanges.Add("区域
3",oExcel.ActiveSheet.Range("A2:D5"))
*!* 55．如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，就将本属性设置为.F. oExcel.DisplayAlerts = .F.
如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，就将本属性设置为 False；这样每次出现需用户应答的消息时，Microsoft Excel 将选择默认应答。
如果将本属性设置为 False，那么宏运行结束后， Microsoft Excel 并不自动将其设置回 True。故当宏运行结束后，都应将本属性设置回 True 值。
*!* 56．将当前工作表中的已用区域（只读）存入数组。
strPath='D:/TEST/123.xls'
Local oExcel
oExcel=Createobject("Excel.Application")
oExcel.WorkBooks.Open(strPath)
arrTableInfo=https://www.doczj.com/doc/9d16776205.html,edRange.Value &&将当前工作表中的已用区域（只读）存入数组。
oExcel.Quit
Release oExcel
Insert Into 表名From arrTableInfo
*!* 57．设置excel批注的字体(excel 2000实现了，如下：)
ole.Range("a3").Comment.Shape.Select && 此命令要求批注的 Visible=.t.
ole.Selection.Font.Size=9
https://www.doczj.com/doc/9d16776205.html,="黑体"
ole.Selection.Font.bold=.F.
注：该组命令要求先选中批注框，否则写成 ole.Range("a3").Comment.Shape.Font.Size=9 则出错，不知为何！
*!* 58．如何取得当前EXCEL表中工作表的数目及各工作表的名称？
Clear
Local lnSheetCount
oExcel=Createobject("EXCEL.APPLICATION") &&创建Excel对象
oExcel.WORKBOOKS.Open("c:/111/321.xls") &&打开指定工作簿
With oExcel
lnSheetCount=.WorkBooks(1).Sheets.Count &&统计工作表数量
Endwith
?'当前EXCEL表中工作表的数目为：'+Alltrim(Str(lnSheetCount))
For Each oMyVar In oExcel.sheets
?'当前EXCEL表中工作表的名称分别为'+https://www.doczj.com/doc/9d16776205.html, &&显示Excel表中所有工作表
Next oMyVar
oExcel.WORKBOOKS.Close &&关闭工作簿
oExcel.Quit &&退出Excel
*!* 59．获取工作表名称
在以下示例中，创建了一个 microsoft excel 实例，添加了一个新的工作簿。使用 foreach 语句显示工作簿中每个工作表的名称。此示例要求在运行示例的机器上正确安装 microsoft excel。oExcel = Create("Excel.Application")
oExcel.Workbooks.Add
For Each oMyVar In oExcel.sheets
? https://www.doczj.com/doc/9d16776205.html,
Next oMyVar
*!* 60．虽然用APPEND From tx.Xls Type XL8可以更简单的追加数据，但有时会导致程序非法错误退出（除非先另存为Excel 5.0）
*!* 61．VFP控制EXCL文件另存为DBF（EXCEL后台运行)
fil=Thisform.List1.Value &&其值为一个包含路径的文件名
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open(fil) &&打开文件
oExcel.Selection.AutoFilter &&关闭(如果无则打开)自动筛选
oExcel.Range("A1:F1000").Select &&选中从第1行到1000行的前6列数据(另存后只有这些数据)
asfil=Strtran(Upper(Strtran(fil,Substr(fil,1,Rat('/',fil)),'c:/windows/desktop/cphz /')),'.XLS','.dbf')&&要保存的文件名
If File(asfil)
Delete File &asfil
Endif
oExcel.ActiveWorkbook.SaveAs(asfil,8) &&另存为DBF
oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量
*************VFP中例子******************
lcFileName='D:/TEST.XLS'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
R=oExcel.SHEETS(1).UsedRange.Rows.Count &&有数据的总行数
C=oExcel.SHEETS(1).UsedRange.Columns.Count &&有数据的总列数
oExcel.Cells(R,C).Select &&选中数据
oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式
oExcel.Columns.AutoFit &&让所有的列宽都自动调整
oExcel.DisplayAlerts=.F.
oExcel.ActiveWorkbook.SaveAs('D:/TEST.DBF',8) &&另存为DBF
*oExcel.ActiveWorkbook.SaveAs('D:/NewTest.xls',39) &&另存为5.0的Excel，或用43表示95/97格式
oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量
Messagebox('Excel文件:D:/TEST.XLS 另存为 D:/TEST.DBF 完成！',64,'信息提示')
***********VB例子*************
'功能：VB调用Excel，将一个Excel文件另存为Dbf。'
'前提：要安装Excel'
Dim oExcel As Object
lcSFileName = "D:/test.xls" '源Excel文件名
lcDFileName = "D:/test1.dbf" '目标Dbf文件名
Set oExcel = Createobject("Excel.Application") '创建Excel对象
oExcel.Workbooks.Open (lcSFileName) '打开Excel表
*R = oExcel.SHEETS(1).UsedRange.ROWS.Count '有数据的总行数
*C = oExcel.SHEETS(1).UsedRange.Columns.Count '有数据的总列数
*oExcel.Cells(R, C).Select '选中数据
*oExcel.Columns.AutoFit '让所有的列宽都自动调整
oExcel.DisplayAlerts = Flase '不显示提示框
oExcel.ActiveWorkbook.SaveAs FileName:=lcDFileName, FileFormat:=8
oExcel.ActiveWorkbook.saved = Ture '不保存当前EXCEL表
oExcel.Workbooks.Close '关闭表
oExcel.Quit '退出EXCEL
Set oExcel = Nothing '释放对象
MsgBox ("Excel文件: " & lcSFileName & " 另存为 " & lcDFileName & " 完成！")
*!* 62．VFP用ADO连接Excel,然后将Excel内容导出DBF的方法
*--以下代码是将123.XLS中的SHEET5中的内容转换成RR.DBF
oConnection = Createobject("adodb.connection") &&建立连接对象
With oConnection
.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:/temp/123.xls;Extended Properties="excel 8.0;HDR=YES;IMEX=1;";Persist Security Info=False'
.Open
Endwith
oConnection.EXECUTE('select * into [dBase III;DataBase=d:/temp].rr from [sheet5$]') oConnection.Close
*!* 63．设置打印参数：
用Excel做报表，可打印时怎么选择打印机，即.ActiveWindow.SelectedSheets.PrintOut的参数有哪些？
Expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
Expression 必选。该表达式返回“应用于”列表中的某个对象。
From Variant 类型，可选。打印的开始页号。如果省略该参数，将从起始位置开始打印。
To Variant 类型，可选。打印的终止页号。如果省略该参数，将打印至最后一页。
Copies Variant 类型，可选。要打印的份数。如果省略该参数，将只打印一份。
Preview Variant 类型，可选。如果为 True 则 Microsoft Excel 打印指定对象之前进行打印预览。如果为 False，或者省略此参数则立即打印该对象。
ActivePrinter Variant 类型，可选。设置活动打印机的名称。
PrintToFile Variant 类型，可选。如果为 True 则打印输出到文件。如果没有指定PrToFileName，则 Microsoft Excel 将提示用户输入要输出文件的文件名。
Collate Variant 类型，可选。如果为 True 则逐份打印每份副本。
PrToFileName 可选，Variant 类型。如果将 PrintToFile 设置为 True，则本参数指定要打印到的文件名。
说明
From 参数和To 参数所描述的“页”指的是要打印的页，并非指定工作表或工作簿中的全部页。
*!* 64．如何用编程的方法打开有密码的Excel文件？
*Excel文件加了密码，如何在VFP中用编程的方式把密码输入，使Excel文件打开
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open("d:/22.xls")
这样还有一个密码的对话框出来，需要输入密码才能打开文件。
*!* 65．如何用编程的方法直接打开有密码的Excel文件？
oEle.Workbooks.Open("d:/22.xls",.F.,.F., ,"123","456")
"123"表示打开权限的密码,
"456"表示修改权限的密码.
*!* 66．如何将一个已知路径的图片插入到excel中.
oexcel1.ActiveSheet.PictureS.Insert("图片文件名")
*!* 67．能不能指定在某一位置或区域放置图片并控制图片显示大小呢?
OLEAPP.SHEETS(1).Select
oleapp.Range("位置").Select
oleapp.ActiveSheet.PictureS.Insert("图片文件名")).Select
oleapp.Selection.ShapeRange.LockAspectRatio =.T.
oleapp.Selection.ShapeRange.Height = 57
*!* 68．类型为字符型的字段输出到excel 中，前面的零被自动去掉，例如“009877”变为“9877”，怎么解决？
1.在字符串前面加半角单引号“ ' ”，
例如：
o.Cells(1,1).Value="'0123"
或用变量
cString="'"+"0123" &&其中0123可以取自表中一个字段
o.Cells(1,1).Value=cString &&o.Range("A1:A1").value=cString
2.
oExcel.CELLS(1,1).Select &&或eole.Range("A1:E1").Select
oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式
oExcel.Cells(1,1).Value="0123" &&给所选单元格覆值
*!* 69．在 Excel 中插入行和列 :
objExcel.Rows(1).Insert() &&在第一行前面插入一行
objExcel.Columns(2).Insert() &&在第二列前面插入一列
*!* 70．获取 Excel 记录数
loXls = Createobject("excel.application")
bookExcel = loXls.Application.Workbooks.Open("f:/pz.xls")
nrows=bookExcel.Worksheets('pz')
UsedRange =https://www.doczj.com/doc/9d16776205.html,edRange
r=UsedRange.Rows.Count &&有数据的总行数
c=UsedRange.Columns.Count &&有数据的总列数
loXls.Workbooks.Close
loXls.Quit
*!* 71．在EXCEL中如何在打开文件的同时自动执行一个宏命令。
只要将宏的命名为 AUTO_OPEN 即可。
如果要在文件关闭时运行，则命名为auto_close 。
*!* 72．在VFP中可以执行EXCEL的选择性粘贴吗?
.Range("A2").PasteSpecial ("xlPasteValues") && 会出错
.Range("A2").PasteSpecial (3) && 也会出错
.Range("A2").PasteSpecial && 只好这样了
*!* 73．如何才能只粘贴值呢?
xlPasteValues=-4163
oExcel.Range("A1").Select
oExcel.Selection.Copy
oExcel.Range("B1")._PasteSpecial(xlPasteValues)
*注意:在Excel 中，"xlPasteValues"是一个常量，它的值是一个数值型的：-4163 oExcel.Range("A1").Copy
oExcel.Range("B3").PasteSpecial(8) &&粘贴行、列宽
oExcel.Range("B3").PasteSpecial(-4122) &&粘贴格式
*!* 74．如何从excel读取数据
*******建立一个excel对象*******
Local hb1 As excel.Application
csheetname=Trim(Thisform.text2.Value)&&读取用户要读取excel的sheet名
***读取数据源所在的EXCEL文件名****
If Empty(Trim(Thisformset.filepath))
Messagebox("请先选择要导入的excel文件！",0,"提示")
Return
Endif
If Empty(Trim(csheetname))
Messagebox("请先选择要导入的工作表sheet名称！",0,"提示")
Return
Endif
Try
hb1=Createobject("excel.application")
Catch
Messagebox("请检查你是否已安装microsoft excel应用程序！",0,"提示") Endtry
***打开EXCEL对象，开始读取数据********
HB1.workbooks.Open(Trim(Thisformset.filepath))
hb1.Sheets(csheetname).Select
Sele Store&&这是要读取的数据存放的表
Zap
isend=.F. &&用于判断是否记录已到底
i=1
Do While isend=.F.
Append Blank
crq=Dtoc(drq)
cdh=hb1.Cells(i,1).Value
If Isnull(cdh)
cdh=""
Endif
**用于判断数据类型，数据类型一定要判断是否为NULL，**
** 然后如果不是指定的类型，还要进行转换*************
If Type("cdh")<>'C'
cdh=Alltrim(Str(cdh))
Endif
cdwmc=Trim(hb1.Cells(i,2).Value)
If Isnull(cdwmc)
cdwmc=""
Endif
cgg=hb1.Cells(i,3).Value
If Isnull(cgg)
cgg=""
Else
If Type("cgg")<>'C'
cgg=Alltrim(Str(cgg))
Endif
Endif
cjldw=hb1.Cells(i,4).Value
If Isnull(cjldw)
cjldw=""
Endif
cjldw=Iif(Type("jldw")<>"C",Alltrim(Str(cjldw)),Alltrim(cjldw)) nsl=hb1.Cells(i,5).Value
If Isnull(nsl)
nsl=0
Endif
cch=Trim(hb1.Cells(i,6).Value)
If Isnull(cch)
cch=''
Endif
cxh=hb1.Cells(i,8).Value
If Isnull(cxh)
cxh=""
Else
If Type("cxh")<>'C'
cxh=Trim(Str(cxh))
Else
cxh=Trim(cxh)
Endif
Endif
ccpmc=hb1.Cells(i,9).Value
If Isnull(ccpmc)
ccpmc=''
Endif
If Type("ccpmc")<>'C'
ccpmc=Alltrim(Str(ccpmc))
Else
ccpmc=Trim(ccpmc)
Endif
Select Store
Replace rq With crq,dh With cdh,dwmc With cdwmc,gg With cgg,jldw With cjldw,sl With nsl,ch With cch,cpbh With cxh,cpmc With ccpmc
i=i+1
&&如果一行全为空，记作记录到底，如果中间存在多行的问题，我没有做考虑****
If Empty(cxh) And nsl=0 And Empty(cch) And Empty(cjldw) And Empty(cdh)
And Empty(cgg)
isend=.T.
Endif
Enddo
Dele &&最后一行为空行，删除
Wait "共转换得到"+Alltrim(Str(Reccount()))+"条记录！" Window Timeout 2
hb1.Quit
*!* 75．本程序通过将原dbf表拷成excel格式,然后导入并设置报表格式
Para tablename
Local hb1 As excel.Application
Wait "正在导出数据，请稍侯……"Window At 20,30 Timeout 1
bhaveerror=.F. &&定义一个变量判断是否发生错误
Try
hb1=Createobject("excel.application")
Catch
Messagebox("请检查你是否已安装microsoft excel应用程序！",0,"提示")
bhaveerror=.T.
Endtry
If bhaveerror=.T.
Return
Endif
If Right(curr_path,1)<>'/'
curr_path=curr_path+"/"
Endif
ctablename=tablename+"_excel"
filepath=curr_path+"temp/sheet1.xls"
*filepath="temp/sheet1.xls"
If !File(filepath)
Messagebox("数据源的excel文件未生成，报表生成被终止！")
Return
Endif
HB1.workbooks.Open(filepath)
HB1.SHEETS("sheet1").Select
hb1.sheets(1).Rows(1).entirerow.Insert
hb1.sheets(1).Rows(1).entirerow.Insert
Sele (ctablename)
nfieldcount=Fcount()
nreccount=Reccount()
hbdygs="A1:"+Chr(nfieldcount+64)+"2"
HB1.Range(hbdygs).Select
****合并两行作为报表标题*************
HB1.Selection.HorizontalAlignment = 3 &&水平方向 2左对齐，3居中，4右对齐HB1.Selection.VerticalAlignment = 2 &&垂直方向 1靠上，2居中，3靠下
HB1.Selection.WrapText = .F. && ??
HB1.Selection.Orientation = 0 && ??
HB1.Selection.AddIndent = .F. && ??
HB1.Selection.ShrinkToFit = .F. && ??
HB1.Selection.MergeCells = .T. && ??
HB1.Range(hbdygs).FormulaR1C1 = "请输入报表标题"
HB1.Range(hbdygs)https://www.doczj.com/doc/9d16776205.html, = "隶书"
HB1.Range(hbdygs).Characters.Font.FontStyle = "常规"
HB1.Range(hbdygs).Characters.Font.ColorIndex = 1 &&字符颜色
***根据数据源表结构的宽度设置列的宽度********
Copy Stru Exte To temp/term_stru
Sele 0
Use temp/term_stru
Select (ctablename)
For i=1 To nfieldcount
cvalue=Allt(Field(i))
Select term_stru
Loca For Lower(Allt(field_name))==cvalue
If Found()
columnname=Chr(i+64)+":"+Chr(i+64)
hb1.Columns(columnname).ColumnWidth=field_len
Endif
Sele (ctablename)
Endfor
Sele term_stru
Use
activecellname=Chr(nfieldcount+64)+Allt(Str(nreccount+3))
*************设置数据区域的字体格式***************
HB1.Range("A3:"+activecellname)https://www.doczj.com/doc/9d16776205.html, = "宋体"
HB1.Range("A3:"+activecellname).Characters.Font.Size= 9
HB1.Range("A3:"+activecellname).Select
hb1.Selection.BorderS(1).LineStyle = .T.
hb1.Selection.BorderS(2).linestyle = .T.
hb1.Selection.BorderS(3).linestyle = .T.
hb1.Selection.BorderS(4).linestyle = .T.
hb1.ActiveWorkbook.SaveAs("c:/aa.xls")
hb1.Application.Visible=.T.
* HB1.ACTIVEWORKBOOK.SAVE &&自动保存数据
* HB1.ACTIVEWORKBOOK.CLOSE &&关闭当前工作簿
* HB1.QUIT
*!* 76．如何修改sheet工作表名：
EFILENAME='D:/TEST/TEMPA.XLS'
oExcel=Createobject("Excel.application")
oExcel.Workbooks.Open("&EFILENAME")
oExcel.Visible=.T.
oExcel.Worksheets("Sheet2").Select
oExcel.Worksheets("Sheet2").Name='NewSheet' &&这里的NewSheet为新的名字。
*!* 77．复制Sheet工作表
EFILENAME='D:/你的Excel表名.XLS'
oExcel=Createobject("Excel.application")
电子表格中的数据处理（教案） 教学科目:计算机应用基础授课人:何庆宇 教学地点:4号机房（四楼）教学对象:机电1201班 教学课题:电子表格中的数据处理教学时数: 2课时（两节连上）教学目标 一、知识目标 1、掌握并熟练的运用一般的函数公式； 2、掌握基本的数据排序功能，了解复杂的排序操作； 3、掌握数据的自动筛选，能对数据进行简单的筛选； 4、掌握数据的高级筛选。 二、能力目标 1、培养学生自主学习、协作学习的能力； 2、培养学生的动手操作、综合实践的能力； 3、培养学生的信息处理能力。 三、德育目标 培养学生尊重科学、应用科学的意识。 教学重点: 1、数据处理中的公式应用 2、基本的数据排序 3、数据的自动筛选和高级筛选 教学难点: 1、数据的复杂排序 2、数据的多条件自动筛选 3、数据的高级筛选 教学方法：演示教学法、实践教学法、任务驱动法 教学过程： [复习引入]
前面我们已经学习了对电子表格的行列、单元格格式、表格边框线、批注、打印标题等的设置，这些都是针对工作簿的基本操作，而接下来我们要学习的是如何对电子表格中的数据进行处理。今天我们先来学习掌握公式应用、数据排序、数据的自动筛选和高级筛选这四个基本操作。 [讲授新课] （一）应用公式 1．常用函数公式 ①求和 ②平均值 ③计数 ④最大值 ⑤最小值 2．公式的创建 老师：结合教材中的例子7.1，通过教学平台中的广播软件向学生演示在电子表格教学课件7-1的sheet1中创建公式的过程，边讲边操作。 求和公式——演示步骤： （1）单击需要填充内容的单元格； （2）单击编辑栏中的倒三角按钮，选择“求和”后，选取所要求和的数据区域，按下enter键。 注意：当我们选取单元格区域C2:G3（如图：）时，Excel会默认所选取行区域的最后一个空白单元格作为放置接下来操作所得数据的位置，单击快捷编辑栏中的倒三角按钮，在下拉菜单中选取“求和”，此时出现的效果和上述是一样。 求平均值——演示步骤： （1）单击需要填充内容的单元格，如右图所示 （2）单击编辑栏中的倒三角按钮，选择“平均值”后，选取所要 求平均值的数据区域，按下enter键。 老师：请学生在电子表格7-1的sheet1中演示求和与求平均值的步
vfp直接读取EXCEL文件示例 vfp直接读取EXCEL文件的示例(转)。 M_File=GETFILE('xls','订单文件') IF M_File="" =MESSAGEBOX("请选择待导入的收订单文件！",0+48,"提示") RETURN ELSE IF JUSTEXT(M_FILE)#"XLS" &&获得文件扩展名 =MESSAGEBOX("您选择的不是EXCEL文档！",0+48,"提示") RETURN ENDIF ENDIF USE 图书订单表 ZAP myexcel=createobject('excel.application') &&创建一个对象 myexcel.visible=.f.&&不可见 bookexcel=myexcel.workbooks.open(M_File) &&打开指定文件 o_SheetName=https://www.doczj.com/doc/9d16776205.html,&&获取当前激活工作表的名称UsedRange =bookexcel.worksheets(o_SheetName).UsedRange&&返回工作表中可使用的区域，UsedRange表的属性 o_rows=UsedRange.rows.count&&汇总行 o_cols=UsedRange.columns.count&&汇总列 IF o_rows<=1 =MESSAGEBOX("待导入数据行数太少，请检查！",0+16,"提示") ELSE FOR i=2 TO o_rows m1=myexcel.cells(i,1).value &&书号 m2=myexcel.cells(i,2).value &&书名 m3=myexcel.cells(i,3).value &&出版社 m4=myexcel.cells(i,4).value &&作者 m5=myexcel.cells(i,5).value &&定价 m6=myexcel.cells(i,6).value &&数量 APPEND BLANK REPLACE 书号WITH m1,书名WITH m2,出版社WITH m3,作者WITH m4,定价WITH m5,数量WITH m6 ENDFOR ENDIF myexcel.workbooks.close&&关闭工作区 myexcel.quit&&关闭excel brow
电子表格练习题 1、创建学生成绩单 学生成绩单 1、操作程序说明 （1）启动Excel及汉字输入方法； （2）按试题容输入； （3）总评成绩必须是公式计算，总评成绩的算法是：平时成绩占10%、期中成绩占20%、期末成绩占70%； （4）按下列要求进行排版：标题为黑体、20号字、合并及居中、不加边框；列标题为居中对齐；正文加边框；“”一列分散对齐；备注中的容合并及居中，自动换行； （5）在C盘下创建文件夹，文件夹名为自己所抽取的技能现场号；把工作簿保存到自己创建的文件夹中，文件名为自己所抽取的技能现场号。
2、创建员工奖金表 好汉公司员工一季度奖金表 三、操作程序规定及说明 1、操作程序说明 （1）启动Excel及汉字输入方法； （2）按试题容输入； （3）手动输入公式计算平均每月 （4）按下列要求进行排版：标题为隶书、20号字、合并及居中、无边框；列标题为粗体、14号字、居中对齐；正文居中对齐、字体、字号为默认； （5）在C盘下创建文件夹，文件夹名为自己所抽取的技能现场号；把工作簿保存到自己创建的文件夹中，文件名为自己所抽取的技能现场号。
3、设置条件格式 三国学生成绩单 三、操作程序规定及说明 1、操作程序说明 （1）启动Excel 及汉字输入法； （2）按试题容输入工作表；平均成绩要求用公式计算； （3）按要求设置格式：标题为合并及居中、华文宋体、20号字、无边框；列标题采用华文行楷、16号字，居中对齐；行标志采用华文新、14号字、分散对齐，正文采用居中对齐方式，其它 正文采用默认格式；按要求设置条件格式：90分以上（含90分）的成绩显示成粗体、深蓝 色；60-90之间的（含60分，不含90分）显示绿色；低于60分的显示粗体、红色； （4）在C盘下创建文件夹，文件夹名为自己所抽取的技能现场号；把工作簿保存到自己创建的文件夹中，文件名为自己所抽取的技能现场号。
Example: SET DEFAULT TO c:\ clear oleapp=createobject("excel.application") oleapp.visible=.t. && 显示Excel oleapp.workbooks.add **设单元格的值（报表标题）: oleapp.cells(1,1).value="aaa" oleapp.cells(1,2).value="bbb" oleapp.cells(1,3).value="ccc" oleapp.cells(1,4).value="ddd" oleapp.cells(1,5).value="eee" **打开表并取得记录数 USE c:\bank\data\zyb.dbf SHARED jl=reccount()-1 &&记录数 **将表中的记录数据放到Excel工作簿的单元格中 for i=0 to jl go i+1 &&第i+1条记录 oleapp.cells(2+i,1).value=zyb.bh oleapp.cells(2+i,2).value=zyb.xm oleapp.cells(2+i,3).value=zyb.kl oleapp.cells(2+i,4).value=1+1 endfor oleapp.activeworkbook.saveas("C:\Documents and Settings\Administrator\桌面\KL.xls") * oleapp.activeworkbook.saveas(?) ********************************************************* 利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍： 1．创建Excel对象 eole=CREATEOBJECT(′Excel.application′) 2．添加新工作簿 eole.Workbooks.add 3．设置第3个工作表为激活工作表 eole.Worksheets(″sheet3″).Activate 4．打开指定工作簿 eole.Workbooks.Open(″c:\temp\ll.x ls″) 5．显示Excel窗口 eole.visible=.t. 6．更改Excel标题栏 eole.Caption=″VFP应用程序调用Microsoft Excel″ 7．给单元格赋值 eole.cells(1,4).value=XM(XM为数据库字段名) 8．设置指定列的宽度(单位：字符个数)
1．创建Excel对象 oExcel=Createobject("Excel.application") 2．添加新工作簿 oExcel.Workbooks.Add 3．设置第3个工作表为激活工作表 oExcel.Worksheets("sheet3").Activate 4．打开指定工作簿 oExcel.Workbooks.Open("c:\temp\ll.xls") 5．显示Excel窗口 oExcel.Visible=.T. 6．更改Excel标题栏 oExcel.Caption="VFP应用程序调用Microsoft Excel" 7．给单元格赋值 oExcel.cells(1,4).Value=XM(XM为数据库字段名) 8．设置指定列的宽度(单位：字符个数) oExcel.ActiveSheet.Columns(1).ColumnWidth=5 9．设置指定行的高度(单位：磅) oExcel.ActiveSheet.Rows(1).RowHeight=1&&(设定行高为1磅，1磅=0.035厘米) oExcel.ActiveSheet.Rows("50:100").RowHeight=1 &&设置第50行至100行的高度 10．在第18行之前插入分页符 oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1 11．在第4列之前删除分页符 oExcel.ActiveSheet.Columns(4).PageBreak=0 12．指定边框线宽度(Borders参数如下) ole.ActiveSheet.Range("b3:d3").BorderS(2).Weight=3 13．设置四个边框线条的类型 oExcel.ActiveSheet.Range("b3:d3").BorderS(2).LineStyle=1 (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) 14．设置页眉 oExcel.ActiveSheet.PageSetup.CenterHeader="报表1" 15．设置页眉(字体大小) oExcel.ActiveSheet.PageSetup.CenterHeader="&50报表1" &&'&'后面的50可以自定义，表示字体的大小 16．设置页脚 oExcel.ActiveSheet.PageSetup.CenterFooter="第&P页" 17.设置页脚(字体大小) oExcel.ActiveSheet.PageSetup.CenterFooter="&28第&P页" &&'&'后面的28可以自定义，表示字体的大小 18．设置页眉到顶端边距为2厘米 oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035 19．设置页脚到底边距为3厘米 oExcel.ActiveSheet.PageSetup.FooterMargin=3/0.035
第五章EXCEL 操作练习题 在 日常办公事务中，人们经常还需要处理一些数据报表和打印各种表格。表格处理软件（又称电子表格软件）就是帮助我们处理这些工作的有效工具。其中微软公司开发的EXCEL正是这种软件工具的优秀代表。该软件的最初版本是EXCEL 2．0于1987年由微软公司推出，后经不断改进、升级，于1995年推出了面向WINDOW95平台有EXCEL版，于1997年推出了EXCEL97。现在我们介绍的是EXCEL2000是微软办公套件OFFICE2000中重要组件之一。现国内用户一般所用的都是EXCEL2000中文版。 145
一、EXCEL主要有以下功能； 1．具有方便的制表功能，利用表格设计、数据组织、页面布局的调整和打印格式的设置，是一项很容易的工作。 2．提供简单易用的数据图表功能。用户可以在数据报表中嵌入图表，并使图表随着数据的修改而变化。 3．提供精巧的图形功能。用户可以利用绘图工具绘制各种图形，产生艺术字嵌入其它图形，从而得到漂亮的报表。 4．提供得心应手的数据分析工具。借助其内置有“分析工具库”用户可以方便地进行多种应用数据的分析和统 计。 146
练习1 EXCEL基本操作 一、练习目的 1.掌握EXCEL的启动 2.掌握EXCEL中单元格的复制和粘贴 二、练习内容 1. 练习启动和退出EXCEL 2. 利用快捷键CTRL＋C和CTRL＋V练习将一个单元格内容的复制到另一个单元格中。 3. 利用快捷键CTRL＋C和CTRL＋V练习将一个单元格内容的复制到几个不同的单元格中 练习2 EXCEL基本操作 一、练习目的 掌握EXCEL单元格的自动填充 二、练习内容 1. 完成横向表格的月份自动填充。 2. 成纵向表格的年份自动填充。 147
在VFP中直接来控制Excel （转载） *!*VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍： oExcel=Createobject("Excel.application") &&创建Excel对象 **对象属性 oExcel.Visible=.T. &&显示Excel窗口 oExcel.Caption="VFP应用程序调用Microsoft Excel" &&更改Excel标题栏 oExcel.DisplayAlerts = .F. &&关闭提示和警告消息，运行结束后，应将本属性设置回 True 值 oExcel.cells(1,4).Value=XM(XM为数据库字段名) &&给单元格赋值 **Workbooks属性 oExcel.Workbooks.Add &&添加新工作簿 oExcel.Workbooks.Open("c:\temp\ll.xls") &&打开指定工作簿 oExcel.Workbooks.Close &&关闭工作簿 oExcel.Quit &&退出Excel Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭 **Worksheets属性 oExcel.Worksheets("sheet3").Activate &&设置第3个工作表为激活工作表 oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1 &&在第18行之前插入分页符 oExcel.WorkSheet("Sheet2").Range("A1").PasteSpecial &&粘贴 **ActiveWorkbook属性
计算机一级Excel操作题训练 一、请在"考试项目"菜单上选择"电子表格软件使用"菜单项，完成下面的内容： （所有的电子表格文件都必须建立在指定的文件夹中。） 1. 打开工作簿文件EX1.XLS（内容如下），将工作表sheet1的A1：C1单元格合并为一个单元格，内容居中，计算"数量"列的"总计"项及"所占比例"列的内容（所占比例=数量/总计），将工作表命名为"人力资源情况表"。 2. 取"人力资源情况表"的"人员类型"列和"所占比例"列的单元格内容（不包括"总计"行），建立"分离型饼图"，数据标志为"显示百分比"，标题为"人力资源情况图"，插入到表的A9：E29单元格区域内。 二、请在"考试项目"菜单上选择"电子表格软件使用"菜单项，完成下面的内容： （所有的电子表格文件都必须建立在指定的文件夹中。） 在考生文件夹下创建工作簿文件EX2.XLS，按要求在EX2.XLS中完成以下操作。 1. 在sheet1工作表中建立如下内容工作表，并用函数求出每人的全年工资，表格数据全部为紫色、19磅、居中放置，并自动调整行高和列宽，数值数据加美元货币符号，表格标题为绿色，合并居中，工作表命名为"工资表"。 2. 将工资表复制为一个名为"排序"的新工作表，在"排序"工作表中，按全年工资从高到低排序，全年工资相同时按10～12月工资从大到小排，结果保存在EX2.XLS中。 3. 将工资表复制为一张新工作表，并为此表数据创建"簇状柱形图"，横坐标为"各季度"，图例为"姓名"，工作表名为"图表"，图表标题为"工资图表"。结果保存在EX2.XLS中。 三、请在"考试项目"菜单上选择"电子表格软件使用"菜单项，完成下面的内容： （所有的电子表格文件都必须建立在指定的文件夹中。） 在考生文件夹下创建工作簿文件EX3.XLS，按要求在EX3.XLS中完成以下操作： 1. 在sheet1工作表中建立如下内容的工作表，并用公式求出每人的月平均工资，并为其添加人民币符号，全表数据15磅、居中，行高22，列宽15。标题倾斜加下划线、合并居中。工作表命名为"工资表"。
有人形容高尔夫的18洞就好像人生，障碍重重，坎坷不断。然而一旦踏上了球场，你就必须集中注意力，独立面对比赛中可能出现的各种困难，并且承担一切后果。也许，常常还会遇到这样的情况：你刚刚还在为抓到一个小鸟球而欢呼雀跃，下一刻大风就把小白球吹跑了；或者你才在上一个洞吞了柏忌，下一个洞 你就为抓了老鹰而兴奋不已。 Excel表格处理及数据处理的高级应用 一、公式 公式是用户自己定义的数学表达式。 ?Excel的计算功能可以通过公式来完成 ?公式以等号开头，由运算符和运算对象组成，例如： =10+12 =A1+C6 =A1*B2 =(10+A5)/2 思考：1、如果公式计算机没有以等号开头将是什么结果？ 2、如果在EXCEL中用公式计算机结果放B3单元格中，输入公式=A3-B3将出现什么结果？ 。 动手做一做：如下图所示，求出每位同学的总分及平均分
有人形容高尔夫的18洞就好像人生，障碍重重，坎坷不断。然而一旦踏上了球场，你就必须集中注意力，独立面对比赛中可能出现的各种困难，并且承担一切后果。也许，常常还会遇到这样的情况：你刚刚还在为抓到一个小鸟球而欢呼雀跃，下一刻大风就把小白球吹跑了；或者你才在上一个洞吞了柏忌，下一个洞 你就为抓了老鹰而兴奋不已。 ?具体操作 选中单元格E2，输入=B2+C2+D2 后回车 选中单元格E2 ，向下填充到E15 求平均分怎么做呢？请同学们自行做一做。 二、函数 ?什么是函数？ 如下图所示，若求出所有数字的和，在A8单元格中输入：=A1+A2+A3+A4+A5+A6+A7 ?如果上例中的数字更多，公式会更长。为此Excel引入了函数，使用函数可以方便的解决上述问题
VF中控制EXCEL的常用操作 myexcel=createobject('excel.application') &&创建一个对象 myexcel.visible=.t.&&可见 &&bookexcel=myexcel.workbooks.add bookexcel=myexcel.workbooks.open("C:\Documents and Settings\Administrator\桌面\学习\dd.xls") &&打开指定文件 nrows=bookexcel.worksheets('sheet1')&&打开工作表 UsedRange =https://www.doczj.com/doc/9d16776205.html,edRange&&返回工作表中可使用的区域，UsedRange表的属性 usedrange.columns.count&&计算共几列 r=usedrange.rows.count&&汇总行 c=usedrange.columns.count&&汇总列 with myexcel.application .sheets('sheet3').select .sheets.add&&添加一个工作表 https://www.doczj.com/doc/9d16776205.html, = 'ddddd'&&重命名表 endwith myexcel.Worksheets('sheet1').Activate&&选择表为当前工作表 myexcel.cells(1,1).value='sss'&&1,1处的值为 myexcel.activesheet.columns(2).columnwidth=15&&第2列的列宽设myexcel.activesheet.rows(2).rowheight=50&&设第2行的行高 myexcel.activesheet.rows(2).insert&&第2行前插入一行 myexcel.activesheet.columns(2).insert&&第2列前插入一列 myexcel.activesheet.Cells(1,1).Font.size=25&&设置1，1的字体大小myexcel.activesheet.Cells(1,1)https://www.doczj.com/doc/9d16776205.html,='黑体'&&设置字体 myexcel.activesheet.Cells(1,1).clear&&清除内容 myexcel.activesheet.range('A1:C2').select&&选择区域 myexcel.selection.merge &&选择区域合并单元格 myexcel.Range('a1').Formula='=sum(b2,b3,b4,b5)'&&在A1中键入一个公式 myexcel.range('a1').ClearContents myexcel.activesheet.Columns('A:B').Select&&整列选中 myexcel.Selection.NumberFormatLocal="@" &&设置选中的区域为字符型数据 myexcel.activesheet.rows(1).select myexcel.Selection.EntireRow.Delete&&删除选中的行 myexcel.Selection.columns(1).Delete&&删除第几的列 myexcel.workbooks.close&&关闭工作区
Excel电子表格试题 一、单项选择题 1.在保存新建的Excel2010工作簿的操作过程中，默认的工作簿文件名是（）。 A.工作簿1 B.工作表1 C.文档1 D.电子表格1 2.Excel启动后，系统默认打开的工作表数目是（）个。 A.2 B.3 C.4 D.5 3.如果当前工作簿有4个工作表，此时再插入一个工作表，其默认的工作表名为（）。 A.Sheet4 B.Sheet(4) C.Sheet5 D.Sheet(5) 4.对工作表进行添加或删除、复制、重命名等操作后（）。 A.无法撤消 B.可以撤消 C.删除不能撤消，其它可以撤消 D.重命名可以撤消，其它不能撤消 5.Excel2010文件的扩展名为（）。 A.xcel B.exls C.xlsx D.exlx 6.工作表是由（）行构成。 A.1048576 B.16384 C.65535 D.256 7.一张工作表是由（）列构成。 A.1048576 B.16384 C.65535 D.256 8.第3行第4列的单元格名字是（）。 A.C4 B.C3 C.E3 D.E4 9.要想复制工作表，可按住（）键不放，使用鼠标拖动标签。 A.Alt B.Ctrl C.Shift D.Esc 10.在Excel中，输入系统当前日期的快捷键是（）。 A.Ctrl+; B.Ctrl+Shif+; C.Shift+; D.Shift+Alt+; 11.输入系统当前时间的快捷键是（）。 A.Ctrl+; B.Ctrl+Shif+; C.Shift+; D.Shift+Alt+; 12.在Excel2010中，活动工作表有（）个。 A.1 B.2 C.3 D.4
VFP控制EXCEL的常用方法 oExl=CREATEOBJECT('Excel.application') oExl.Visible=.T. oExl.DefaultSaveFormat=39 oExl.SheetsInNewWorkbook=1 oExl.Workbooks.Open(cXLS) oExl.WindowState=-4140 &&窗口最小化 oExl.WindowState=-4143 &&窗口正常化 oExl.WindowState=-4147 &&窗口最大化 *------------------------------------------------------* &&页面设置 oExl.ActiveSheet.PageSetup.PrintTitleRows="$1:$3" &&打印标题 oExl.ActiveSheet.PageSetup.Orientation=2 &&页面方向:1纵向/2横向 *oExl.ActiveSheet.PageSetup.PaperSize=11 &&纸张尺寸:9-A4/11-A5 oExl.ActiveSheet.PageSetup.TopMargin=0.8/0.035 &&顶边距 oExl.ActiveSheet.PageSetup.BottomMargin=0.8/0.035 &&底边距 oExl.ActiveSheet.PageSetup.LeftMargin=0 &&左边距 oExl.ActiveSheet.PageSetup.RightMargin=0 &&右边距 oExl.ActiveSheet.PageSetup.CenterHorizontally=.T. &&页面居中 oExl.ActiveSheet.PageSetup.HeaderMargin=0.5/0.035 oExl.ActiveSheet.PageSetup.FooterMargin=0.5/0.035 oExl.ActiveSheet.PageSetup.LeftHeader="&9表格"”9是字号” oExl.ActiveSheet.PageSetup.CenterHeader="" oExl.ActiveSheet.PageSetup.RightHeader="&9" oExl.ActiveSheet.PageSetup.LeftFooter="" oExl.ActiveSheet.PageSetup.CenterFooter="&9第&P页,共&N页" oExl.ActiveSheet.PageSetup.RightFooter="&9制表人:'+代码+' 制表时间:"+TTOC(DATETIME()) *------------------------------------------------------* &&整体格式设置 oExl.ActiveSheet.Rows.Font.Size=9 https://www.doczj.com/doc/9d16776205.html,='宋体' oExl.ActiveSheet.Rows.RowHeight=0.5/0.035 oExl.ActiveSheet.Rows.NumberFormatLocal="0.00_ ;[红色]-0.00" oExl.ActiveSheet.Rows.VerticalAlignment=2 &&单元格内容垂直居中 *------------------------------------------------------* &&获取最大行号和最大列号 Local nMaxRow,nMaxCol nMaxRow=https://www.doczj.com/doc/9d16776205.html,edRange.Rows.Count nMaxCol=https://www.doczj.com/doc/9d16776205.html,edRange.Columns.Count &&表头格式设置 oExl.ActiveSheet.Rows(1).Font.Size=16
数据处理软件Excel (xls)操作题 第一组打开文件“1.XLS”，完成如下操作。 1、删除表格的最后三行（全部删除）。 2、将第1列的列宽设置为‘10’；将第1行行高设置为‘25’。 进入做题环境 第二组打开文件“2.XLS”，完成如下操作。 1、将数学，英语及计算机各列宽度设置为9；把第1行的行高设置为25。 2、将每个人的各科成绩用“SUM”函数求和，并填入到相应的单元格里。 进入做题环境 第三组打开文件“3.XLS”，完成如下操作。 1.在“英语”和“数学”之间增加“计算机”列，成绩分别为92，89，90，88，79。 2.将各科成绩用“MAX”函数求出最高分，填入到相应的单元格里。 进入做题环境 第四组打开文件“4.XLS”，完成如下操作。 1、在职称与基本工资之间插入“教龄”列。 2、并将每位教师“年龄”列的值减20填入到相应的“教龄”列 进入做题环境 第五题：打开文件“5.XLS”，完成如下操作。 1、在“计算机”列后增加“总分”列。 2、用“SUM”函数计算出每位学生的总分，并填入到相应的单元格里。进入做题环境 第六题: 打开文件“6.XLS”，完成如下操作。 1、用函数算出电视机A和电视机B的平均价格，填入到相应的单元格里2，将第1列的列宽设置为‘10’；将第1行行高设置为‘25’。 进入做题环境 第七题: 打开文件“7.XLS”，完成如下操作。 1) 将工作表sheet1的A1：D1单元格合并为一个单元格，内容居中； 2）算"学生均值"行，（学生均值=贷款金额/学生人数，保留小数点后两位） 3）将工作表命名为"助学贷款发放情况表"。 进入做题环境
表格数据的处理教学设计 The document was prepared on January 2, 2021
《数据信息的加工》教学设计 贵阳市民族中学李娟 课型：新授课 授课年级：高一 课时安排：1课时 一、教材分析： 1、《数据信息的加工》是高中信息技术《上海科技教育出版社》基础教材第三章第一节的第三部分内容。对信息进行表格化加工和处理，是信息处理中的一个重要技能，借助表格，可以对表格数据进行处理，从而发现数据之间的关系。 2、主要讲解怎样对表格数据进行常用几种函数的计算和简单的分析。本节内容在教材中占有重要的地位，这个知识点在生活中有着非常广泛的应用，也是Excel数据应用中的一个重点和难点。通过本节学习，使学生能在掌握知识技能的基础上，有针对性的探索和解决实际问题。 二、学情分析： 通过前面的学习，学生对表格处理软件的一些基本理论已有所掌握。学生在初中时已接触过了表格数据的处理，高中阶段的该内容学习，是让学生进一步学习更多的表格数据处理方法，而更重要的是让学生在这节课中主动利用所学知识解决学习和生活的实际问题，而在我们这里就是培养学生分析问题、解决问题的能力。所以，让学生在感兴趣的问题情境中，在教师的启发和引导下，主动进行问题的探究，逐步领会表格信息加工的基本思想、方法和过程。 三、教学目标： 1.知识与技能 （1）了解利用EXCEL处理数据的意义； （2）学会EXCEL常用几个函数的使用方法，并利用填充手柄复制公式； （3）掌握基本的排序、分类汇总、自动筛选等数据分析方法。 2.过程与方法 （1）学生自主实践，完成表格数据的基本处理，学习常用的基本函数、排序、分类汇总、自动筛选分析表格数据的方法，并进一步探究综合应用； （2）通过对学案的自学和探索完成任务一与任务二，锻炼自身的自主学习能力和探索创新能力。
Excel上机操作练习题 第1题建立一工作簿，并作如下操作 1．在Sheet工作表中输入如下内容： 在A1单元格中输入：中华人民共和国 以数字字符的形式在B1单元格中输入：88888888 在A2单元格中输入：12345678912345 在A3单元格中输入：2001年12月12日 用智能填充数据的方法向A4至G4单元格中输入： 星期日，星期一，星期二，星期三，星期四，星期五，星期六 先定义填充序列：车间一、车间二、车间三、……、车间七，向A5至G5单元格中 输入： 车间一、车间二、车间三、……、车间七 利用智能填充数据的方法向A6至F6单元格中输入等比系列数据：6、24、96、384、1536。 2．将新建立的工作簿以文件名：操作1，保存在用户文件夹下。 第2题打开“操作1”工作簿，并作如下操作 1．将“Sheet1”工作表更名为“操作1” 2．将“Sheet2”和“Sheet3”定义成一个工作组，并将该工作组复制到该工作簿中 3．将“Sheet2（2）”移动到“Sheet2”之前 4．新建一工作簿并以文件名：操作2，保存在用户文件夹下。 5．将“操作1”工作簿中的“Sheet3”和“Sheet3（2）”复制到“操作2”工作簿中。 6．在“操作1”工作簿中的“Sheet3”之前插入一工作表，并命名为“操作2” 7．将“操作2”工作表水平分割成两个工作表 8．将“操作2”工作表垂直分割成两个工作表 9．将“操作1”工作簿更名为“操作3”保存在用户文件夹下。 第3题打开“操作3”工作簿，并作如下操作 1．取消“操作2”工作表水平和垂直分割 2．置“操作1”工作表为当前 3．将A1单元格中内容复制到H1单元格中
4.2.1表格数据的处理 一、教学目标： 知识与技能： 1、理解信息的表格化、掌握表格数据的处理 2、选择恰当的软件加工表格信息(这里使用Excel2000 过程与方法： 引导学生如何在教材现有的知识层次之外发掘新的知识点，拓展学生的思路，激发学生的创造性。 情感态度与价值观： 寻找新旧知识的关联点，对有兴趣进一步学习的学生可以鼓励他们多分析和思考。 二、教学要点： 本课教学内容理论性与实践相结合，并且实践是本节课的重要教学环节。有一句名言：“没有实践就没有真知”。因此，实践是学好表格数据处理乃至整个信息技术课程的重要途径。针对这种情况，我们教师应采取少讲多练的教学方法，也可以让学生自主探索，根据教材中所提供的数据制作，分小组探究学习，并完成任务。 三、教学组织：
组织选择合适的软件（Excel2000）加工表格信息，借助表格对数据进行计算、排序、筛选、汇总；掌握数据的计算、数据的筛选、数据的排序、数据的分类汇总和建立数据透视表。 四、课时安排 2课时 教学过程： 一、概念:（略讲） 单元格：单元格是表格中行与列的交叉部分，它是组成表格的最小单位，单个数据的输入和修改都是在单元格中进行的。 工作表：工作表是一个由若干行和列组成的表格，一行和一列的交叉部分称为单元格。一般而言，数据处理都是在单元格内进行的。电子表格常常处理成批的数据，它一般包含大量的单元格，最多为65536（256）=16777216个单元格。 工作簿：工作簿一般由若干个工作表组成，并以文件形式存放在磁盘上。所以，工作簿是面向用户操作的一个概念，而文件则是面向计算机系统的一个概念。 二、处理电子表格（讲授知识点） A、表格单元格的地址（这里只讲解相对地址） B、数据的计算：让学生学会日常应中的求和公式 sum(summber1:summber2)、平均数公式(average(summber1:summber2)、最大值max(summber1:summber2)、最小值min(summber1:summber2)。学生通
Excel电子表格 选择题自测 1．Excel广泛应用于． A．统计分析、财务管理分析、股票分析和经济、行政管理等各个方面 B．工业设计、机械制造、建筑工程 C．多媒体制作 D．美术设计、装潢、图片制作等各个方面 2．在Excel中，工作簿是指。 A．操作系统 B．不能有若干类型的表格共存的单一电子表格 C．图表 D．在Excel环境中用来存储和处理工作数据的文件 3．Excel文档的默认文件扩展名为． A．.xml B．.txt C．.xls D．.doc 4．对于新安装的Excel，一个新建的工作簿默认具有个工作表。 A．1 B．2 C．3 D．255 5．在Excel中，单元格地址是指． A．每一个单元格 B．每一个单元格的大小 C．单元格所在的工作表 D．单元格在工作表中的位置 6．在Excel中．把鼠标指向被选中单元格边框．当指针变成箭头时．拖动鼠标到目标单元格时，将完成操作． A．删除 B．移动 C．自动填充 D．复制 7．在Excel中，有关行高的表述，下面说法中错误的是。 A．整行的高度是一样的 B．在不调整行高的情况下，系统默认设置行高自动以本行中最高的字符为准 C．行增高时，该行各单元格中的字符也随之自动增高 D．一次可以调整多行的行高 8．在Excel工作表中，操作可以删除工作表D列。 A．单击列号D，按Del键
B．单击列号D，选择“编辑”菜单下的“删除” C．单击列号D，选择工具条上的“剪切”按钮 D．单击列号D，选择“编辑”菜单下的“清除”→“全部” 9．在Excel工作表的单元格中，如想输入数字字符串070615(例如学号)，则应输入。 A．00070615 B．070615． C．070615 D．070615 10．在Excel中．形式不符合日期格式． A．"10/15/04" B．"15-OCT-04" C．"2004/10/15" D．"10-15-04" 11．在Excel工作簿中，要同时选择多个不相邻的工作表，可以在按住键的同时依次单击各个工作表的标签。 A．Tab B． Alt C． Shift D．Ctrl 12．在Excel工作表中，当前单元格只能是． A．单元格指针选定的1个 B．选中的一行 C．选中的一列 D．选中的区域 13．在Excel中，给当前单元格输入数值型数据时，默认为。 A．居中 B．左对齐 C．右对齐 D．随机 14．如要改变Excel工作表的打印方向(如横向)，可使用命令。 A．“格式”菜单中的“工作表” B．“文件”菜单中的“打印区域” C．“文件”菜单中的“页面设置” D．“插入”菜单中的“工作表” 15．在Excel中，对单元格“$D$2”的引用是。 A．绝对引用 B．相对引用 C．一般引用 D．混合引用 16．在Excel中，将3、4两行选定，然后进行插入行操作，下面正确的表述是。 A．在行号2和3之间插入两个空行 B．在行号3和4之间插入两个空行 C．在行号4和5之间插入两个空行 D．在行号3和4之间插入一个空行 17．不能输入到Excel工作表的单元格中。 A．="20,12" B．=20,12 C．20,12 D．Sheet2!Al+12 18．使用坐标$D$l引用工作表D列第1行的单元格，这称为对单元格坐标的。
找出其存在的问题，并提出解决方案。针对要开发的系统进行人事系统调研，提出开发系统的可行性分析。在系统结构设计中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块、所需的数据库表及表字段、系统菜单的设计等。 在系统的实现中，给出了系统的界 最近正好有空，看到不少人对VFP控制EXCEL有兴趣，现将上次的“精华贴”重新整理一下，供各位爱好者参考！ oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式 1、对象的创建与关闭 ******************************* eole=CREATEOBJECT('Excel.application') && 创建Excel对象 eole.Workbooks.add && 添加新工作簿 eole.Worksheets("sheet3").Activate && 设置第3个工作表为激活工作表 eole.Workbooks.Open("D:\ABC\11.xls") && 打开指定工作簿 eole.visible=.t. && 显示Excel窗口 eole.visible=.F. && 不显示Excel窗口 eole.Caption="VFP应用程序调用Microsoft Excel" && 更改Excel标题栏 eole.ActiveWorkbook.SaveAs("D:\ABC\22.xls") && 工作表另为 eole.ActiveWorkbook.saved=.t. && 放弃存盘 页脚内容1
E x c e l操作题操作步骤 及参考答案 集团文件版本号：（M928-T898-M248-WU2669-I2896-DQ586-M1988）
EXCEL操作题参考答案及操作步骤 1、Excel操作题1“成绩表”，请按下列步骤进行操作： 第1步：在第一个工作表中将:“A1”:“H1”区域中单元格的行高设置为“28” 操作步骤：选中“A1”:“H1”格式行行高按要求输入相应的值确定 第2步：在第一个工作表中在“H2”:“H9”区域中添加颜色为“红”的外边框 操作步骤：选中“H2”:“H9”格式单元格边框 按要求选择颜色单击外边框确定 第3步：在第一个工作表中在:“G3”单元格内输入公式如:=SUM(A1,B1)“=SUM(C3:F3)” 操作步骤：单击G3单元格输入公式“=SUM(C3:F3)” 第4步：在第一个工作表中在:“H4”单元格内输入文本“补考” 操作步骤：单击H4单元格输入文本“补考” 第5步：把工作薄中第“1”个工作表改名为“成绩表” 右击工作表名“sheet1 ”重命名按要求输入“成绩表”2、Excel操作题2“邵阳市中小学校在校学生数”，请按下列步骤进行操作： 第1步：在第一个工作表中在:“A2”:“D2”单元格中单元的字体颜色设置为“红”
操作步骤：选中“A2”:“D2”格式单元格字体 按要求选择颜色确定 第2步：在第一个工作表中将:“B1”:“D1”区域中单元格的列宽设置为“12” 操作步骤：选中“B1”:“D1”格式列列宽按要求输入相应的值确定 第3步：在第一个工作表中在“B3”:“D7”区域中设置水平“居中”对齐,垂直“居中” 操作步骤：选中“B3”:“D7”格式单元格对齐 进行相应的设置确定 第4步：在第一个工作表中在:“A8”单元格内输入文本“年平均数” 操作步骤：单击A8单元格输入文本“年平均数” 第5步：在第一个工作表中在:“B8”单元格内输入公式如:=SUM(A1,B1)“=AVERAGE(B3:B7)” 操作步骤：单击B8单元格输入公式“=AVERAGE(B3:B7)” 3、Excel操作题3“2015年第53届世乒赛混双决赛比分”，请按下列步骤进行操作： 第1步：在第一个工作表中将:“A1”:“F1”区域中单元格的行高设置为“35” 操作步骤：选中“A1”:“F1”格式行行高按要求输入相应的值确定