现在我正在使用 System.Diagnostics.Process.Start(fileInfo); 打开 Excel,以便在将其保存到文件后打开我的软件包。
是否有可能在不必将文件保存到位置的情况下打开 Excel?我希望用户能够决定是否保存该文件。
现在我正在使用 System.Diagnostics.Process.Start(fileInfo); 打开 Excel,以便在将其保存到文件后打开我的软件包。
是否有可能在不必将文件保存到位置的情况下打开 Excel?我希望用户能够决定是否保存该文件。
如果您使用EPPlus(或任何其他直接生成文件的库)自动生成文件,则需要在打开它之前保存它。我建议将其仅保存在临时目录中,然后向用户显示并让他们选择如何处理它。
如果您使用Office Automation生成文件,则可以在保存文件之前向用户显示它。
我知道现在有点晚了,但我也遇到了同样的问题。
我曾经使用 Microsoft.Office.Interop.Excel
将数据导出到一个 xlsx
文件中而不保存它。这样,最终用户可以将其保存或按需要关闭而不保存,文件名会很好地呈现为 Book1.xlsx。
我也转向了 EPPlus 来提高我的导出速度,因此,正如您所经历的那样,无法在未保存之前将打开的文件呈现给最终用户。
我采取的方法是使用 SaveFileDialog 组件,在创建 EPPlus
文件之前提示用户输入名称。这至少允许最终用户确定文件应该保存在哪里,而不是使用“硬编码”目录。
Private Sub btnExportXlsxEPPlus_Click(sender As Object, e As EventArgs) Handles btnExportXlsxEPPlus.Click
Try
Dim filInf As FileInfo = New FileInfo(GetFileToSave())
Using excelPackage As ExcelPackage = New ExcelPackage
excelPackage.Workbook.Properties.Author = "enLIGHTen"
excelPackage.Workbook.Properties.Title = "enLIGHTen Report"
excelPackage.Workbook.Properties.Subject = "enLIGHTen export data"
excelPackage.Workbook.Properties.Created = Date.Now
Dim worksheet As ExcelWorksheet = excelPackage.Workbook.Worksheets.Add("Sheet 1")
worksheet.Cells("A1").Value = "My EPPlus spreadsheet!"
worksheet.Cells(1, 2).Value = "This is cell B1!"
excelPackage.SaveAs(filInf)
End Using
Using excelPackage As ExcelPackage = New ExcelPackage(filInf)
Dim firstWorksheet As ExcelWorksheet = excelPackage.Workbook.Worksheets(1)
Dim namedWorksheet As ExcelWorksheet = excelPackage.Workbook.Worksheets("SomeWorksheet")
Dim anotherWorksheet As ExcelWorksheet = excelPackage.Workbook.Worksheets.FirstOrDefault(Function(x) x.Name Is "SomeWorksheet")
Dim valA1 As String = firstWorksheet.Cells("A1").Value.ToString
Dim valB1 As String = firstWorksheet.Cells(1, 2).Value.ToString
excelPackage.Save()
End Using
Dim proc As Process
Try
proc = New Process()
Process.Start(filInf.FullName)
Catch ex As Exception
MsgBox("File cannot be opened", MsgBoxStyle.Information, "Cannot open file")
End Try
Catch
End Try
End Sub
Public Function GetFileToSave()
Dim strFilename As String = ""
SaveFileDialog1.Filter = "Excel Workbook (*.xlsx)|*.xlsx"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
strFilename = SaveFileDialog1.FileName
Return strFilename
End If
End Function
我认为这个答案会对新开发者有所帮助。 我认为在不保存的情况下查看Excel的最佳选项是Microsoft.Office.Interop.Excel
打开Nuget包控制台Install-Package Microsoft.Office.Interop.Excel
创建Excel文件,这里是官方文档Excel
在填写Excel文件的末尾,只需键入app.Visible = true;
app是对象名称