Tabelle aus PDF in Spalten einfügen

Forumthread: Tabelle aus PDF in Spalten einfügen

10.03.2008 13:47:23

matthias

Hallo,
ich möchte den Inhalt der Zwischenablage vor dem Einfügen in eine Tabelle bearbeiten. So sollen die Tabelleninhalte in die jeweiligen Spalten eingetragen werden und nicht als Text.
Wie ich das Clipboard auslese habe ich bereits herausgefunden. Nur habe ich noch keine Idee, wie ich den in eine Variable geschriebenen Text so in das Worksheet einfüge, dass eine bearbeitbare Tabelle entsteht.
Vielen Dank für Hinweise.
Matthias

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabelle aus PDF in Spalten einfügen

10.03.2008 15:07:06

Tino
Perfect... Danke! o.T.

10.03.2008 15:31:01

matthias
eigentlich noch nicht!

10.03.2008 15:37:50

Tino

AW: Tabelle aus PDF in Spalten einfügen

10.03.2008 15:07:06

Tino

Hallo,
hier mal ein Beispiel.
erordert Verweis: Microsoft Forms 2.0 Object Library


Option Explicit
'erordert Verweis: Microsoft Forms 2.0 Object Library
Private Sub CommandButton1_Click()
Dim MyData As New DataObject
Dim anz As Long, a As Long
Dim MeTXT() As String
MyData.GetFromClipboard
anz = CountChar(MyData.GetText(1), Chr(10))
MeTXT = Split(MyData.GetText(1), Chr(10))
For a = 0 To anz - 1
MsgBox MeTXT(a)
Next a
End Sub
Function CountChar(ByVal SourceString As String, ByVal strChar As String) As Long
CountChar = Len(SourceString) - Len(Replace(SourceString, strChar, ""))
End Function
Function CountChar(ByVal SourceString As String, ByVal strChar As String) As Long
CountChar = Len(SourceString) - Len(Replace(SourceString, strChar, ""))
End Function

Gruß
Tino

Perfect... Danke! o.T.

10.03.2008 15:31:01

matthias

...

eigentlich noch nicht!

10.03.2008 15:37:50

Tino

Hallo,
eigentlich noch nicht.
Habe noch etwas experimentiert.
Das Umbruchzeichen CHR(13) müsste noch raus.


'erordert Verweis: Microsoft Forms 2.0 Object Library
Private Sub CommandButton1_Click()
Dim MyData As New DataObject
Dim anz As Long, a As Long
Dim MeTXT() As String
MyData.GetFromClipboard
Range("d1") = MyData.GetText(1)
anz = CountChar(MyData.GetText(1), Chr(10))
MeTXT = Split(MyData.GetText(1), Chr(10))
For a = 0 To anz
Cells(a + 1, 1) = Replace$(MeTXT(a), Chr(13), "")
Next a
End Sub
Function CountChar(ByVal SourceString As String, ByVal strChar As String) As Long
CountChar = Len(SourceString) - Len(Replace(SourceString, strChar, ""))
End Function

Gruß
Tino

Beliebteste Forumthreads (12 Monate)

Tabelle aus PDF in Spalten einfügen

Forumthread: Tabelle aus PDF in Spalten einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread