搜索
编程论坛 → 数据库技术 → 『 VFP论坛 』 → vfp控制excel,将a.xls中sheet1第C列粘贴到b.xls中sheet1第C列
标题：vfp控制excel,将a.xls中sheet1第C列粘贴到b.xls中sheet1第C列
取消只看楼主
zengjun81357
Rank: 2
等　级：论坛游民
帖　子：73
专家分：20
注　册：2011-3-27
结帖率：87.5%
楼主
 已结贴√  问题点数：10 回复次数：3 
vfp控制excel,将a.xls中sheet1第C列粘贴到b.xls中sheet1第C列
vfp控制excel,将a.xls中sheet1第C列粘贴到b.xls中sheet1第C列(从第三行开始的所有行，行数不定)(我用vfp处理excel数据后结果不会写回原表,最后只好手工粘贴）
搜索更多相关主题的帖子: excel　
2013-02-04 11:27
zengjun81357
Rank: 2
等　级：论坛游民
帖　子：73
专家分：20
注　册：2011-3-27
第 2 楼
 得分:0 
以下是引用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
谢谢指点！
要求是复制C列从第三行开始的所有行,就是不复制第一行、第二行（标题不能盖）
2013-02-04 13:20
zengjun81357
Rank: 2
等　级：论坛游民
帖　子：73
专家分：20
注　册：2011-3-27
第 3 楼
 得分:0 
以下是引用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  
 
谢谢回复。你的方法实现了我的要求！
2013-02-05 20:33
zengjun81357
Rank: 2
等　级：论坛游民
帖　子：73
专家分：20
注　册：2011-3-27
第 4 楼
 得分:0 
回复 7楼 zengjun81357
追加一个问题：怎样保持b.XLS中C列的单位格格式不变（即数据用a.xls中C列数据代替，但单位格格式保持原来的不变）
2013-02-05 22:40



参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-398169-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.418369 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved