Sheets("Sheet1").Move Before:=Workbooks("***.xlsm").Sheets(1)

现在需要移动其他的表格到本工作表格

***是其他的一个文件，这个文件用的是工作簿sheet2的A1单元格命名的

我要怎么改代码，才能代替这个被移动表格的名称？

Try:   

Workbooks("工作簿1.xlsm").Sheets("Sheet1").Move Before:=Workbooks(Workbooks("工作簿2.xlsm").Sheets(2).[A1] &".xlsm").Sheets(1)

运行不了，其实我这边只有一个难题，就是***的内容就是 正在编辑的Excel的名称，***的代码需要识别到Excel的名称

在文件A里移动文件B的某个表到文件C?

在文件A里移动文件B的某个表到文件A

文件B的名称是用文件A的某个单元格命名的，所以文件B的名称是变化的

Sheets("Sheet1").Move Before:=Workbooks("***.xlsm").Sheets(1)这句代码与你的描述矛盾

Workbooks(Sheets("Sheet2").Range("a1") & ".xlsm").Sheets(1).Move Before:=Sheets("Sheet1")
代码执行有个条件，相关工作簿要使用同一个excel程序打开。

VB6可以运行：

Private Sub Form_Load()
Set C = CreateObject("Excel.Application")
Set D = C.Workbooks.Open("C:\Users\Admin\Desktop\test.xlsx")
D.Worksheets("Sheet2").Move Before:=D.Worksheets("Sheet1")  '移动工作表 Sheet2，并将其放置在工作表 Sheet1 之前
D.Worksheets("Sheet1").Move After:=D.Worksheets("Sheet3")  '移动工作表 Sheet1，并将其放置在工作表 Sheet3 之后
D.Close True
Set C = Nothing
End Sub