老牛请问下excel中的复制粘贴操作 vc的.

Question

请问下excel中的复制和粘贴操作怎么做呢?vba中的解释很郁闷怎么翻译成vc?    Range("C2:F4").Select
    Selection.Copy
    Range("C5").Select
    ActiveSheet.Paste
谢谢老牛...

Answer 1

自动化编程、导入Excel类库，其余就是函数形式的转化。

Answer 2

恩  能不能详细点呢 老牛能否提供相关 vc操作excel复制粘贴的?
就是将Range("C2:F4").Select
    Selection.Copy
    Range("C5").Select
    ActiveSheet.Paste
这段代码转换成vc代码:( 谢谢

Answer 3

http://www.vckbase.com/document/viewdoc/?id=231
http://www.vckbase.com/code/listcode.asp?mclsid=17&sclsid=1713&page=1

Answer 4

谢谢 goodboyws(深夜不眠者(VCMVP))  你所说给的东西对我没什么用 我不知道在excel中复制粘贴方法而已,其他操作我会....:( 找了两天的问题了.

Answer 5

不好意思，以前回答过类似问题，有点急不清了，这个试试
_Application   app;   
  _Worksheet   ws;   
  Range   range;   
  range   =   ws.GetRange(COleVariant("C"),   COleVariant("C"));   
  range.Select();   
  Selection   selection;   
  selection.AttachDispatch(app.GetSelection());   
  selection.Copy();range   =   ws.GetRange(COleVariant("E"),   COleVariant("E"));   
  range.Select();   
  COleVariant   covOptional((long)DISP_E_PARAMNOTFOUND,   VT_ERROR);   
  ws.Paste(covOptional,   covOptional);   

Answer 6

谢谢goodboyws(深夜不眠者(VCMVP)) 在selection.copy的时候selection不为null,但是出错了, 提示找不到成员,继续等:(
CRange range 
CWorksheet sheet 
CApplication m_ExcelApplication...
this->range = this->sheet.get_Range(COleVariant("B4"),COleVariant("E6"));
range.Select();CSelection selection;selection.AttachDispatch(this->m_ExcelApplication.get_Selection());
selection.Copy();this->range.get_Range(COleVariant("E4"),COleVariant("E4"));
range.Select();COleVariant   covOptional2((long)DISP_E_PARAMNOTFOUND,  VT_ERROR);
this->sheet.Paste(covOptional2,covOptional2);

Answer 7

我的代码当初是调试过的，不会有问题，再给你一段msdn的文章参考一下
http://support.microsoft.com/kb/178783

Answer 8

呵呵，可能是这里
this->range = this->sheet.get_Range(COleVariant("B4"),COleVariant("E6"));
改为
this->range.AttachDispatch(this->sheet.get_Range(COleVariant("B4"),COleVariant("E6")));

Answer 9

还是木行,不过自己乱试试出来了 MB的微软...  代码贴出来... COleVariant  covOptional2((long)DISP_E_PARAMNOTFOUND,  VT_ERROR);

range = this->sheet.get_Range(COleVariant("A1"),COleVariant("B10")); range.Select();
range.Copy(covOptional2); CRange range2;
range2 = this->sheet.get_Range(COleVariant("A11"),COleVariant("B21")); VARIANT vt2;
vt2.vt = VT_DISPATCH;
vt2.pdispVal = range2.DetachDispatch(); sheet.Paste(vt2,covOptional2); range2.ReleaseDispatch();

Answer 10

谢谢sangermax，最近也在做这个vc+excel+ado，终于搞定了 ！
谢谢啦

Answer 11

谢谢sangermax，最近也在做这个vc+excel+ado，终于搞定了 ！
谢谢啦