PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Datenübernamhe von VB nach Excel ...


Import-Script
06.12.2003, 22:34
Hallo, <BR> <BR>ich habe in VB eine Variable z.B. <BR> <BR>Dim Wert&#40;100&#41; as Byte <BR> <BR>&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42; <BR> <BR>dieser werden jetzt vom Programm 100 Werte gegeben. <BR> <BR>nun könnte ich die 100 Werte in einer Textdatei speichern und dann im Excel importieren. <BR> <BR>gibt es noch eine andere Möglichkeit damiet auf Knopfdruck sich Excel öffnet und die Werte &uuml;bernimmt ? <BR> <BR> <BR>Tobias
Import-Script
08.12.2003, 14:12
Hi, <BR> <BR>such mal hier <BR><a href="http://www.activevb.de" target=_top>http://www.activevb.de</a> <BR>unter den Iipps nach Excel. Dort gibt es sicherlich einige Beispiele, zu Deiner Anfrage. Leider ist das &#34;Interface&#34; zwischen VB und Excel je nach Office-Version unterschiedlich. <BR> <BR>Siegfried
Import-Script
08.12.2003, 14:23
&#34;je nach Office-Version unterschiedlich.&#34; <BR> <BR>na klasse, da hat MS wieder mal Super Hausaufgaben gemacht!!!<img src="http://progshop.com/elektronik/diskussion/clipart/uhoh.gif" border=0> <BR> <BR>
Import-Script
08.12.2003, 16:09
bingo - da habe ich was gefunden - tausend Dank ! <BR> <BR>Tobias <BR> <BR> <BR>&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42;&#42; <BR>&#39;Dieser Source stammt von <a href="http://www.activevb.de" target=_top>http://www.activevb.de</a> <BR>&#39;und kann frei verwendet werden. F&uuml;r eventuelle Schäden <BR>&#39;wird nicht gehaftet. <BR> <BR>&#39;Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum. <BR>&#39;Ansonsten viel Spaß und Erfolg mit diesem Source ! <BR> <BR>Option Explicit <BR> <BR>Dim Excel As Object <BR>Dim LFlag As Boolean <BR> <BR>Private Sub Form_Load&#40;&#41; <BR> Set Excel = CreateObject&#40;&#34;Excel.Application&#34;&#41; <BR> Excel.Visible = False <BR>End Sub <BR> <BR>Private Sub Command1_Click&#40;&#41; <BR> CommonDialog1.Filter = &#40;&#34;Excel-Datei &#40;&#42;.xls&#41;|&#42;.xls;&#34;&#41; <BR> CommonDialog1.InitDir = App.Path <BR> CommonDialog1.ShowOpen <BR> <BR> If CommonDialog1.FileName &#60;&#62; &#34;&#34; Then <BR> Excel.Workbooks.Open CommonDialog1.FileName <BR> LFlag = True <BR> Call Command2_Click <BR> End If <BR>End Sub <BR> <BR>Private Sub Command2_Click&#40;&#41; <BR> If Not LFlag Then Exit Sub <BR> <BR> Text1.Text = Excel.Range&#40;&#34;A1&#34;&#41;.Value <BR> Text2.Text = Excel.Range&#40;&#34;B1&#34;&#41;.Value <BR> Text3.Text = Excel.Range&#40;&#34;C1&#34;&#41;.Value <BR> <BR> Text4.Text = Excel.Range&#40;&#34;A2&#34;&#41;.Value <BR> Text5.Text = Excel.Range&#40;&#34;B2&#34;&#41;.Value <BR> Text6.Text = Excel.Range&#40;&#34;C2&#34;&#41;.Value <BR> <BR> Text7.Text = Excel.Range&#40;&#34;A3&#34;&#41;.Value <BR> Text8.Text = Excel.Range&#40;&#34;B3&#34;&#41;.Value <BR> Text9.Text = Excel.Range&#40;&#34;C3&#34;&#41;.Value <BR>End Sub <BR> <BR>Private Sub Command3_Click&#40;&#41; <BR> If Not LFlag Then Exit Sub <BR> <BR> Excel.Range&#40;&#34;A1&#34;&#41;.Value = Text1.Text <BR> <BR> Excel.Range&#40;&#34;B1&#34;&#41;.Value = Text2.Text <BR> Excel.Range&#40;&#34;C1&#34;&#41;.Value = Text3.Text <BR> <BR> Excel.Range&#40;&#34;A2&#34;&#41;.Value = Text4.Text <BR> Excel.Range&#40;&#34;B2&#34;&#41;.Value = Text5.Text <BR> Excel.Range&#40;&#34;C2&#34;&#41;.Value = Text6.Text <BR> <BR> Excel.Range&#40;&#34;A3&#34;&#41;.Value = Text7.Text <BR> Excel.Range&#40;&#34;B3&#34;&#41;.Value = Text8.Text <BR> Excel.Range&#40;&#34;C3&#34;&#41;.Value = Text9.Text <BR>End Sub <BR> <BR>Private Sub Form_QueryUnload&#40;Cancel As Integer, UnloadMode As Integer&#41; <BR> If LFlag Then <BR> Call Command3_Click <BR> Excel.ActiveWorkbook.Close SAVECHANGES:=LFlag <BR> End If <BR> <BR> Excel.Quit <BR> Set Excel = Nothing <BR>End Sub <BR>