创建的文件无效/文件无效

Question

我正在用户桌面上创建一个空白文件（.xlsx），然后我需要打开该文件并用数据填充该文件，但是在打开该文件时我收到一个错误“文件无效”。我正在使用以下代码：

Dim filePath As String = desktopPath & "\Suspense_" & Now.Date.ToString("MMddyy") & ".xlsx"

Dim fs As FileStream = Nothing
fs = File.Create(filePath)
'getting error on below line
xlWorkBook = xlApp.Workbooks.Open(filePath)

文件创建成功，打开失败。

请指出我做错了什么。

Answer 1

创建文件并重命名扩展名并不意味着它是该类型的文件。就像将 .png 文件重命名为 .txt 并不意味着它现在是一个文本文件。

创建一个空白 Excel 文件：

添加对Microsoft Excel Object Library 的引用（您的机器上安装了哪个版本）

然后使用此代码创建一个空白 xlsx 文件：

Private _xlApp As Microsoft.Office.Interop.Excel.Application
Private _xlWSheet As Microsoft.Office.Interop.Excel.Worksheet
Private _xlWBook As Microsoft.Office.Interop.Excel.Workbook

Public Sub CreateNewFile()
    Dim filename As String = "C:\Scratch\Test1.xlsx"
    _xlApp = New Microsoft.Office.Interop.Excel.Application
    _xlApp.DisplayAlerts = False
    _xlWBook = _xlApp.Workbooks.Add()
    _xlWBook.SaveAs(filename)
    CloseAndCleanUpExcelObjects()
End Sub

Private Sub CloseAndCleanUpExcelObjects()
    'close the workbook and quit the app
    If _xlWBook IsNot Nothing Then _xlWBook.Close()
    If _xlApp IsNot Nothing Then _xlApp.Quit()
    'destroy the objects
    If _xlWSheet IsNot Nothing Then _xlWSheet = Nothing
    If _xlWBook IsNot Nothing Then _xlWBook = Nothing
    If _xlApp IsNot Nothing Then _xlApp = Nothing

    'Force garbage collection
    GC.Collect()
End Sub