Send Text String

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Benz - 27 Sep 2007 22:06 GMT

Hi,

I have a toolbar that contains a textbox - im trying to have it copy the
text to the first empty cell in an existing excel doc. I have most of it
complete but im having trouble actually getting the data over to excel.

THis is (part) the code I was trying that obviously isint correct:

Set oWB = oXL.Workbooks.Open(FileName:=WorkbookToWorkOn)

Sheets("ToDos").Cells(Cells(Rows.Count, 1) _
.End(xlUp).Row, 1).Offset(1, 0) = Paste

I would apprecaite any help!

Ben Z.

Reply to this Message

Helmut Weber - 28 Sep 2007 02:46 GMT

Hi Ben,

given that the rest of you code is working:

Sub Macro12()
' early binding
' excel already running
Dim sendbar As CommandBar
Dim sendbox As CommandBarControl
Set sendbar = Application.CommandBars("Custom01")
Set sendbox = sendbar.Controls(1)
Dim oXlc As Excel.Application
Dim oWrk As Excel.Workbook
Dim oSht As Excel.Worksheet
Set oXlc = GetObject(, "Excel.application")
Set oWrk = oXlc.Workbooks.Open("c:\test\Excel\liste2.xls")
Set oSht = oWrk.Worksheets(1)
oSht.Cells(1, 1).Value = sendbox.Text
End Sub

Without loooking it all up myself,
I wouldn't know whether it makes sense or is correct.

Where should the text from the sendbox go to?

>Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Offset(1, 0)

in any case, before "cells" the object it refers to is missing.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message