Steuerelemt markieren und in Excelsheet einfügen

06/10/2007 - 21:39 von Hans Bläse | Report spam
Hallo NG!
Ich haben eine Formular in Tabellarischer Form und möchte, wenn ich in
ein Steuerelement auswàhle und dann doppelklicke, das der Inhalt dieses
Steuerelementes in die Zwischenablage kopiert, dann eine bestimmte
Exceldatei geöffnet und der Inhalt aus der Zwischenablage in eine
bestimmte Zelle der Exceldatei kopiert wird.

Wollte es so lösen, das beim Doppelklicken in das Steuerelement der
Inhalt markiert, dann kopiert wird, dann die Exceldatei geöffnet wird
und dann an die bestimmte Stelle in der Exceldatei z.B. U1 eingefügt
wird!

Danke schon mal für eure Hilfe
Gruß Hans
 

Lesen sie die antworten

#1 Peter Doering
07/10/2007 - 00:01 | Warnen spam
Hallo,

Hans Blàse wrote:

Ich haben eine Formular in Tabellarischer Form und möchte, wenn ich in
ein Steuerelement auswàhle und dann doppelklicke, das der Inhalt dieses
Steuerelementes in die Zwischenablage kopiert, dann eine bestimmte
Exceldatei geöffnet und der Inhalt aus der Zwischenablage in eine
bestimmte Zelle der Exceldatei kopiert wird.

Wollte es so lösen, das beim Doppelklicken in das Steuerelement der
Inhalt markiert, dann kopiert wird, dann die Exceldatei geöffnet wird
und dann an die bestimmte Stelle in der Exceldatei z.B. U1 eingefügt
wird!



Die Zwischenablage brauchst du dafuer nicht. Du kannst Excel per Automation
steuern. Beispiele findest du in der Suchmaschine deiner Wahl zu hauf. Hier
ein weiteres:

Private Sub DeinSteuerelement_DblClick()
Dim objXL As Object
Dim xlWbk As Object
Dim xlSht As Object

Set objXL = CreateObject("Excel.Application")
Set xlWbk = objXL.Workbooks.Open "C:\Temp\Dein.xls"
Set xlSht = xlWbk.Sheets(1)

xlSht.Cells(1, 21) = Me!DeinSteuerelement.Value
'Reihe 1 Spalte 21 = U1

With objXL
.Visible = True
.UserControl = True
End With

Set xlSht = Nothing
Set xlWbk = Nothing
Set objXL = Nothing
End Sub

(Luftcode)

Gruss - Peter

Ich beantworte keine Fragen per Email.
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen