将工作表从一个工作簿移动到另一个VBA

Question

我正在尝试将标签从一个工作簿移动到另一个工作簿但却出错。 打开的文件有扩展名“.abc”，我打开它作为CSV - 我不确定这是否导致了这个问题。

Sheets(SrcTabNm).Move After:=CodeWB.Sheets("Control")

上面的代码给出了

  

运行时错误（424） - 需要对象

代码

Sheets(SrcTabNm).Move After:=Workbooks(CodeWB).Worksheets.Count

给出

  

运行时错误（1004） - 工作表类的移动方法失败

以下是完整的参考代码

Sub Movesheet()
'Dim CodeWB As Workbook

CodeWB = Application.ThisWorkbook.Name

Worksheets("Control").Select
Cells(2, 1).Select
Range(Selection, Selection.End(xlDown)).Select
FileNo = Selection.Rows.Count
Cells(2, 1).Select

For c = 1 To FileNo
SrcPth = Cells(c + 1, 1)
SrcFileNm = Cells(c + 1, 2)
SrcTabNm = Cells(c + 1, 3)
SrcMapNm = Cells(c + 1, 4)


Workbooks.Open Filename:=SrcPth & "\" & SrcFileNm, ReadOnly:=True
'Sheets(SrcTabNm).Move After:=CodeWB.Sheets("Control")
Sheets(SrcTabNm).Move After:=Workbooks(CodeWB).Worksheets.Count

Next c

End Sub