Wie kann ich mein Array() vollständig in eine Excel Zelle bringen.

[MIKQ]

Hi,

ich habe ein eindimesionales Array dessen ca. 5 Werte (01234) ich in
_eine_ Zelle schreiben will.
Um in Excel zu schreiben habe ich folgende Sub geschrieben:
Private Sub ExcelAusgabe(By Val Wert() As Integer)

Dim xlApp As Excel.Applicati on
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
Dim intZeilen As Integer
Dim EigDat As String

'Pfad zu den eigenene Dateien hier ablegen.
EigDat =
Environment.Get FolderPath(Envi ronment.Special Folder.Personal )

xlApp = New Excel.Applicati on
xlApp.Visible = True
xlMappe = _
xlApp.Workbooks .Open(EigDat & "\MMSBest.x ls")
xlBlatt = xlMappe.Workshe ets(1)
xlZelle = xlBlatt.Range(" A1")
intZeilen = xlZelle.Current Region.Rows.Cou nt
xlZelle.Offset( intZeilen, 0).Value = intZeilen
xlZelle.Offset( intZeilen, 1).Value = Now()

'Hier liegt das Problem, oder?
xlZelle.Offset( intZeilen, 2).Value = Wert
xlMappe.Save()
xlMappe.Close()
xlApp.Quit()

End Sub
Alles klappt bis auf den Fehler das in der entsprechenden Zelle für
"Wert" statt "01234" nur "0" steht.

Jemand ne Idee??

[MIKQ]

Anhang:

xlZelle.Offset( intZeilen, 2).Value = CStr(Wert)

kompiliert nicht. Die Fehlermeldung lautet:
Der Wert des Typs "1-dimensionales Array von Integer" kann nicht zu
"String" konvertiert werden.

Gibt es da eine andere Funktion die ich verwenden kann, oder muß ich
das Array durchgehen (mit einem Do until GetArray.Lenght Loop) und
alles in eine String Variable speichern??
Wäre wohl ein Weg, scheint mir aber sehr umständlich.
Irgendein Profi hier der weiter weiß?

[Cor Ligthert [MVP]]

Mikq,

I know at least two persons active in this newsgroup who can answer as well
in good German, although one is from Austria.

However they will tell you that there are a lot of nice entwickler
newsgroups for dotnet.

By instance
microsoft.publi c.de.entwickler .dotnet.vb

Or ask your question in English here. We all want to deal in the answers you
know and in this newsgroups we come from all over the world and use English
as our communication language.

Thanks in advance

Cor

[MIKQ]

Dear Cor Ligthert [MVP]:

Sorry,
didn't want to be unpolite.

I'll try my best translating this in English:

I created a one-dimensional arry with roundabout 5 values (01234).
These values need to be written in _one_ Excel cell.

I wrote a little subroutine to do that:

Private Sub ExcelAusgabe(By Val Wert() As Integer)

Dim xlApp As Excel.Applicati on
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
Dim intZeilen As Integer
Dim EigDat As String

'Pfad zu den eigenene Dateien hier ablegen.
EigDat =
Environment.Get FolderPath(Envi ronment.Special Folder.Personal )

xlApp = New Excel.Applicati on
xlApp.Visible = True
xlMappe = _
xlApp.Workbooks .Open(EigDat & "\MMSBest.x ls")
xlBlatt = xlMappe.Workshe ets(1)
xlZelle = xlBlatt.Range(" A1")
intZeilen = xlZelle.Current Region.Rows.Cou nt
xlZelle.Offset( intZeilen, 0).Value = intZeilen
xlZelle.Offset( intZeilen, 1).Value = Now()

'Here's the problem, isn't it?
xlZelle.Offset( intZeilen, 2).Value = Wert
xlMappe.Save()
xlMappe.Close()
xlApp.Quit()

End Sub

Everything works fine, except that at the end my cell contains:
"0" instead of "01234"

I tried:
xlZelle.Offset( intZeilen, 2).Value = CStr(Wert)

But it won't compile. It tells me can't convert one diemnsional array
to string.
Is there any other function I could use?
Or Do I have to:

visual basic code:

Dim strHelp As String
For i = 0 to MyArray.Length - 1
strHelp = strHelp + MyArray(i)
End if

Would this work?
Any better solution?

[Cor Ligthert [MVP]]

MIKQ,

I understand now that it is about wert() what is an array of integers.

And you want to do something as
\\\\
dim strHelp as new system.text.str ingbuilder
For i = 0 to Wert.Length - 1
strHelp.append( Wert(i).ToStrin g)
End if
xlZelle.Offset( intZeilen, 2).Value = strHelp.ToStrin g
////

Do I understand you right?

Cor

[Q]

Dear Cor Ligthert,

well my initial question was if there isn't some method (e.g. CStr or
ToString) in the .Net framwork I could use to fill my cell with my array
(integer) (Wert) values.

It seems there isn't, so I have to do a "For i = 0 to Wert.Length - 1"
Loop.
I think I do not understand the whole concept.
Having done only a few VB6 programm, I never heard of
"system.text.st ringbuilder"
I'll try the code you provided and read about
"system.text.st ringbuilder" in MSDN help.
Any additional information is very welcome.

MIKQ

--
Sent via .NET Newsgroups
http://www.dotnetnewsgroups.com

[Cor Ligthert [MVP]]

> Dear Cor Ligthert,

well my initial question was if there isn't some method (e.g. CStr or
ToString) in the .Net framwork I could use to fill my cell with my array
(integer) (Wert) values.

It seems there isn't, so I have to do a "For i = 0 to Wert.Length - 1"
Loop.
I think I do not understand the whole concept.
Having done only a few VB6 programm, I never heard of
"system.text.st ringbuilder"
I'll try the code you provided and read about
"system.text.st ringbuilder" in MSDN help.
Any additional information is very welcome.

MIKQ

Mike,

In your case it is not so important if you use stringbuilder.
What is happening is that concatenating strings is expensive for memory use
in VBNet.

Everytime a string is build new and the old one stays in memory until the
Garbage Collector releases it.

To overcome that is stringbuilder. It is not really important in your case.
However writing it as I did was less work to do and absolute not worse than
concatinating.

Cor

[Q]

Cor,

got it.
Now I understand.
The code you provided works fine too, so I guess my question is
answered.
How is the policy here, any [RESOLVED] I have to add somewhere?

Greetings
MIKQ

--
Sent via .NET Newsgroups
http://www.dotnetnewsgroups.com