用C++或者VB写一个程序读取一个excel文件的sheet1与sheet2,并使sheet1与sheet2对应的地方相乘 20

然后再累加求和。如sheet1的A1与sheet2的A1相乘,sheet1与sheet2都是9行3列。谢谢大神!!!... 然后再累加求和。 如sheet1的A1与sheet2的A1相乘,sheet1与sheet2都是9行3列。
谢谢大神!!!
展开
 我来答
五月熊貓
2013-04-22 · TA获得超过403个赞
知道小有建树答主
回答量:189
采纳率:0%
帮助的人:186万
展开全部

Sub aaa()

  If Application.Dialogs(xlDialogOpen).Show Then

     On Error Resume Next

        For C = 1 To 3

            For R = 1 To 9

               ThisWorkbook.Sheets(1).Cells(R, C) = ActiveWorkbook.Sheets(1).Cells(R, C).Value

               ThisWorkbook.Sheets(2).Cells(R, C) = ActiveWorkbook.Sheets(2).Cells(R, C).Value

               ThisWorkbook.Sheets(3).Cells(R, C) = ThisWorkbook.Sheets(1).Cells(R, C).Value * ThisWorkbook.Sheets(2).Cells(R, C).Value

            Next R

       Next C

    ActiveWorkbook.Close (False)

    ThisWorkbook.Save

    MsgBox "Done!" 

  End If

End Sub

附件下载下来用一下,看看是不是你要的效果。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
吐香滴滴化冰G
2013-04-22 · TA获得超过138个赞
知道小有建树答主
回答量:189
采纳率:0%
帮助的人:135万
展开全部
需要包含#include"afxdao.h",只能打开xls的
CDaoDatabase m_db;
CDaoRecordset *m_Set;
COleVariant var;
try
{
m_db.Open(path,0,0,"Excel 4.0");
}
catch(CDaoException *e)
{
MessageBox(e->m_pErrorInfo->m_strDescription,"打开失败");
e->Delete();
}
m_set=new CDaoRecordset(&m_db);
m_set->Open(-1,"select * from [sheet1$]",0);
m_set->GetFieldValue(index,&var);
/*自己写*/
m_set->Clsoe();
m_db.Clsoe();
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式