excelvba怎么保存(excelvba保存文件)

使用Excel VBA保存文件

在Excel VBA中，保存可以使用Application对象中的Save或SaveAs方法。 Save方法将保存文件为指定路径，而SaveAs方法则需要指定新的路径并且可以选择不同的文件类型。

使用VBA保存文件的例子

在Excel Workbook对象中，有两种方法可以保存文件。下面是它们的样例代码：

1. 使用Save方法保存文件：

   
       ActiveWorkbook.Save
       

2. 使用SaveAs方法保存文件：

   
       ActiveWorkbook.SaveAs Filename:="C:\Users\Documents\MyWorkbook.xlsx", FileFormat:=xlOpenXMLWorkbook
       

在VBA中选择不同的文件类型并保存

这里使用ShowDialog方法可以让用户选择不同的文件类型和保存路径。

Dim intChoice As Integer
Dim strFileName As String
Dim strPath As String

' Choose a file type
intChoice = Application.FileDialog(msoFileDialogSaveAs).Show

'If the user selects a file type, process the file
If intChoice <> 0 Then
    strFileName = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
    strPath = Left(strFileName, InStrRev(strFileName, "\"))
    
    Select Case Application.FileDialog(msoFileDialogSaveAs).FilterIndex
        Case 1
            ActiveWorkbook.SaveAs Filename:=strFileName, FileFormat:=xlOpenXMLWorkbook
        Case 2
            ActiveWorkbook.SaveAs Filename:=strFileName, FileFormat:=xlCSV
        Case Else
            ActiveWorkbook.SaveAs Filename:=strFileName
   End Select
End If

在以上代码中，如果用户选择了保存文件的类型，程序就会把文件保存为指定的文件格式。事实上这里还可以对保存路径和文件名称进行更多的处理，具体取决于实际需求。