电子表格vba如何在保存前设置excel的文件名
1.vba如何在保存前设置excel的文件名
路径自己改下。
Sub saveexcel() Dim name Dim path path = Application.ThisWorkbook.path name = Application.InputBox(prompt：="文件名称为：") If name = False Then Exit Sub Else On Error GoTo line Application.ActiveWorkbook.SaveAs filename:=path & "\Schemes\" & name, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False MsgBox "保存成功" Exit Sub line: MsgBox "保存失败" Exit Sub End If End Sub。
2.vba如何在保存前设置excel的文件名
路径自己改下。
Sub saveexcel()Dim nameDim pathpath = Application.ThisWorkbook.pathname = Application.InputBox(prompt：="文件名称为：")If name = False ThenExit SubElse On Error GoTo line Application.ActiveWorkbook.SaveAs filename:=path & "\Schemes\" & name, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False MsgBox "保存成功"Exit Subline: MsgBox "保存失败" Exit SubEnd IfEnd Sub。
3.excel怎样用vba自动提取文件夹内的文件名
excel中用vba实现自动提取文件夹内的文件名的方法如下：
1、新建一个vba宏脚本
2、写入如下代码：
Function GetFileList(FileSpec As String) As Variant
' Returns an array of filenames that match FileSpec
' If no matching files are found, it returns False
Dim FileArray() As Variant
Dim FileCount As Integer
Dim FileName As String
On Error GoTo NoFilesFound
FileCount = 0
FileName = Dir(FileSpec)
If FileName = "" Then GoTo NoFilesFound
' Loop until no more matching files are found
Do While FileName <> ""
FileCount = FileCount + 1
ReDim Preserve FileArray(1 To FileCount)
FileArray(FileCount) = FileName
FileName = Dir()
Loop
GetFileList = FileArray
Exit Function
' Error handler
NoFilesFound:
GetFileList = False
End Function
3、传入文件路径就可以获取文件名到指定的excel表格中
4、结果：
4.如何利用VBA将一个Excel中的每一个工作表都保存为一个PDF文件,
1、在需要单独保存的工作表上右键，弹出菜单选择移动或复制工作表2、在第一个里选择新工作薄然后确定3、然后会出现新的excel文件，接着保存下来然后每个文件做成PDF文件推荐下面免费的方法转成PDF试试：方法一：使用虚拟打印机pdf factory即可，而且其他格式文件只要是能够打印，选择这个虚拟打印机，都可以做成PDF文件，很简单实用；最简单而且实用的使用虚拟打印机pdf factory即可，可以把任意只要能够打印的格式文件都可以做成PDF文件，并且可以把多个文件通过打印之后合成一个PDF文件。
pdfFactory Pro（虚拟打印机）是一个无须 Acrobat 创建 Adobe PDF 文件的打印机驱动程序。pdfFactory Pro（虚拟打印机）提供的创建 PDF 文件的方法比其他方法更方便和高效。
功能包括： 多个文档整合到一个 PDF 文件中； 内嵌字体； 通过 E-mail 发送； 预览； 自动压缩优化。PDF Factory是pdf虚拟打印机软件，下载安装好PDF Factory后，我们在打印机控制面板中就可以找到一台由pdf Factory虚拟出来的打印机，可以把任何可以打印的文件转换成pdf文件。
用任何可以支持打印输出的软件，把需要处理的文件逐个打印到这个虚拟打印机，全部打印完成后可把结果保存成一个pdf文件。甚至可以把不同软件格式的文件，如word、excel、photoshop等任何可以支持打印的文件，打印到同一个pdf文件。
在打印之前，在PDF Factory Pro里面设置一下PDF的打开、打印等权限即可实现加密等目的；在打印之前，在设置里面，就把加载所有的系统字体选中。在打印界面出来后，可以在左侧设置水印。
然后再保存PDF文件。打印完毕后，下载一个Adobe Reader，然后安装，可以很流畅的阅读PDF文件。
方法二：使用专门的转换软件，把文件转成PDF文件；方法三：用其他虚拟打印机转成PDF文件。方法四：用WPS本身自带的转换功能转成PDF文件。
方法五：其他例如在线转换的方法等；。
5.VBA如何指定另存为文件的文件名
比如 A1=001 那么文件名就是 001.xlsSub 另存（）ActiveWorkbook.SaveCopyAs "D:/" & [a1] & ".xls"End Sub显示标准的“另存为”对话框，获取用户文件名，而无须真正保存任何文件。
expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)expression 必需。该表达式返回一个 Application 对象。
InitialFilename Variant 类型，可选。指定建议的文件名。
如果省略本参数，Microsoft Excel 将活动工作簿的名称作为建议的文件名。FileFilter Variant 类型，可选。
一个指定文件筛选条件的字符串。本字符串由一个文件筛选字符串与 MS-DOS 通配符表达的文件筛选规则说明组成，中间以逗号分隔。
每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两个文件筛选串，文本文件和加载宏：“文本文件 （*.txt）、*.txt、Add-In 文件、（*.xla）、*.xla”。
要为单个文件筛选类型使用多个 MS-DOS 通配符表达式，需用分号将通配符表达式分开。例如：“Visual Basic 文件 （*.bas; *.txt）、*.bas; *.txt”。
如果省略本参数，则默认参数值为“所有文件 （*.*），*.*”。FilterIndex Variant 类型，可选。
指定默认文件筛选条件的索引号，取值范围为 1 到 FileFilter 指定的筛选条件数目之间。如果省略本参数，或者取值大于可用筛选数目，则采用第一个文件筛选条件。
Title Variant 类型，可选。指定对话框标题。
如果省略本参数，则使用默认标题。ButtonText Variant 类型，可选。
仅用于 Macintosh。说明本方法返回选定的文件名或用户输入的名称。
返回的文件名可能包含路径说明。如果用户取消了对话框，则该值为 False。
本方法可能更改当前驱动器或文件夹。示例本示例显示文本文件的“另存为”对话框。
如果用户选择了一个文件名，则在消息框中显示所选的文件名。fileSaveName = Application.GetSaveAsFilename( _fileFilter:="Text Files (*.txt), *.txt")。