各位大师傅，如何在VFP中控制 Excel 和Word的一些菜单？
tmpsheet = Getobject('','excel.sheet')
XLApp = tmpsheet.Application
XLApp.Visible = .T.
XLApp.WorkBooks.Add()
XLSheet = XLApp.ActiveSheet
...
能否控制Excel中，类似 "保存" "另存为" "复制" "粘贴"等功能?
谢谢各位大师傅，为小弟指点指点...
[解决办法]
保存
oExcel.ActiveWorkbook.Save
另存为
oExcel.ActiveWorkbook.SaveAs("c:\temp\22.xls")
拷贝整个工作表
oExcel.ActiveSheet.UsedRange.Copy
拷贝指定区域
oExcel.ActiveSheet.Range("A1:E2").Copy
粘贴
oExcel.WorkSheet("Sheet2").Range("A1").PasteSpecial
更详细请参考：
<VFP全面控制EXCEL>
http://blog.csdn.net/apple_8180/archive/2006/04/22/672913.aspx
[解决办法]
在EXCEL中录制宏，看看代码，转换成VFP的
[解决办法]
如果要实现这个，则需要你在WORD中加入保护。 但如果这些人可以编辑的话，则还可以复制内容，或者打印的。
[解决办法]
try:
_ole_excel = CreateObject("Excel.Application")
_ole_excel.VISIBLE=.T.
_ole_excel.AskToUpdateLinks = .F.
_ole_excel.WorkBooks.Open('r:\temp\123.xls')
With _ole_excel.Application
*'屏蔽常用工具栏剪切、复制、粘贴
.CommandBars(3).Controls("剪切(&T)").Enabled = .f.
.CommandBars(3).Controls("复制(&C)").Enabled = .f.
.CommandBars(3).Controls("粘贴(&P)").Enabled = .f.
*'屏蔽单元格右键菜单中的剪切、复制、粘贴命令
.CommandBars("Cell").Controls("剪切(&T)").Enabled = .f.
.CommandBars("Cell").Controls("复制(&C)").Enabled = .f.
.CommandBars("Cell").Controls("粘贴(&P)").Enabled = .f.
*'屏蔽编辑菜单中的剪切、复制、粘贴命令
.CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = .f.
.CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = .f.
.CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = .f.
*'屏蔽键盘剪切、复制、粘贴键
.OnKey("^x", "")
.OnKey("^c", "")
.OnKey("^v", "")
EndWith
不是根本方法，如果XLS文件可以COPY的话。。。
