Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOPENFILENAME As OPENFILENAME) As Long '"打开"API
 Private Declare Function GetSaveFileName Lib “comdlg32.dll” Alias “GetSaveFileNameA” (pOPENFILENAME As OPENFILENAME) As Long '"保存"APIA
 Private Type OPENFILENAME
 lStructSize As Long
 hwndOwner As Long
 hInstance As Long
 lpstrFilter As String
 lpstrCustomFilter As String
 nMaxCustFilter As Long
 nFilterIndex As Long
 lpstrFile As String
 nMaxFile As Long
 lpstrFileTitle As String
 nMaxFileTitle As Long
 lpstrInitialDir As String
 lpstrTitle As String
 Flags As Long
 nFileOffset As Integer
 nFileExtension As Integer
 lpstrDefExt As String
 lCustData As Long
 lpfnHook As Long
 lpTemplateName As String
 End Type
 
Private Function OpenImaget(hWnd As Long, DaBao As Boolean) As String '打开与另存为文件对话框
 Dim 

Function 文件类型csv另存为xlsx()
    '请记得先改一下路径，做好备份，最好不要另存为原路径
    'ActiveWorkbook.SaveAs Filename:=Replace(ActiveWorkbook.Path, "新数据", "新数据-新") & "/" & Replace(ActiveWorkbook.name, "csv", "xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    '这里是原路径，如果非要存原路径，也行，就用下面这行代码，把上面的注释掉
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "/" & Replace(ActiveWorkbook.name, "csv", "xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Function

Sub VBA打开文件夹内所有Excel表格_升级版_采用用户点选文件夹路径_而无须修改源代码()
    Dim myPath$, myFile$, WB As Workbook    '这个$ 是相当于定义字符串
    '调用函数，获取用户选择的文件夹，并且在最后加上一个反斜杠，用于下面的文件列表获取
    myPath = ChooseFolder & "\"
    myFile = Dir(myPath & "*.*") '依次找寻指定路径中所有文件（所以文件夹里里面不要乱放其他文件）
    Do While myFile <> "" '当指定路径中有文件时进行循环
        If myFile <> ThisWorkbook.name Then '如果我们这个宏文件在需要处理的文件夹之中，这个判断就会跳过下面的操作
            Set WB = Workbooks.Open(myPath & myFile) '打开符合要求的文件
            Call 文件类型csv另存为xlsx
            WB.Close 0  '不保存文件直接关闭
        End If
        myFile = Dir '找寻下一个*.xls，或者xlsx文件
        Loop
        Set WB = Nothing    '释放变量内存
End Sub

Public Function ChooseFolder() As String
            '定义并新建一个对话框对象
            Dim dlgOpen As FileDialog
            Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
            '如果当前没有对话框显示，就让他弹出对话框
            If dlgOpen.Show = -1 Then ChooseFolder = dlgOpen.SelectedItems(1)
            Set dlgOpen = Nothing
End Function
   
 

使用VBA代码一键分离另存excel文件中的sheet子表
 
打开VB，增加模块，输入以下代码：
 Sub SaveSeparately()
 Dim sht As Worksheet
 Application.ScreenUpdating = False
 ipath = ThisWorkbook.Path & “”
 For Each sht In Sheets
 sht.Copy
 ActiveWorkbook.SaveAs ipath & sht.Name
 ActiveWorkbook.Close
 Next
 Application.ScreenUpdating = True
 End Sub
 
一、在模块中键入以上代码之后，点击保存，选择图片中的“否”。
 
 
二、另存为“excel启用宏的工作簿”，保存。
 
 三、保存完之后，点击图片中的三角形运行代码后即可自动将每个子表保存为独立的excel文件。
 

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 如果是一般的打开某个Excel文件修改后保存到原文件或者新的文件，在 Excel.Application.Quit() 前直接使用
 Workbook.Save() 或 Workbook.SaveAs(文件名称) 就可以了。
 但是对于要把数据（并非通过打开Excel文件获得的数据）保存成Excel文件，那么可以按照以下步骤：
 1、新建了一个Application对象：
 Dim xls As New Excel.Application
 2、新建工作簿并添加到创建的Application对象：
         Dim Wbook As Excel.Workbook
         Wbook = xls.Workbooks.Add
 3、  使用原有的工作表，一般默认创建Wbook后会有sheet1、sheet2、sheet3三个工作表，可以使用上一节方法指定一个工作表写数据。
 或者新建工作表：
        Dim Wsheet As Excel.Worksheet
         Wsheet = Wbook.Worksheets.Add
 并按需要指定工作表名称，如不指定，那么新工作表默认名称为 Sheet4：
         Wsheet.Name = "电脑销售表"
 4、读取现有数据并写入单元格，需要注意的是Excel单元格的起始序号为1，而一般vb.net中数组等的起始序号为0：
         Wsheet.Cells(i行号,列号).value = "值"
 5、保存工作簿
        Workbook.SaveAs(文件名称)
 6、最后，别忘了关闭打开的 Excel：
        Excel.Application.Quit()
 具体代码如下：
 
    '另存为
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim filename As String
        Dim sfd As New SaveFileDialog()
        sfd.Filter = "表格文件|*.xls;*.xlsx"
        If sfd.ShowDialog <> DialogResult.OK Then
            Exit Sub
        Else
            filename = sfd.FileName
        End If

        Dim xls As New Excel.Application
        Dim Wbook As Excel.Workbook
        Wbook = xls.Workbooks.Add

        Dim Wsheet As Excel.Worksheet
        Wsheet = Wbook.Worksheets.Add
        Wsheet.Name = "电脑销售表"

        If lvExcel.Columns.Count > 1 Then
            For i As Integer = 0 To lvExcel.Columns.Count - 1
                Wsheet.Cells(1, i + 1).value = lvExcel.Columns(i).Text
            Next
        End If

        If lvExcel.Items.Count > 0 Then
            For i As Integer = 0 To lvExcel.Items.Count - 1
                Dim pos As Integer = 0
                For Each subLvText As ListViewItem.ListViewSubItem In lvExcel.Items(i).SubItems
                    pos += 1
                    If subLvText.Text = "(空)" Then
                        Wsheet.Cells(i + 2, pos).value = ""     '+2是因为excel表格第一行从1开始，而表头已经占了第一行，所以写入的数据从第2行开始。
                    Else
                        Wsheet.Cells(i + 2, pos).value = subLvText.Text
                    End If
                Next
            Next
        End If

        Wbook.SaveAs(filename)
        xls.Quit()

        MessageBox.Show("保存完毕")
    End Sub
 
保存的Excel文件如图：
 
 
 
 
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
 
学习更多vb.net知识，请参看 vb.net 教程 目录