把工作表导出到新的工作薄下指定命名的工作表中

hnyeke

要把M工作表导出到新的工作薄，如果工作薄中有命名为K的工作表，则将M工作表复制到K工作表中，如果工作薄中没有有命名为K的工作表，则在工作表的最后新建一个工作表，命名为K，再把M工作表复制到K工作表中。

写了以下一段代码，试了几次不能如意，请求帮助！！请赐教。

On Error Resume Next
   str = Application.GetOpenFilename("Excel数据文件,*.xls*", , , , True)
    If str <> "False" Then
        For i = LBound(str) To UBound(str)
            Set wb = Workbooks.Open(str(i))
              For Each Sht In wb.Sheets
              If Sht.Name = k Then
                Sht.Range("a1:z1000").Select '先删表第1行之后内容
                sht1.Range("a1:" & x & hs).Copy Sht.Range("A1")
                 wb.Save '保存工作薄
                wb.Close '关闭工作薄
                MsgBox "报表导出完成！请查阅。"
              Exit Sub
                         Else
                             Set ws = Worksheets(k) '创建表
                Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
                  ws.Name = k
                  sht1.Range("a1:" & x & hs).Copy Worksheets(k).Range("A1")
             End If
           Next
        End If
           wb.Save '保存工作薄
           wb.Close '关闭工作薄

3190496160

啥上传你的文件和代码，才可能测试代码，目前，没有附件，连代码都不是完整的，任何人都帮不了你的