MS Excel: How do i store information in an xls spreadsheet according to their rows and colums

Question

1.00/5 (1 vote)

See more:

Hi,

I am trying to save information from my application to an Excel (.xls) spreadsheets. I would like to save them according to their fields and rows.

I have tried to code something like this but it's not saving the values in the correct columns. I have tried this code below:

objWriter.Writeln("{0,1}{1,30}{2,24{3,30}","Order_Number","Order_Quantity","Order_Weight","Time_Scanned")

For i = 0 To alsTxt1.count - 1
objWriter.Writeline(alsTxt1(i) + "  " + alsTxt2(i) + "  " + alsTxt3(i) + "  " + alsTxt4(i))
Next
objWriter.closer ()

Thanks

Posted 16-May-11 23:04pm

Rendani.Nk

Updated 16-May-11 23:54pm

Slacker007

v2

Add a Solution

Comments

Sergey Alexandrovich Kryukov 17-May-11 17:32pm

Gibberish.
--SA

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)

Dave Kreskowiak · Answer 1 · 2011-05-17T03:10:00

Solution 1

Your code doesn't make sense. You are definitely NOT writing an Excel file with this code.

It looks like you're writing a text file, but the format string in the first line of your code doesn't make sense.

Posted 17-May-11 3:10am

Dave Kreskowiak

Comments

Sergey Alexandrovich Kryukov 17-May-11 17:31pm

Ha-ha. My 5.
--SA

Alex_Tx · Answer 2 · 2011-05-23T08:07:00

I hope this code help you. First create the object and specify the headers.

VB

Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object

VB

oExcel = CreateObject("Excel.Application")
       oBook = oExcel.Workbooks.Add
       oSheet = oBook.Worksheets(1)
       lblstatus.Text = "Formatting Excel File..."
       lblstatus.Refresh()
       oSheet.Range("A2").Value = "Dept"
       oSheet.Columns(1).columnwidth = 3.71
       oSheet.Range("B2").Value = "Discipline"
       oSheet.Columns(2).columnwidth = 5.86
       oSheet.Columns(3).columnwidth = 5.0
       oSheet.Range("D2").Value = "Description"
       oSheet.Columns(4).columnwidth = 26.57
       oSheet.Range("E1").Value = "# of"
       oSheet.Columns(5).columnwidth = 6.29

Then you increase the row number each time you read a row in database or array, like this:

VB

oSheet.Range("A" + celda).Value = mnumdept
           oSheet.Range("B" + celda).Value = msubj_code
           oSheet.Range("C" + celda).Value = mcrse_numb
           oSheet.Range("D" + celda).Value = mtitle
           oSheet.Range("E" + celda).Value = mseq_num
           oSheet.Range("F" + celda).Value = menrol

numero=numero+1
celda=convert.tostring(numero)