在Excel里面，如何运用宏让表格里面的内容随着表格的名字变化

如何在EXCEL中利用宏操作实现两个表格间数据的调取~

Sub zhantie()

Sheets(1).Range("A11:A63").Copy
Sheets(2).Range("W11:W63").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Sheets(1)指位置排在第1位的工作表（从左往右数）
Sheets(2)指位置排在第2位的工作表（从左往右数）
这种方式可以不用理会工作表名称的变化（比如第1张表重命名了不会影响vba的执行）

还有一种引用工作名的方法：
Sheets(“sheet1”).Range("A11:A63").Copy

Sheets(“sheet1”)指名为sheet1的工作表，跟位置无关，但一旦工作表重命名了，vba执行时找不到名叫sheet1的工作表时就会报错。

这TMD还要宏？数据链接听过没？看你口气好像很二的样子。
数据——新建查询——从文件——从工作薄——选择文件——选择工作表——如果不编辑就确认，如果只要部分内容就编辑。
后面按提示操作，搞定。
不服来战！

你是说工作表表名吧？不是excel名字，我理解excel名字就是工作簿名了。
那么A1输入
=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))
注意，文件要是保存过的才可以。
公式就能办到的事，就不要麻烦vba先生了吧。

有种函数叫宏表函数，可以实现你的要求
先CTRL+F3，然后新建一个名称，公式填=left(get.workbook(16),len(get.workbook(16))-5)
回到A1，比如你刚才新建的名称是xxx，那么A1输入=xxx就可以了。
03版的话，把-5改成-4就好了。

设置一个按钮，按钮代码：
Private Sub CommandButton1_Click() ActiveWorkbook.SaveAs Sheet1.Cells(1, 1)End Sub在写上以下代码：
Private Sub Workbook_Open() Sheet1.Cells(1, 1) = ActiveWorkbook.FilenameEnd Sub

嗯，这个$A$1很重要

---

在Excel里面，如何运用宏让表格里面的内容随着表格的名字变化视频