Export Query To Excel Problem

Hi,

I have the following code to export a query to excel using a command button.
It was working well. Now user tells me he can't get it to work. If I log
on to the database, it works for me. If I log on using his log on info, it
doesn't work. Can anyone please tell me why and what I need to do to
correct this? Any help is appreciated.

Private Sub Command10_Click()

Dim strFolderAndFile As String
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9,
"qStatusDayCountAllJobs", "C:\DELTADB\AllJobs.xls"
Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Open "C:\deltadb\AllJobs.xls"
oApp.Visible = True

End Sub

Thanks in advance,
Pam

"doesn't work"

How? Any error messages?
--
Jerry Whittle, Microsoft Access MVP
Light. Strong. Cheap. Pick two. Keith Bontrager - Bicycle Builder.


"Pam" wrote:

Hi,

I have the following code to export a query to excel using a command button.
It was working well. Now user tells me he can't get it to work. If I log
on to the database, it works for me. If I log on using his log on info, it
doesn't work. Can anyone please tell me why and what I need to do to
correct this? Any help is appreciated.

Private Sub Command10_Click()

Dim strFolderAndFile As String
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9,
"qStatusDayCountAllJobs", "C:\DELTADB\AllJobs.xls"
Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Open "C:\deltadb\AllJobs.xls"
oApp.Visible = True

End Sub

Thanks in advance,
Pam


.

Hi,

It's been a while since my original post, but it seems user is still having
problems exporting to excel.

Jerry asked "How?" it does not work. Any error messages.

No error messages and it doesn't do anything when the user clicks on the
command button. The cursor is an arrow - no hourglass as in waiting.

I would really appreciate any help in trying to figure this out. I'm really
stumped why it will work on my computer with my login, but not with user's
login.
Thanks in advance,
Pam

"Jerry Whittle" wrote in message
...
"doesn't work"

How? Any error messages?
--
Jerry Whittle, Microsoft Access MVP
Light. Strong. Cheap. Pick two. Keith Bontrager - Bicycle Builder.


"Pam" wrote:

Hi,

I have the following code to export a query to excel using a command
button.
It was working well. Now user tells me he can't get it to work. If I
log
on to the database, it works for me. If I log on using his log on info,
it
doesn't work. Can anyone please tell me why and what I need to do to
correct this? Any help is appreciated.

Private Sub Command10_Click()

Dim strFolderAndFile As String
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9,
"qStatusDayCountAllJobs", "C:\DELTADB\AllJobs.xls"
Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Open "C:\deltadb\AllJobs.xls"
oApp.Visible = True

End Sub

Thanks in advance,
Pam


.