Splitting data into columns
Hi There
I am using the code below to import data from an outlook email into a spreadsheet. My problem is that all the data gets put into the first column and each line is seperated by a square box. Is it possible to either get each line put into a different column or to write a further macro to split the data up? Any help would be greatfully appreciated. Thanks in advance Jamie Macro: Sub GetFromInbox() Dim olApp As Outlook.Application Dim olNs As NameSpace Dim Fldr As MAPIFolder Dim olMail As Variant Dim i As Integer Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) i = 1 For Each olMail In Fldr.Items If InStr(olMail.Subject, "requestxz") 0 Then ActiveSheet.Cells(i, 1).Value = olMail.body i = i + 1 End If Next olMail Set Fldr = Nothing Set olNs = Nothing Set olApp = Nothing End Sub |
Splitting data into columns
didn't test it, but did you try reversing the cells(i,1) to cells(1,i), or
whatever row number you want to start in? -- Gary "Jamie" wrote in message ... Hi There I am using the code below to import data from an outlook email into a spreadsheet. My problem is that all the data gets put into the first column and each line is seperated by a square box. Is it possible to either get each line put into a different column or to write a further macro to split the data up? Any help would be greatfully appreciated. Thanks in advance Jamie Macro: Sub GetFromInbox() Dim olApp As Outlook.Application Dim olNs As NameSpace Dim Fldr As MAPIFolder Dim olMail As Variant Dim i As Integer Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) i = 1 For Each olMail In Fldr.Items If InStr(olMail.Subject, "requestxz") 0 Then ActiveSheet.Cells(i, 1).Value = olMail.body i = i + 1 End If Next olMail Set Fldr = Nothing Set olNs = Nothing Set olApp = Nothing End Sub |
Splitting data into columns
Cheers for the reply.
I just tried that but it made no difference. Any other ideas?? "Gary Keramidas" wrote: didn't test it, but did you try reversing the cells(i,1) to cells(1,i), or whatever row number you want to start in? -- Gary "Jamie" wrote in message ... Hi There I am using the code below to import data from an outlook email into a spreadsheet. My problem is that all the data gets put into the first column and each line is seperated by a square box. Is it possible to either get each line put into a different column or to write a further macro to split the data up? Any help would be greatfully appreciated. Thanks in advance Jamie Macro: Sub GetFromInbox() Dim olApp As Outlook.Application Dim olNs As NameSpace Dim Fldr As MAPIFolder Dim olMail As Variant Dim i As Integer Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) i = 1 For Each olMail In Fldr.Items If InStr(olMail.Subject, "requestxz") 0 Then ActiveSheet.Cells(i, 1).Value = olMail.body i = i + 1 End If Next olMail Set Fldr = Nothing Set olNs = Nothing Set olApp = Nothing End Sub |
All times are GMT +1. The time now is 06:05 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com