Excel VBA 如何导出 Sheet4，其中 Sheet5 中单元格 B4 的内容作为新工作簿的名称。

sub 将 sheet4 工作表另存为单独的 workbook（） dim sht as comic worksheet= false

ipath = &

set sht = worksheets("sheet4"凯凯）孙宇卖了。

ipath & "b5").value & xls"

trueend sub

在左上角的名称框（通常显示 A1 等信息的名称框）中，输入 sheet4！项目。

然后就进去吧。

VB** 我不知道，你可以不用 VB 来做。

单击工具栏中的“表单”，创建一个按钮，然后复制以下内容。

将按钮指定为 AAA 宏。 这是同一工作簿中的副本。

sub aaa()

aaa macro

range("b2:k2").selectsheets("sheet2").selectrange("b2:k2").selectend sub

由于你的倒数第二句话是，你可以把最后一句话改成下一句话，以达到你想要的效果（测试）。 试一试吧！

filename:="" & ipath & "" & sheets(1).cells(2, 4) &".xls"

上面的属性包含 excel 中的所有工作表对象 listlstname = new list（）;

获取每个 ** 的名称。

foreach (worksheet sheet in worksheets)

工作表，工作表需要自己实例化。

请问，你们的名字都是不规则的吗？ 如果都是不规则的，可以使用对话框控件，即点击选择按钮后，会弹出文件选择对话框，速度更快，更直观。

您可以使用以下**：

子按钮 1 click（）。

after:=sheets(

day(date)

end sub

VBA命名工作表，直接使用工作表（需要重命名的工作表的索引号或名称）。名字。

可以直接使用此工作表的名称。

因此，为了达到在问题中命名工作表的要求，可以使用以下 ** 实现 - sub rename（）。

for i = 1 to

worksheets(i).name = & "-" & inext

end sub

sub ge()

dim i&, x&

i =for x = 1 to i

worksheets(x).name = "vba-" & xnext x

end sub

运行此宏，所有工作表都将根据需要实现。