(新手)紧急求助:如何用EXCEL的宏重新创建一个新的EXCEL文件 目前是这样的:对当前的EXCEL用宏编程,要把检索的结果存到另外一个新建的EXCEL里,请问如何处理!!谢谢!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可用 Add 方法新建一张工作表并将其添加到集合中。Worksheets 对象的 Add 方法。新建工作表、图表或宏表。新建的工作表将成为活动工作表。expression.Add(Before, After, Count, Type)expression 必需。该表达式返回上面的对象之一。Before Variant 类型,可选。指定工作表对象,新建的工作表将置于此工作表之前。After Variant 类型,可选。指定工作表对象,新建的工作表将置于此工作表之后。Count Variant 类型,可选。要新建的工作表的数目。默认值为 1。Type Variant 类型,可选。指定工作表类型。可为以下 XlSheetType 常量之一:xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默认值为 xlWorksheet。说明如果 Before 和 After 两者均省略,则新建的工作表将插入到活动工作表之前。 操作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 ADO和DATAGrid求救 下载相关(加密) 问题出到哪儿了? 一个关于Command的Parameter object用法的问题? 有什么好用的数据显示控件推存一下。(主要是DataGrid太丑了) "关于暑假来了,大家一起做个大软件!"的最新进展情况,请大家参与! 怎么设置ADO控件的连接数据库的相对路径! 关于数据库指针 在這網頁中, 難道VB 不能判別嗎? 有这种方法吗?各位看看呀!! 将DataGrid中的内容导入到Excel中出现的问题 datagrid的bug吗?
Worksheets 对象的 Add 方法。
新建工作表、图表或宏表。新建的工作表将成为活动工作表。
expression.Add(Before, After, Count, Type)
expression 必需。该表达式返回上面的对象之一。
Before Variant 类型,可选。指定工作表对象,新建的工作表将置于此工作表之前。
After Variant 类型,可选。指定工作表对象,新建的工作表将置于此工作表之后。
Count Variant 类型,可选。要新建的工作表的数目。默认值为 1。
Type Variant 类型,可选。指定工作表类型。可为以下 XlSheetType 常量之一:xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默认值为 xlWorksheet。说明
如果 Before 和 After 两者均省略,则新建的工作表将插入到活动工作表之前。