Visual Basic 2008 & Word/Excel
 

Hallo,
Ich programmiere sehr gerne mit Visual basic 2008, ich versuche momentan ein Programm für ein spiel (Shakes and Fidget) zu programmieren (nichts illegales, etwas für meine Gilde!). Das programm soll punkte ausrechnen und in eine Word/Excel Tabelle schreiben :)

Mein problem ist dass immer wenn ich es schreiben möchte öffnet sich ein neues Word/Excel Dokument! :eek: Geht das nicht auch so das sich nur ein dokument öffnet und Visual Basic dann dort das nächste reinschreibt also der Code ist folgender:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = (Val(TextBox3.Text) - Val(TextBox1.Text)) * Val(TextBox3.Text)
Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Shell("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Office\Microsoft Office Word 2007.ink", vbMaximizedFocus)

My.Computer.Keyboard.SendKeys(TextBox4.Text)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(TextBox1.Text)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys("<")
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(TextBox3.Text)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(TextBox2.Text)
Timer1.Stop()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = (Val(TextBox3.Text) - Val(TextBox1.Text)) * Val(TextBox3.Text)
End Sub
End Class

kann mir evtl. jemand helfen??? Danke schon mal im vorraus.

p.s
Der Code oben ist noch für Word!

Ich meine nur ob das geht das sich da nur ein Dokument öffnet :D

Hi,

du kannst über eine Ado(ActiveX Data Objects) Verbindung auf eine gewünschte Excel Tabelle zuzugreifen.

Oder ganz einfach die "Microsoft Excel 5.0 Object Library"(oder spätere Version) einbinden und direkt Excel steuern.

Sry, bin noch sehr neu bei VB, wie müsste dann dieser teil heißen:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Shell("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Office\Microsoft Office Word 2007.ink", vbMaximizedFocus)

My.Computer.Keyboard.SendKeys(TextBox4.Text)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(TextBox1.Text)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys("<")
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(TextBox3.Text)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(TextBox2.Text)
Timer1.Stop()
End Sub