初学者求助

用户名用什么好

请教下各位老师，工作簿中有ABCD.....多个表，拟通过宏将其中指定的表A另存为一个文件，请问该怎么写？


我录制了宏，只能实现整个工作簿另存，请各位老师指点下，谢谢

ykcbf1100

上传附件吧。
没有附件不太好说，问题是不难。

fzxba

sub test1()
worksheets("A表").copy
with activeworkbook
.saveas thisworkbook.path & "\文件名用什么好",51
.close
end with
end sub

用户名用什么好

ykcbf1100 发表于 2023-1-5 09:30
上传附件吧。
没有附件不太好说，问题是不难。

请见附件，谢谢

WANT-T

默认导出当前活动工作表，路径自己选择，或者参数指定:
代码不让上传，只能给你截图了

getfolder，是个选择文件路径的代码，你可以自己写一个，用我这个也 可以上：

1. Public Function GetFolder() As String
   
2.     With Application.FileDialog(msoFileDialogFolderPicker)
   
3.         If .Show Then
   
4.             GetFolder = .SelectedItems(1)
   
5.         Else
   
6.             GetFolder = ""
   
7.         End If
   
8.     End With
   
9. End Function

复制代码

用户名用什么好

fzxba 发表于 2023-1-5 09:46
sub test1()
worksheets("A表").copy
with activeworkbook

谢谢，请问下如去除原表数据链接，需怎么做？

ykcbf1100

用户名用什么好 发表于 2023-1-5 09:49
请见附件，谢谢

新工作簿在当前目录下。