copy content of a table inside email to excel sheet

megatronixs · #4 09-27-2014, 12:58 PM

Hi Gmayor,

I have some problems when I try it out with a table copied from word to the email for testing. I can't find what to change to get the get the customer name from the table.
Where in the code the change is needed?

Code:

'Check each line of text in the message body
For i = UBound(vText) To 0 Step -1
If InStr(1, vText(i), "Source:") > 0 Then
vItem = Split(vText(i), Chr(58))
xlSheet.Range("A" & rCount) = Trim(vItem(1))
End If

If InStr(1, vText(i), "Customer Name:") > 0 Then
vItem = Split(vText(i), Chr(58))
xlSheet.Range("B" & rCount) = Trim(vItem(1))
End If

After running the macro to test the lines, field name for customer name comes on line 0 and the customer name itself comes on line 2. I hope this helps.

Greetings.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to copy all data from a website to excel sheet? Plz plz plz plz plz help...urgent	Sam123	Excel	0	07-19-2014 02:12 AM
Copy table content between documents	mcb09	Word VBA	14	06-12-2014 09:33 PM
Copy content control entries to next table next page	Mel_Herndon	Word VBA	2	05-22-2014 05:07 PM
Find Results in excel copy the rows to another sheet	khalidfazeli	Excel	2	02-06-2013 09:38 AM
How to Copy data from Outlook mail and Paste it in a Excel sheet?	padhu1989	Outlook	0	09-11-2012 04:07 AM