VB.NET 使用workbook.SaveAs 设置FileFormat

在VB.NET中，如果你想要使用Excel文件并保存工作簿为其他格式，比如PDF、CSV或xlsx等，你可以使用`Microsoft.Office.Interop.Excel.Workbook`类的`SaveAs`方法。这个方法需要一个参数，即`FileFormat`枚举类型，它指定了你要保存的工作簿的文件格式。

例如，如果你想将工作簿保存为PDF格式，可以这样做：

Dim excelApp As New Excel.Application()
Dim workbook As Workbook = excelApp.Workbooks.Open("原文件路径")
Dim fileFormat As Excel.XlFileFormat = Excel.XlFileFormat.xlPDF ' 声明你要的文件格式

' 确保已经设置了你需要的设置（如是否包含宏、压缩等）
workbook.SaveAs("目标文件路径", FileFormat:=fileFormat)

' 关闭工作簿和应用程序
workbook.Close()
excelApp.Quit()

同样，你可以通过改变`FileFormat`的值来选择其他格式，例如`xlCSV`用于CSV格式，`xlXLSX`用于.xlsx格式等。

相关问题

VB.NET 代码 ACCESS导出EXCEL 快速导出不循环

以下是使用 VB.NET 快速导出 ACCESS 数据到 EXCEL 的示例代码：

Imports System.Data.OleDb
Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
        Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myPath\myDatabase.accdb"
        Dim query As String = "SELECT * FROM myTable"

        Dim conn As New OleDbConnection(connString)
        Dim cmd As New OleDbCommand(query, conn)
        Dim da As New OleDbDataAdapter(cmd)
        Dim dt As New DataTable()

        da.Fill(dt)

        Dim excel As New Excel.Application()
        Dim workbook As Excel.Workbook = excel.Workbooks.Add(Type.Missing)
        Dim worksheet As Excel.Worksheet = Nothing

        worksheet = workbook.Sheets("Sheet1")
        worksheet = workbook.ActiveSheet
        worksheet.Name = "Exported from Access"

        Dim columnIndex As Integer = 0
        Dim rowIndex As Integer = 1

        ' Add the headers to the Excel file
        For Each dc As DataColumn In dt.Columns
            columnIndex += 1
            worksheet.Cells(1, columnIndex) = dc.ColumnName
        Next

        ' Add the data to the Excel file
        For Each dr As DataRow In dt.Rows
            rowIndex += 1
            columnIndex = 0

            For Each dc As DataColumn In dt.Columns
                columnIndex += 1
                worksheet.Cells(rowIndex, columnIndex) = dr(dc.ColumnName)
            Next
        Next

        ' Format the Excel file
        worksheet.Rows("1:1").Font.Bold = True
        worksheet.Rows("1:1").AutoFitColumns()
        worksheet.Columns.AutoFit()
        worksheet.Columns.HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft

        ' Save the Excel file and close Excel
        Dim saveFileDialog As New SaveFileDialog()
        saveFileDialog.Filter = "Excel files (*.xlsx)|*.xlsx|All files (*.*)|*.*"
        saveFileDialog.FilterIndex = 2
        saveFileDialog.RestoreDirectory = True

        If saveFileDialog.ShowDialog() = DialogResult.OK Then
            workbook.SaveAs(saveFileDialog.FileName)
            MessageBox.Show("Export Successful!")
        End If

        excel.Quit()
    End Sub
End Class

这个示例代码使用 OleDb 连接到 ACCESS 数据库，从指定的表中获取数据，然后将数据导出到一个新的 EXCEL 文件中。这个示例代码使用了 Microsoft Office Interop Excel 库来创建和操作 EXCEL 文件。

在这个示例代码中，我们首先创建了一个 DataTable 对象来存储从 ACCESS 数据库中获取的数据。然后，我们使用 Excel.Application 类创建了一个新的 EXCEL 文件。我们添加了一个名为 "Sheet1" 的工作表，并将其设置为活动工作表。我们使用循环将数据添加到 Excel 文件中，然后格式化 Excel 文件以使其更易于阅读。最后，我们使用 SaveFileDialog 对象来让用户选择保存文件的位置和文件名，然后将 Excel 文件保存到指定位置。