title image


Smiley Re: Anfänger sucht Beispiel für VB6, indem Excel-dateien bearbeitet werden
Hier ein Beispiel aus der Onlinehilfe von Visual Basic:Nicht einfach zu finden... ich hoffe es hilft im Ansatz weiter...------------------------------------------------------------------------------------------------------------------LinkPoke-Methode (Beispiel)Dieses Beispiel stellt eine DDE-Verbindung mit Microsoft Excel her, plaziert einige Werte in die Zellen der ersten Zeile einer neuen Tabelle und zeigt diese als Diagramm an. LinkPoke sendet die anzuzeigenden Werte an die Microsoft Excel-Tabelle. Sie können dieses Beispiel ausprobieren, wenn Microsoft Excel auf Ihrem Computer installiert ist und in der Path-Anweisung Ihrer Autoexec.bat-Datei eingetragen ist. Fügen Sie den Code in den Deklarationsabschnitt eines Formulars ein, das ein Textfeld-Steuerelement (TextBox) mit dem Standardnamen Text1 enthält, drücken Sie F5, und klicken Sie dann auf das Formular.Private Sub Form_Click () Dim Cmd, I, Q, Row, Z ' Variablen deklarieren. Q = Chr(34) ' Anführungszeichen definieren. ' Zeichenfolge erzeugen, die Microsoft Excel-Makrobefehle enthält. Cmd = "[AKTIVIEREN(" & Q &"TABELLE1" & Q & ")]" Cmd = Cmd & "[AUSWÄHLEN(" & Q & "Z1S1:Z5S2" & Q & ")]" Cmd = Cmd & "[NEU(2,1)][ANORDNEN()]" If Text1.LinkMode = vbLinkNone Then Z = Shell("Excel", 4) ' Microsoft Excel starten. Text1.LinkTopic = "Excel|TABELLE1" ' Verbindungsthema setzen. Text1.LinkItem = "Z1S1" ' Verbindungselement setzen. Text1.LinkMode = vbLinkManual ' Verbindungsart setzen. End If For I = 1 To 5 Row = I ' Zeilennummer definieren. Text1.LinkItem = "Z" & Row & "S1" ' Verbindungselement setzen. Text1.Text = Chr(64 + I) ' Wert in Text setzen. Text1.LinkPoke ' Wert zur Zelle senden. Text1.LinkItem = "Z" & Row & "S2" ' Verbindungselement setzen. Text1.Text = Row ' Wert in Text setzen. Text1.LinkPoke ' Wert zur Zelle senden. Next I Text1.LinkExecute Cmd ' Microsoft Excel-Befehle ausführen. On Error Resume Next MsgBox "LinkPoke-Demo mit Microsoft Excel beendet.", 64 EndEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: