oleapp.ActiveSheet.PictureS.Insert(\图片文件名\oleapp.Selection.ShapeRange.LockAspectRatio =.T. oleapp.Selection.ShapeRange.Height = 57

*!* 68．类型为字符型的字段输出到excel 中，前面的零被自动去掉，例如“009877”变为“9877”，怎么解决？

1.在字符串前面加半角单引号“ ' ”， 例如：

o.Cells(1,1).Value=\或用变量

cString=\其中0123可以取自表中一个字段 o.Cells(1,1).Value=cString &&o.Range(\2.

oExcel.CELLS(1,1).Select &&或eole.Range(\

oExcel.Selection.NumberFormatLocal = \把被选定的单元格设为文本格式 oExcel.Cells(1,1).Value=\给所选单元格覆值 *!* 69．在 Excel 中插入行和列 :

objExcel.Rows(1).Insert() &&在第一行前面插入一行 objExcel.Columns(2).Insert() &&在第二列前面插入一列 *!* 70．获取 Excel 记录数

loXls = Createobject(\

bookExcel = loXls.Application.Workbooks.Open(\nrows=bookExcel.Worksheets('pz') UsedRange =nrows.UsedRange

r=UsedRange.Rows.Count &&有数据的总行数 c=UsedRange.Columns.Count &&有数据的总列数 loXls.Workbooks.Close loXls.Quit

*!* 71．在EXCEL中如何在打开文件的同时自动执行一个宏命令。 只要将宏的命名为 AUTO_OPEN 即可。

如果要在文件关闭时运行，则命名为auto_close 。 *!* 72．在VFP中可以执行EXCEL的选择性粘贴吗? .Range(\会出错 .Range(\也会出错 .Range(\只好这样了 *!* 73．如何才能只粘贴值呢? xlPasteValues=-4163

oExcel.Range(\oExcel.Selection.Copy

oExcel.Range(\

*注意:在Excel 中，\是一个常量，它的值是一个数值型的：-4163 oExcel.Range(\

oExcel.Range(\粘贴行、列宽 oExcel.Range(\粘贴格式 *!* 74．如何从excel读取数据

*******建立一个excel对象******* Local hb1 As excel.Application

csheetname=Trim(Thisform.text2.Value)&&读取用户要读取excel的sheet名 ***读取数据源所在的EXCEL文件名**** If Empty(Trim(Thisformset.filepath))

Messagebox(\请先选择要导入的excel文件！\提示\ Return Endif

If Empty(Trim(csheetname))

Messagebox(\请先选择要导入的工作表sheet名称！\提示\ Return Endif Try

hb1=Createobject(\Catch

Messagebox(\请检查你是否已安装microsoft excel应用程序！\提示\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=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=Alltrim(Str(cgg)) Endif Endif

cjldw=hb1.Cells(i,4).Value If Isnull(cjldw) cjldw=\ Endif

cjldw=Iif(Type(\ 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=Trim(Str(cxh)) Else

cxh=Trim(cxh) Endif Endif

ccpmc=hb1.Cells(i,9).Value If Isnull(ccpmc) ccpmc='' Endif

If Type(\

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 \共转换得到\条记录！\hb1.Quit

*!* 75．本程序通过将原dbf表拷成excel格式,然后导入并设置报表格式 Para tablename

Local hb1 As excel.Application

Wait \正在导出数据，请稍侯……\bhaveerror=.F. &&定义一个变量判断是否发生错误 Try

hb1=Createobject(\Catch

Messagebox(\请检查你是否已安装microsoft excel应用程序！\提示\ bhaveerror=.T. Endtry

If bhaveerror=.T. Return Endif

If Right(curr_path,1)<>'\\' curr_path=curr_path+\Endif

ctablename=tablename+\filepath=curr_path+\*filepath=\If !File(filepath)

Messagebox(\数据源的excel文件未生成，报表生成被终止！\ Return Endif

HB1.workbooks.Open(filepath) HB1.SHEETS(\

hb1.sheets(1).Rows(1).entirerow.Insert hb1.sheets(1).Rows(1).entirerow.Insert Sele (ctablename) nfieldcount=Fcount() nreccount=Reccount()

hbdygs=\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. && ??