Windows 7 Forums
Welcome to Windows 7 Forums. Our forum is dedicated to helping you find support and solutions for any problems regarding your Windows 7 PC be it Dell, HP, Acer, Asus or a custom build. We also provide an extensive Windows 7 tutorial section that covers a wide range of tips and tricks.


Windows 7: Outlook export VBA macro - type mismatch


04 Dec 2012   #1

Windows 7
 
 
Outlook export VBA macro - type mismatch

Hi guys. I've got the following code which works just fine - it exports tasks to an excel spreadsheet. I upgraded to outlook 2010 and windows 7 and suddenly it doesn't work on my PC. It does however work on one of my work-colleagues PC - same references and evertyhing. The references i'm using are

Visual basic for applications
Microsoft outlook 14.0 object library
OLE automation
Microsoft Office 14.0 object library
Microsoft Access 14.0 object library
Microsoft Excel 14.0 object library
Microsoft Word 14.0 object library
Microsoft DAO 3.6 object library
Microsoft Feeds
Microsoft Script Control 1.0
Microsoft Scripting runtime

Code:
Sub export_tasks()

'*******************************************************************************************
'******************************DECLARE VARIABLES********************************************
Dim strReport As String
Dim olnameSpace As Outlook.NameSpace
Dim taskFolder As Outlook.MAPIFolder
Dim tasks As Outlook.Items
Dim tsk As Outlook.TaskItem
Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
Dim sht As Excel.Worksheet
 
Dim strMyName As String
Dim x As Integer
Dim y As Integer
'*******************************************************************************************
'*****************************REMOVE EXISTING DATA******************************************
Set exWb = objExcel.Workbooks.Open("P:\systems\Tasks\PDW.xls")
exWb.Sheets("Sheet1").Range("A1:H2500").Select
exWb.Sheets("Sheet1").Range("A1:H250").ClearContents
'*******************************************************************************************
'*****************************REFERENCE WORKBOOKS*******************************************
Set olnameSpace = Application.GetNamespace("MAPI")
Set taskFolder = olnameSpace.GetDefaultFolder(olFolderTasks)
Set tasks = taskFolder.Items
strReport = ""
 
'*******************************************************************************************
'*****************************CREATE THE HEADER*********************************************
  
exWb.Sheets("Sheet1").Cells(1, 1) = "Subject"
exWb.Sheets("Sheet1").Cells(1, 2) = "Start Date"
exWb.Sheets("Sheet1").Cells(1, 3) = "Due Date"
exWb.Sheets("Sheet1").Cells(1, 4) = "Percent Complete"
exWb.Sheets("Sheet1").Cells(1, 5) = "Status"
exWb.Sheets("Sheet1").Cells(1, 6) = "Owner"
exWb.Sheets("Sheet1").Cells(1, 7) = "Requested by"
exWb.Sheets("Sheet1").Cells(1, 8) = "Completed Date"
exWb.Sheets("Sheet1").Cells(1, 10) = "Notes"
y = 2
For x = 1 To tasks.Count
Set tsk = tasks.Item(x)
 
'*******************************************************************************************
'*****************************FILL IN THE DATA**********************************************
'If the task is not set to private then continue
If Not tsk.Sensitivity = olPrivate Then
'Add the data
exWb.Sheets("Sheet1").Cells(y, 1) = tsk.Subject
exWb.Sheets("Sheet1").Cells(y, 2) = tsk.StartDate
exWb.Sheets("Sheet1").Cells(y, 3) = tsk.DueDate
exWb.Sheets("Sheet1").Cells(y, 4) = tsk.PercentComplete
exWb.Sheets("Sheet1").Cells(y, 5) = tsk.Status
exWb.Sheets("Sheet1").Cells(y, 6) = tsk.Owner
exWb.Sheets("Sheet1").Cells(y, 7) = tsk.Delegator
exWb.Sheets("Sheet1").Cells(y, 8) = tsk.DateCompleted
exWb.Sheets("Sheet1").Cells(y, 10) = tsk.Body
    
        
        y = y + 1
 
       End If
 
  Next x
'*******************************************************************************************
'******************************SAVE AND CLOSE***********************************************
 
exWb.Save
exWb.Close
 
Set exWb = Nothing
End Sub


The error that comes up is 'Run Time Error 13 - Typ mismatch' and highlights

Set tsk = tasks.Item(x)

Can anyone help?


My System SpecsSystem Spec
.

Reply

 Outlook export VBA macro - type mismatch




Thread Tools



Similar help and support threads for2: Outlook export VBA macro - type mismatch
Thread Forum
Run Time Error '13' - Type Mismatch General Discussion
Import or Export OE mail to Outlook ? Browsers & Mail
Solved Export from WLM 2011 to Outlook 2010 Browsers & Mail
Outlook 2003 - Import Export won't Microsoft Office
outlook macro's - how Microsoft Office
VB Macro for Saving Outlook Embedded Pictures Microsoft Office
Export Outlook Express XP into Outlook 2007 Windows 7? Browsers & Mail

Our Sites

Site Links

About Us

Find Us

Windows 7 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 7" and related materials are trademarks of Microsoft Corp.

Designer Media Ltd

All times are GMT -5. The time now is 08:28 AM.
Twitter Facebook Google+



Windows 7 Forums

Seven Forums Android App Seven Forums IOS App
  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33