关于excel 中拷贝粘贴

[jack1975]

如何使用 paste 在vc中对excel操作？比如copy第一行，paste 到第二行

[xiaohedou]

这个没作过，学习

[gzshd]

比如copy第一行，paste 到第二行:

#include "excel9.h"

void CExcelDlg::OnButton1()
{
CoInitialize(NULL);
COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);
//启动EXCEL
_Application oApp;
oApp.CreateDispatch("Excel.Application",NULL);
if (!oApp)
{
AfxMessageBox("不能启动EXCEL");
return;
}
//向工作簿中添加新工作表
Workbooks oBooks = oApp.GetWorkbooks();
_Workbook oBook = oBooks.Add(COleVariant("C:\\My Documents\\c++\\shi\\excel\\xxx.xls"));
Worksheets oSheets = oBook.GetWorksheets();
//获取第一张工作表
_Worksheet oSheet = oSheets.GetItem(COleVariant((short)1));
Range r;
r=oSheet.GetRange(COleVariant("A1:E1"),vOpt);
r.Copy(vOpt);
r=oSheet.GetRange(COleVariant("A2"),vOpt);
r.Parse(COleVariant("A3"),vOpt);
oBook.Save();
CoUninitialize();
}

[jack1975]

gzshd(郁闷),我试过了，还是拷贝不过去

[gzshd]

上面的代码是我直接写的，没有在VC中试过，不好意思，那就用下面的代码，我试过了，是可以用的

#include "excel9.h"

void CExcelDlg::OnButton1()
{
CoInitialize(NULL);
COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);
//启动EXCEL
_Application oApp;
oApp.CreateDispatch("Excel.Application",NULL);
if (!oApp)
{
AfxMessageBox("不能启动EXCEL");
return;
}
//向工作簿中添加新工作表
Workbooks oBooks = oApp.GetWorkbooks();
_Workbook oBook = oBooks.Add(COleVariant("C:\\My Documents\\c++\\shi\\excel\\xxx.xls"));
Worksheets oSheets = oBook.GetWorksheets();
//获取第一张工作表
_Worksheet oSheet = oSheets.GetItem(COleVariant((short)1));
for(int i=0;i<4;i++)//其中4表示列数
{
char tmp='A'+i;
CString str1,str2;
str1.Format("%c%d",tmp,1);//其中1表示复制的是第几行
str2.Format("%c%d",tmp,3);
Range r;
r=oSheet.GetRange(COleVariant(str1),vOpt);
Range r1;
r1=oSheet.GetRange(COleVariant(str2),vOpt);
r1.SetValue(r.GetValue());
}
CoUninitialize();
}

[dhyuser10]

gz

[lvjian]

可以调用excel9.tlb库，里边有com接口，然后你在excel中用宏录下你的操作，对应com接口，你就知道该怎么做了