SantoOnofre
New Member
- Joined
- Sep 30, 2017
- Messages
- 7
Hi, Everyone!
I'm simply tring to get a cell content from an unsaved workbook (Book1) through GetObject function, plus Copy and Paste. But as the content of the cell is a very long string, I only get a piece of it (until characters 255).
The code I'm using is:
When I copy and paste manually, everything goes OK. The entire string comes. But through VBA I'm getting just the first 255 characters.
Anyone knows any way to overcame this?
I'm simply tring to get a cell content from an unsaved workbook (Book1) through GetObject function, plus Copy and Paste. But as the content of the cell is a very long string, I only get a piece of it (until characters 255).
The code I'm using is:
Code:
Dim oApp As Application
Dim oWb As Workbook
Set oWb = GetObject("Book1")
Set oApp = oWb.Parent
oWb.ActiveSheet.Range("A1").Copy
Workbooks("Workbook1.xlsm").Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteFormats
oWb.Close False
oApp.Quit
When I copy and paste manually, everything goes OK. The entire string comes. But through VBA I'm getting just the first 255 characters.
Anyone knows any way to overcame this?