以下是引用qjbzjp在2013-2-4 12:59:09的发言：

myeole=CREATEOBJECT("Excel.application")
WITH myeole
    .Workbooks.Open("I:\a.xls")
*    .Workbooks.open(getfile("xls")) &&打开指定路径下的工作簿
    .visible=.t.
    .Sheets(1).Columns("C:C").Copy
    .Workbooks.Open("I:\b.xls")
    .Sheets(1).Columns("C:C").Select
    .ActiveSheet.Paste
*    .ActiveWorkbook.Close(.t.)
*    .quit                     &&退出Excel
ENDWITH

以下是引用wasun2012在2013-2-4 18:48:42的发言：

 
 
*!*-----------------------
 
ACopyToB("D:\a.xls","D:\b.xls")
*!*---------------------
FUNCTION ACopyToB( tcFileSource as String ,tcFileDestination as String )
 
LOCAL oExcel AS "excel.application"
LOCAL nDataRows as Integer  
 
oExcel=Createobject('Excel.application')
oExcel.DisplayAlerts=.f.
oExcel.Workbooks.Open(tcFileSource) &&打开源文件
nDataRows=oExcel.SHEETS(1).UsedRange.Rows.Count &&有数据的总行数
cRange=["C3:C]+TRANSFORM(nDataRows)+["]
oExcel.range(&cRange).select &&选中数据
oExcel.Selection.Copy
oExcel.Workbooks.Close  &&关闭源表
*!*
oExcel.Visible=.T.
oExcel.Workbooks.Open(tcFileDestination) &&打开目标文件
oExcel.Worksheets("sheet1").Activate
oExcel.Range("C3").PasteSpecial(-4104)
oExcel.ActiveWorkbook.Save
*oExcel.Workbooks.Close  
*oExcel.Quit  
Release oExcel