expression expected in export to excel option ?

Question

1.00/5 (1 vote)

See more:

SQL-Server-2008R2

I dont know what to put after the bracket of the list item class, so their is an error saying

expression expected

This is the code:

C#

xlRange = sheet.Range("A3", "I3")
xlRange.Font.Bold = True
xlRange.ColumnWidth = 13
xlRange.Value = {"Asset Id", "Barcode", "Asset Name", "Employee Name", "Location", "Sl.No", "Computer Name", "Model No", "allocation date"}

error displays in xlrange.value line near to the opening bracket.

Posted 16-Oct-14 3:02am

jmavrix

Add a Solution

2 solutions

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)

E.F. Nijboer · Answer 1 · 2014-10-16T04:27:00

Solution 1

Curly braces don't work in VBA. Try this instead:

xlRange.Value = Array("Asset Id", "Barcode", "Asset Name", "Employee Name", "Location", "Sl.No", "Computer Name", "Model No", "allocation date")

Good luck!

Posted 16-Oct-14 4:27am

E.F. Nijboer

Comments

Maciej Los 16-Oct-14 10:59am

+5

jmavrix 18-Oct-14 2:53am

Hi
Thanks for your reply

but i still have the problem, my code works fine in vb.net 2010 only having issue running in .net 2008.
any other ways ?

Maciej Los 18-Oct-14 10:58am

Yes, please see my answer.

Maciej Los · Answer 2 · 2014-10-18T04:48:00

Solution 2

If you want to add values into cell A3 to I3, try this:

VB

Dim headers As String = "Asset Id,Barcode,Asset Name,Employee Name,Location,Sl.No,Computer Name,Model No,allocation date"

'further
xlRange = sheet.Range("A3:I3")
xlRange.Font.Bold = True
xlRange.ColumnWidth = 13
xlRange = headers.Split(",")

Posted 18-Oct-14 4:48am

Maciej Los

Updated 22-Oct-14 21:34pm

v3

Comments

jmavrix 22-Oct-14 2:15am

It still shows me Array type can not be used as an expression
and i am using vb.net 2008

Maciej Los 22-Oct-14 2:31am

See updated answer ;)

jmavrix 22-Oct-14 2:50am

it gives me an error like xlApp is not declared

any other suggestions please

Maciej Los 22-Oct-14 3:07am

xlApp is an Excel application.
Where are you using above code? Is it VB.NET or VBA?

jmavrix 22-Oct-14 3:49am

<pre lang="vb">Private Sub Export_Excel()
Dim xlApp As Excel.Application

SaveFileDialog1.Title = "Save Excel File"
SaveFileDialog1.Filter = "Excel files (*.xls)|*.xls|Excel Files (*.xlsx)|*.xslx"
SaveFileDialog1.ShowDialog()
'exit if no file selected
If SaveFileDialog1.FileName = "" Then
Exit Sub
End If

'create objects to interface to Excel
Dim xls As New Excel.Application
Dim book As Excel.Workbook
Dim sheet As Excel.Worksheet
Dim xlRange As Excel.Range
'create a workbook and get reference to first worksheet
xls.Workbooks.Add()
book = xls.ActiveWorkbook
sheet = book.ActiveSheet

''Dim valuee(1, 3) As String
''valuee(1, 1) = frmMain.pubH1
''valuee(1, 2) = ""
''valuee(1, 3) = ""

xlRange = sheet.Range("A1", "C1")
xlRange.Font.Bold = True
xlRange.ColumnWidth = 15
'' Error in below line
xlRange.Value = (frmMain.pubH1, "", "")
xlRange.Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlContinuous
xlRange.Borders(Excel.XlBordersIndex.xlEdgeBottom).Weight = 2

'sheet.Cells(1, 1) = frmMain.pubH1

xlRange = sheet.Range("A3", "I3")
xlRange.Font.Bold = True
xlRange.ColumnWidth = 13
'' Error in below line
xlRange.Value = {"Asset Id", "Barcode", "Asset Name", "Employee Name", "Location", "Sl.No", "Computer Name", "Model No", "allocation date"}
xlRange.Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlContinuous
xlRange.Borders(Excel.XlBordersIndex.xlEdgeBottom).Weight = 2

Dim row As Integer = 5
Dim col As Integer = 1
For Each item As ListViewItem In LstAstList.Items
For i As Integer = 0 To item.SubItems.Count - 1
sheet.Cells(row, col) = item.SubItems(i).Text
col = col + 1
Next
row += 1
col = 1
Next

'save the workbook and clean up
book.SaveAs(SaveFileDialog1.FileName)
xls.Workbooks.Close()
xls.Quit()
releaseObject(sheet)
releaseObject(book)
releaseObject(xls)
End Sub</pre>

this is my complete code. In a button click i call this function

Maciej Los 22-Oct-14 6:40am

In your case it would be: xls instead of xlApp.
xlRange.Value = xls.Array(...)

jmavrix 23-Oct-14 1:38am

Public member 'ARRAY' on type 'ApplicationClass' not found.
IT gives me an exception

Maciej Los 23-Oct-14 3:35am

The answer has been updated. Now, it works. Tested, 100% guarantee.

jmavrix 27-Oct-14 1:44am

Unable to cast object of type 'System.String[]' to type 'Microsoft.Office.Interop.Excel.Range'.

Should i need to add any reference files

jmavrix 22-Oct-14 3:50am

vb.net

jmavrix 22-Oct-14 3:50am

--posted by mistake--