Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!
VB6- Copy a row from excel and paste it in Text2 VB6 issue
Hello all
I'm trying to copy a row from an excel file and paste it in my VB6 project in a Text2 as multiline but i have a hard time with it.
I'm trying this way:
But i have this run time error 91.
How can i fix this please?
Thanks again for your help
I'm trying to copy a row from an excel file and paste it in my VB6 project in a Text2 as multiline but i have a hard time with it.
I'm trying this way:
If Text2 <> "" Then
MsgBox "Data already in Textbox"
Else
Dim varData
If Selection.Rows.Count > 1 Then
varData = Join(Application.Transpose(Selection.Value), vbCr)
ElseIf Selection.Columns.Count > 1 Then
varData = Join(Application.Transpose(Application.Transpose(Selection.Value)), vbCr)
Else
varData = Selection.Value
End If
With Me.Text2
.Text = varData
End With
End If
But i have this run time error 91.
How can i fix this please?
Thanks again for your help
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
I have also tried like this but it past everything on 1 row
Private Sub test1_Click()
Dim sText As String
sText = Clipboard.GetText
Text2.Text = Trim(Replace(sText, vbTab, vbCrLf))
End Sub
the runtime error 91 means "object not set" ...
on which line? on which variable?
while stepping through the code, it should become obvious
on which line? on which variable?
while stepping through the code, it should become obvious
Hi angelIII
Yes, the Text2 is set to be Multiline but still pasting on the same row using that code bellow:
Yes, the Text2 is set to be Multiline but still pasting on the same row using that code bellow:
Private Sub test1_Click()
Dim sText As String
sText = Clipboard.GetText
Text2.Text = Trim(Replace(sText, vbTab, vbCrLf))
End Sub
Premium Content
You need an Expert Office subscription to comment.Start Free Trial