Spreadsheet Creation from VB

[dromano13]

Here is some old code this is no longer working, I included the CreateSpreadsheet module.

When I kick this off i get an error 438 - Object does not support this property

I am extremely frustrated!!!!! Any help would be apprectated! Thanks!

Dim objAccess As Object
Dim dbName As String
Dim strWhere As String

Set objAccess = CreateObject("Access.Application")
With objAccess
.OpenCurrentDatabase filepath:=gstrDBName
.DoCmd.Open "CreateSpreadsheet"
DoEvents
End With
Set objAccess = Nothing
Exit Sub


Public Sub CreateSpreadSheet()
On Error GoTo B
Dim SourceFile As String, DestinationFile As String
Dim FileName As String
FileName = "DIR-Report"

SourceFile = CurrentProject.Path & "\Export.xls"
DestinationFile = CurrentProject.Path & "\" & FileName & ".xls"
DestinationFile = "C:\Documents and Settings\All Users\Desktop" & "\" & FileName & ".xls"
FileCopy SourceFile, DestinationFile 'Copy source to target.

WriteSheet DestinationFile


A:
Exit Sub

B:

MsgBox "An Error has occured!"
Resume A

End Sub