用<em>MFC</em>向<em>Excel</em>添加vba代码，

建议把整百体的代码发过来，

必要的时候把工作表也提供下，

这个代度码的片段，没法调试，

不知道你的变量是回如答何定义的，比如

strwz、ymd、MonthView1.SelStart 

    Dim ymd
    Dim weather As String
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim sheet As Excel.Worksheet
    Set xlApp = New Excel.Application
    For r = 0 To 6
        ymd = Format(MonthView1.SelStart + r, "m.d")
        Set xlBook = xlApp.Workbooks.Open(strwz + "\" + ymd + "运营生产日报.xls")
        Set sheet = xlBook.Worksheets("汇总")
    Next

with 天府剑客zhidao
.身高 = 175
.体重 = 140
.胸围 = 95
.腰围 = 29
end with

with 的语句就是省略，简化它！
如果专不用with 那就是

天府剑客属.身高 = 175
天府剑客.体重 = 140
天府剑客.胸围 = 95
天府剑客.腰围 = 29

Hi我吧