如何用程序在已有内容的文档中添加内容? 除了读出文档内容,重新组织再写入文档,还有没有更好的方法可以直接在文档中指定行添加内容?或在文档中添加行? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你说的文档是什么文档,word还是普通的文本文件? 如果是txt文件就好办,先读出内容,保存到变量中,然后一起进去 文档类型不必关心,都是自定义的,用二进制方式打开,可以认为就是txt文件。先读出来再写进去的方式偶知道的,就是这样太麻烦,有没有直接点的方法? 如果是Excel,那就更好办,可以直接在指定行添加内容操作Excul的常用方法和属性1.创建Excel对象 eole=CREATEOBJECT(′Excel.application′) 2.添加新工作簿 eole.Workbooks.add 3.设置第3个工作表为激活工作表 eole.Worksheets(″sheet3″).Activate 4.打开指定工作簿 eole.Workbooks.Open(″c:\temp\ll.xls″) 5.显示Excel窗口 eole.visible=.t. 6.更改Excel标题栏 eole.Caption=″VFP应用程序调用Microsoft Excel″ 7.给单元格赋值 eole.cells(1,4).value=XM(XM为数据库字段名) 8.设置指定列的宽度(单位:字符个数) eole.ActiveSheet.Columns(1).ColumnWidth=5 9.设置指定行的高度(单位:磅) eole.ActiveSheet.Rows(1).RowHeight=1/0.035 (设定行高为1厘米,1磅=0.035厘米) 10.在第18行之前插入分页符 eole.Worksheets(″Sheet1″).Rows(18).PageBreak=1 11.在第4列之前删除分页符 eole.ActiveSheet.Columns(4).PageBreak=0 12.指定边框线宽度(Borders参数如下) ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3 13.设置四个边框线条的类型 eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1 (其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线) 14.设置页眉 eole.ActiveSheet.PageSetup.CenterHeader=″报表1″ 15.设置页脚 eole.ActiveSheet.PageSetup.CenterFooter=″第&P页″ 16.设置页眉到顶端边距为2厘米 eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 17.设置页脚到底边距为3厘米 eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 18.设置顶边距为2厘米 eole.ActiveSheet.PageSetup.TopMargin=2/0.035 19.设置底边距为4厘米 eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 20.设置左边距为2厘米 veole.ActiveSheet.PageSetup.LeftMargin=2/0.035 21.设置右边距为2厘米 eole.ActiveSheet.PageSetup.RightMargin=2/0.035 22.设置页面水平居中 eole.ActiveSheet.PageSetup.CenterHorizontally=.t. 23.设置页面垂直居中 eole.ActiveSheet.PageSetup.CenterVertically=.t. 24.设置页面纸张大小(1-窄行8511 39-宽行1411) eole.ActiveSheet.PageSetup.PaperSize=1 25.打印单元格网线 eole.ActiveSheet.PageSetup.PrintGridlines=.t. 26.拷贝整个工作表 eole.ActiveSheet.UsedRange.Copy 27.拷贝指定区域 eole.ActiveSheet.Range(″A1:E2″).Copy 28.粘贴 eole.WorkSheet(″Sheet2″).Range(″A1″).PasteSpecial 29.在第2行之前插入一行 eole.ActiveSheet.Rows(2).Insert 30.在第2列之前插入一列 eole.ActiveSheet.Columns(2).Insert 31.设置字体 eole.ActiveSheet.Cells(2,1).Font.Name=″黑体″ 32.设置字体大小 eole.ActiveSheet.Cells(1,1).Font.Size=25 33.设置字体为斜体 eole.ActiveSheet.Cells(1,1).Font.Italic=.t. 34.设置整列字体为粗体 eole.ActiveSheet.Columns(1).Font.Bold=.t. 35.清除单元格公式 eole.ActiveSheet.Cells(1,4).ClearContents 36.打印预览工作表 eole.ActiveSheet.PrintPreview 37.打印输出工作表 eole.ActiveSheet.PrintOut 38.工作表另为 eole.ActiveWorkbook.SaveAs(″c:\temp\22.xls″) 39.放弃存盘 eole.ActiveWorkbook.saved=.t. 40.关闭工作簿 eole.Workbooks.close 41.退出Excel eole.quit 不是Excel,可以就当作是txt! 将一个变量的数据写入磁盘文件中。语法Put [#]filenumber, [recnumber], varnamePut 语句的语法具有以下几个部分:部分 描述 filenumber 必要。任何有效的文件号。 recnumber 可选。Variant (Long)。记录号(Random 方式的文件)或字节数(Binary 方式的文件),指明在此处开始写入。 varname 必要。包含要写入磁盘的数据的变量名。 打造第一私活群,请大家相互转告,踊跃加入,群号17249308,这里有丰富的资源共享,还等什么呢?? 在VB6.0报表的合并请教 如何定位記錄集中的記錄,利用find方法 VB异常处理 如何定义一个新的属性。 如何判断我的一串字符的第一个字符是数字还是字母? vb中怎么实现 延时??? 谢谢! 打包vb程序为安装软件!!!!在线等待!!!!!!!!! 如何分别控制背景音乐和音效两个声音的音量大小? 一个打印的问题!! 有没有人知道怎样显示psd和tif文件啊,picturebox和image控间都不支持。能解决送100分 请问如何用程序实现判断计算机是否连上了互联网?
先读出来再写进去的方式偶知道的,就是这样太麻烦,有没有直接点的方法?
filenumber 必要。任何有效的文件号。
recnumber 可选。Variant (Long)。记录号(Random 方式的文件)或字节数(Binary 方式的文件),指明在此处开始写入。
varname 必要。包含要写入磁盘的数据的变量名。