Work with excel in VB.NET fails without reason

Question

1.00/5 (2 votes)

See more:

Excel-2016

Kindly please look at below code, which is about to export to excel file. Visual Studio doesn't run it. What is wrong with this code?
Please see the screenshot from the link:

https://yourimageshare.com/ib/SzbwxQ7g9t[^]

VB.NET

Imports Microsoft.Office.Interop.Excel
Module Module3
    Public Sub OOO()
        Dim excel As Application = New Application
        Dim workbook As Workbook = New Workbook
        Dim worksheet As Worksheet = workbook.ActiveSheet
        worksheet.Name = "Export as Excel Project"
        worksheet.Cells(1, 1) = "Value1"
        worksheet.Cells(2, 1) = "Value2"
        worksheet.SaveAs("d:\Actor.xls", Microsoft.Office.Interop.Excel.XlFileFormat.xlWorkbookDefault)
        workbook.Close()
    End Sub
End Module

What I have tried:

I tried the code I wrote. But no luck.

Posted 21-May-23 2:14am

Sh.H.

Updated 21-May-23 3:11am

Add a Solution

2 solutions

Solution 1

here is a sample which shows you how to work with it :
How to create an Excel file in VB.NET[^]
Automate Excel from Visual Basic .NET to fill or obtain data by using arrays - Office | Microsoft Learn[^]

Posted 21-May-23 3:09am

Ralf Meier

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard MacCutchan · Accepted Answer · 2023-05-21T03:11:00

You have not qualified the object names so the system knows which types you are referring to. Try changing the Dim statements to:

VB

Dim excel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application
Dim workbook As Microsoft.Office.Interop.Excel.Workbook = New Microsoft.Office.Interop.Excel.Workbook
Dim worksheet As Microsoft.Office.Interop.Excel.Worksheet = workbook.ActiveSheet

[edit]
Here is a tested sample that should do what you want:

VB.NET

Imports System.IO
Imports Excel = Microsoft.Office.Interop.Excel

Module XLTest
    Sub Main()
        Dim xlApp As Excel.Application = New Excel.Application()
        If xlApp Is Nothing Then
            Console.WriteLine("Error: Excel is not properly installed.")
            Return
        End If
        Dim xlWorkBook As Excel.Workbook
        xlWorkBook = xlApp.Workbooks.Add(Type.Missing)

        Dim xlWorkSheet = xlWorkBook.Sheets.Add(Type.Missing)
        xlWorkSheet.Cells(1, 1) = "Value1"
        xlWorkSheet.Cells(2, 1) = "Value2"
        xlWorkBook.SaveAs("d:\Actor.xlsx")

        xlWorkBook.Close(True, Type.Missing, Type.Missing)
        xlApp.Quit()

        Console.WriteLine("Excel test complete")
    End Sub
End Module

[/edit]