求指教怎么写这段引用代码

七彩爆炸鸡发布于 2022-12-12 15:31， 1141 次点击

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

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

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

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

6 回复

mrexcel2022-12-12 16:32

Try:

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

七彩爆炸鸡2022-12-12 16:41

回复 2楼 mrexcel

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

mrexcel2022-12-12 16:46

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

七彩爆炸鸡2022-12-12 16:50

回复 4楼 mrexcel

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

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

jklqwe1112022-12-12 19:17

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

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

yuma2022-12-12 19:34

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