1.定义工作簿

    2.增加工作簿

    3.源数据的复制

    4.新工作簿的粘贴

    5. saveas 保存

   Dim wb As Excel.Workbook

    Set wb = Workbooks.Add

    sh.UsedRange.Copy

    wb.Sheets(1).Paste

    Dim tmp

    tmp = Application.DisplayAlerts

    Application.DisplayAlerts = False

    wb.SaveAs fileName:=dataPath & "RM-QDII " & dts & ".rm3D", FileFormat:=xlText

    Application.DisplayAlerts = tmp

    wb.Close False

//////////////////////

  OpenWorkbook pathstring2 & "Send report\" & "ETC&QDII汇总数据-日度-" & etc_report_date2 & ".xls"

  ThisWorkbook.Worksheets("每日持仓汇总").Range("A8:m8").Copy

  Workbooks(dailyworkbook).Sheets(1).Range("A7:M7").PasteSpecial Paste:=xlPasteValues

  Workbooks(dailyworkbook).Sheets(1).Activate