Excel kopieren, VB bearbeiten, Excel einfügen

Computer: Software & Programmierung Visual Basic
#1

Hallö,
kleines VB-Problem:
Wenn ich die Daten aus Excel kopiere, in VB das Clipboard auslese, bearbeite (vorne und hinten was dranhängen) und schreibe, kopiert Excel die unbearbeitete Datei wieder rein…
Die zu kopierende Tabelle bleibt einfach gestrichelt umrandet!

Option Explicit On
Option Strict On
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Clipboard.GetText()
Clipboard.Clear()
Clipboard.SetText(„TextVor“ & TextBox3.Lines(0) & „TextNach“)
End Sub
End Class

Danke!
Gruß
Micha

#2

Wenn ich die Daten aus Excel kopiere, in VB das Clipboard
auslese, bearbeite (vorne und hinten was dranhängen) und
schreibe, kopiert Excel die unbearbeitete Datei wieder rein…
Die zu kopierende Tabelle bleibt einfach gestrichelt umrandet!
Option Explicit On
Option Strict On
Imports System.IO

Hallo Micha,

um welche VB-Version geht es?

Getestet mit Excel2000 und Vb5.0

In VB5.0, auf der Form ein Textfeld und einen CommandButton.

Private Sub Command1\_Click()
Dim appExcel As Application, Kurz
Set appExcel = GetObject(, "Excel.Application")
With appExcel
 .Worksheets("Tabelle1").Range("A1:C7").Copy
 Kurz = "Erste Zeile" & vbCrLf & Clipboard.GetText(vbCFText) & "Letzte Zeile"
 Text1.Text = Kurz
 Clipboard.Clear
 Clipboard.SetText Kurz, vbCFText
 .Worksheets("Tabelle1").Range("E1").Select
 .Worksheets("Tabelle1").Paste
 .CutCopyMode = False
End With
End Sub

Gruß
Reinhard