将数据从 VB 导出到 Excel 工作表

Question

在 VS 2012 上，我创建了一个 VB.NET 计算应用程序（基于变量输入的输出），我需要将这些输入和输出数据保存到 excel 表中的某些单元格中， 这是我使用的代码示例：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim xls As Microsoft.Office.Interop.Excel.Application
        Dim xlsWorkBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlsWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value

        xls = New Microsoft.Office.Interop.Excel.Application
        xlsWorkBook = xls.Workbooks.Open("D:\bookl.xlsx")
        xlsWorkSheet = xlsWorkBook.Sheets("sheet1")

        xlsWorkSheet.Cells(1, 1) = TextBox1.Text

        xlsWorkBook.Close()
        xls.Quit()

End Sub

我的问题是，每次我点击保存按钮时，它都会将数据保存到一个 Excel 工作表文件中，我必须事先指定它的路径。

我想要做的是，如果有任何方法可以从 VB 加载它自己然后选择保存它的位置（因为我要在很多机器上使用它，所以我不想放 excel 文件每次我在任何其他机器上使用该应用程序时都在同一路径中）

Answer 1

从 My.Resources 位置打开 Excel 文件

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim xlsWorkBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlsWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim xls As New Microsoft.Office.Interop.Excel.Application

    Dim resourcesFolder = IO.Path.GetFullPath(Application.StartupPath & "\..\..\Resources\")
    Dim fileName = "book1.xlsx"

    xlsWorkBook = xls.Workbooks.Open(resourcesFolder & fileName)
    xlsWorkSheet = xlsWorkBook.Sheets("Sheet1")

    xlsWorkSheet.Cells(1, 1) = TextBox1.Text

    xlsWorkBook.Close()
    xls.Quit()

    MsgBox("file saved to " & resourcesFolder)
End Sub

资源模板xlsx文件必须复制到输出目录，所以编辑它的属性并选择（其实我不太确定你需要这个...）

Build Action = Content
Copy To Output Directory = Copy Always

附注这只是用于您当前代码的示例，但如果您想创建/保存/修改 excel 文件，我强烈建议您使用EPPlus Library。