aus datagrid lesen

[-Phoenix- 10]

hallo,

ich hab folgendes problem. ich hab ein visual basic programm geschrieben das daten in einem datagrid ausgibt. nun würde ich diese daten gerne in einer tabelle in word ausgeben lassen, hab nur leider keine ahnung

 

danke schonmal

[cablit 10]

Hi Phoenix,

 

das ist schon ein bisschen allgemein, ohne Code ist es recht schwierig das zu beantworten ... aber im Prinzip läuft es so:

 

Du initialisierst dir ein Word.Application-Objekt und ein zugehöriges Word.Document-Objekt und überträgst die Daten vom DataGrid in eine (neue) Tabelle im Word.Document (je nach dem, ob die Datei neu erzeugt wird oder bereits besteht bzw. evtl. die Tabelle schon vorhanden ist, oder dynamisch erstellt werden muss).

 

Grüße

[-Phoenix- 10]

das ding ist ja ich hab ja kein beispiel. ich hab im i-net auch keins gefunden. das mit dem aufruf von word und dem erstellen der tabelle hab ich ja schon ich hab nur keine ahnung wie ich die mit den werten des datagrids füllen kann.

also ein beispiel dafür würde mir schon wahnsinnig helfen

[cablit 10]

Das ist im Prinzip nicht sehr schwer:

 With Word.Application
.Selection.TypeText(Text:="Nr")
.Selection.MoveRight(Unit:=WdUnits.wdCell)
.Selection.Font.Bold = True
.Selection.Font.Size = 14
.Selection.Font.Color = WdColor.wdColorBlue
.Selection.TypeText(Text:="Nachname")
.Selection.MoveRight(Unit:=WdUnits.wdCell)
.Selection.Font.Bold = True
.Selection.Font.Size = 14
.Selection.Font.Color = WdColor.wdColorBlue
.Selection.TypeText(Text:="Vorname")
'usw.

[-Phoenix- 10]

sagt zB .Selection.TypeText(Text:="Vorname") aus welche spalte aus dem datagrid gelesen werden soll?

[cablit 10]

TypeText := "tippt" einen Text ...

MoveRight(Unit:=WdUnits.wdCell) := "springt" zur nächsten Zelle (nach rechts) ... er beginnt bei der ersten Zelle der Tabelle

[-Phoenix- 10]

woher weiß der den das er sich die werte aus dem datagrid ziehen soll?

[-Phoenix- 10]

so sieht der quellcode aus

Dim oTable As Word.Table

Dim oWord As Word.Application

oWord = New Word.Application

Dim oDoc As Word.Document

Dim wdUnits As Word.WdUnits

 

oWord.Visible = True

oDoc = oWord.Documents.Add(Template:="C:\dok2.doc", NewTemplate:=False)

oDoc.FormFields.Item("Name").Range.Text = txtName.Text

oDoc.FormFields.Item("PLZ").Range.Text = txtPLZ.Text

oDoc.FormFields.Item("Ort").Range.Text = txtOrt.Text

 

'With Word.Application

oWord.Selection.TypeText(Text:="Nr")

oWord.Selection.MoveRight(Unit:=wdUnits.wdCell)

oWord.Selection.Font.Bold = True

oWord.Selection.Font.Size = 14

oWord.Selection.TypeText(Text:="Nachname")

oWord.Selection.MoveRight(Unit:=WdUnits.wdCell)

oWord.Selection.Font.Bold = True

oWord.Selection.Font.Size = 14

oWord.Selection.TypeText(Text:="Vorname")

[cablit 10]

Im Prinzip machst das so:

Dim oWord As Word.Application

oWord = New Word.Application

With oWord 
 .Visible = True
 .Documents.Add(DocumentType:=WdNewDocumentType.wdNewBlankDocument)
 .ActiveDocument.Tables.Add(Range:=.Selection.Range, NumRows:= DataGrid1.VisibleRows, NumColumns:= DataGrid1.VisibleCols)
 .Selection.TypeText(Text:=DataGrid1.Columns("ErsterSpaltenName"))
 .Selection.MoveRight(Unit:=WdUnits.wdCell)
 .Selection.TypeText(Text:="DataGrid1.Columns("ZweiterSpaltenName"))
'usw. bis du den kompletten Kopf befüllt hast --> mit MoveRight immer zur nächsten Zelle springen
'danach gehst du weiter Zeile für Zeile durch das DataGrid und überträgst die Daten
End With

[-Phoenix- 10]

VisibleCols, VisibleRows,Columns wird mir als Fehler angezeigt, da das kein Member ist von System.Windows.Forms.Datagrid

[-Phoenix- 10]

kann ich das durch was ersetzten oder muss ich dem noch was über imports hinzufügen?

[cablit 10]

Mir dünkt, du benutzt VB.NET ... die Info wäre ein Stück früher durchaus von Nutzen gewesen ;)

 

Kann ich leider erst heute abend antworten, da ich momentan an keine VB.NET-IDE ran komme.

[-Phoenix- 10]

jo nutze VB.Net dann dank dir schon mal heute abend reicht ;-)

[-Phoenix- 10]

:(

[-Phoenix- 10]

hat vllt noch wer ne idee wie ich das schaffen kann?