Announcement

**fanderlf** · 05.07.2011, 18:18

Also hier hat das worksheet auch eine Cells Property. Hat die Dein Worksheet Objekt nicht?

**Regulator** · 05.07.2011, 18:45

Das Worksheet-Objekt hab' ich, aber Cell gibt es nicht und Cells gibt ein Range-Objekt zur�ck, das das gesamte Blatt enth�lt...
Wenn Du auf Deinen Link klickst, dann gibt's die Erkl�rungen, dass VB diese Property nicht unterst�tzt ;-)

**fanderlf** · 05.07.2011, 19:02

Hier isses aber in VB.NET. 99,99% der Sachen die in C# gehen, gehen auch in VB, das w�rde ich nicht als Kriterium gelten lassen.

**Regulator** · 05.07.2011, 19:11

In der �berschrift des Links ist VS2010 aber leider nicht aufgef�hrt.
In VS2008 hab' ich's auch noch so hingekriegt. Mein neuer ArbGeber hat aber "nur" VS2010... Und da hab' ich's halt nicht gefunden. Und das Portieren der VS2008-Anwendung nach VS2010 hat genau an der Stelle halt den Fehler verursacht (und auch keinen Vorschlag f�r eine �nderung des Zugriffs gemacht - au�er "Range").
Gibt's denn ein Code-Snippet, das die 1,1-Schreibweise in eine A1-Schreibweise umwandelt?

**Ralf Jansen** · 05.07.2011, 19:19

dann gibt's die Erkl�rungen, dass VB diese Property nicht unterst�tzt ;-)

... oder das es einfach kein entsprechendes Codebeispiel gibt. Du musst den Satz schon ganz lesen

Und wenn man merkt das der Link ins C# Programmierhandbuch f�hrt kann man sich denken das die 2.te M�glichkeit wahrscheinlicher ist.

In VS2008 hab' ich's auch noch so hingekriegt. Mein neuer ArbGeber hat aber "nur" VS2010... Und da hab' ich's halt nicht gefunden. Und das Portieren der VS2008-Anwendung nach VS2010

Ich habe VS2010 und die Beispiele mit Cells funktionieren. Wenn du ein Projektimport von VS2008 nach VS2010 gemacht hast welche Office Interop Assembly benutzt du denn jetzt. Noch die von VS2008 oder die von VS2010 oder eine selbstgemachte oder was gekauftes? Und f�r welche Officeversion war diese Interop Assembly urspr�nglich gedacht?

**Regulator** · 05.07.2011, 19:26

Ich hab' f�r Excel2010 (auch beim neuen AG installiert) importiert. Kannst Du mir mal ein St�ck �berf�hrten Code posten, das ich dann versuche morgen ins Projekt zu implementieren?!

**Ralf Jansen** · 05.07.2011, 19:46

[Highlight=VB.Net]Public Class Programm
Public Shared Sub Main(ByVal args As String())
Dim excelApp As New Microsoft.Office.Interop.Excel.Application()
excelApp.Visible = True
excelApp.Workbooks.Add()

Dim workSheet As Microsoft.Office.Interop.Excel._Worksheet = excelApp.ActiveSheet
workSheet.Cells(1, "A") = "Hallo"
workSheet.Cells(1, "B") = "Welt"
End Sub
End Class[/Highlight]

Habe nur die die Referenz auf die bei VS2010 beiliegende 'Microsoft.Office.Interop.Excel' Assembly hinzugef�gt und mich an die Hilfe gehalten.

**Regulator** · 05.07.2011, 20:00

Danke f�r den Code...
Aber sehe ich das richtig, dass auch hier mit Cells(1, "B") = "Welt" die A1-Schreibweise genutzt wird?!
Ich berechne mit Hilfe von Formeln im VB-Code den Zellbezug
(z.B. cells(i+1,3*k+3))...
Das ist mit der von Dir geposteten Zeile nicht wirklich zu machen... oder?

**Ralf Jansen** · 05.07.2011, 20:15

Du brauchst mehr Mut zum ausprobieren. Ehrlich kannst nix kaputt machen

[Highlight=VB.Net]Public Class Programm
Public Shared Sub Main(ByVal args As String())
Dim excelApp As New Microsoft.Office.Interop.Excel.Application()
excelApp.Visible = True
excelApp.Workbooks.Add()

Dim x As Integer = 1
Dim y As Integer = 2

Dim workSheet As Microsoft.Office.Interop.Excel._Worksheet = excelApp.ActiveSheet
workSheet.Cells(x, y - 1) = "Hallo"
workSheet.Cells(x, y) = "Welt"
End Sub
End Class[/Highlight]

Geht genauso.

**Regulator** · 05.07.2011, 20:29

Geil... Ich werd's morgen sofort ausprobieren.
Wenn das klappt, dann werde ich Dich in meine Nachtgebete einschlie�en

Wenn nicht, liest Du mich morgen wieder im Forum

Auf jeden Fall: Vielen Dank!!!

**Regulator** · 05.07.2011, 21:47

Und was ich noch sagen wollte:
Danke daf�r, dass nicht einer geantwortet hat mit: "Warum machst Du das so? Mach's doch ganz anders."
Das finde ich ausgesprochen klasse (bin ich aus Foren zu anderen Themen leider so nicht gewohnt)!

**fanderlf** · 05.07.2011, 22:40

Eigentlich sind wir ab und zu auch so (zumindest ich

). Aber das war wirklich einfach zu beantworten und die Frage war so gew�hlt dass man nicht anders antworten konnte. Oft ist aber auch so, dass man an der Fragestellung schon merkt dass sich der OP in eine L�sung verrennt die einfach viel viel einfacher gel�st werden kann oder die L�sung f�r das Problem an einer ganz anderen Stelle zu suchen ist.
Ich bin immer daf�r den Leuten was beizubringen und nicht nur irgendwelche Symptome zu fixen, nur damit er 2 Tage sp�ter �ber das n�chste Problem f�llt.

**Regulator** · 06.07.2011, 08:19

Ich hab's ausprobiert und es geht. Meine Fehler:
Erstens:
[highlight=vbnet]Public xlsapp As Excel.Application
Public xlswb As Excel.Workbook
Public xlssheet As Excel.Worksheet
Public xlsrange As Excel.Range
xlsapp = New Excel.Application
xlswb = xlsapp.Workbooks.Open(Pfad & "\Datei.xlsx")[/Highlight]
hatte ich deklariert.
Danach im Lauf des Codes
[highlight=vbnet]xlssheet = xlswb.Worksheets("Daten")
xlssheet.Activate()[/highlight]
Da ich dachte, dass "Worksheet" ein Member von "Workbook" ist...
Falsch gedacht... Ist ein Member von "Application", so dass es hei�en muss:
[highlight=vbnet]xlssheet = xlsapp.Worksheets("Daten")
xlssheet.Activate()[/highlight]
Zweitens:
Wenn man in der Entwicklungsumgebung schreibt
[highlight=vbnet]Variable = xlssheet.Cells(1, i * 5 + 2).[/highlight]
bietet einem die Hilfe (komm nich auf das richtige Wort) nach dem Punkt nur "Equals, GetHashCode, GetType, ReferenceEquals und ToString" an.
"Value" ist nicht im Angebot, funktioniert aber...
Nochmals vielen Dank f�r die Hilfe und mein Nachtgebet wird erweitert

Announcement

Visual Studio 2010 (VB) und Excel-Zellen lesen/schreiben

Visual Studio 2010 (VB) und Excel-Zellen lesen/schreiben

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment