asked on

in TransferSpreadsheet, why can't I use extension .xlsx with acSpreadsheetTypeExcel12Xml OR acSpreadsheetTypeExcel12???

Hey experts,

I'm having a problem with some data I'm trying to export to Excel 2010. I'm allowing the user to use either the .xls or .xlsx extension. My code looks like this:

DoCmd.TransferSpreadsheet acExport, IIf(Right(txtExportPathAndFileName, 5) = ".xlsx", acSpreadsheetTypeExcel12Xml, acSpreadsheetTypeExcel12), "qryTherapistsCaseloads4Excel", txtExportPathAndFileName, True

When I try to open the exported .xlsx, I get a message that the extension or file type is invalid.

Any ideas?

Thanks

Rey Obrero (Capricorn1)

try using this for both file extension

DoCmd.TransferSpreadsheet acExport, 10, "qryTherapistsCaseloads4Excel", txtExportPathAndFileName, True

post back the result

Jim Dettman (EE MVE)

I'd do it this way:

If Right(txtExportPathAndFileName, 5) = ".xlsx" Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml,"qryTherapistsCaseloads4Excel", txtExportPathAndFileName, True
Else
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12,"qryTherapistsCaseloads4Excel", txtExportPathAndFileName, True
End If

then put a stop on the IF and verify if the extension is on the end or not and that your falling through the correct logic (use F8 to step through)

Jim.

Jim Dettman (EE MVE)

Oh and BTW, acSpreadsheetTypeExcel12 is 2007 format, which still is normally an .xlsx extension. You want acSpreadsheetTypeExcel8 for .XLS

Jim.

Rey Obrero (Capricorn1)

or this

If Right(txtExportPathAndFileName, 5) = ".xlsx" Then

DoCmd.TransferSpreadsheet acExport, 10, "qryTherapistsCaseloads4Excel", txtExportPathAndFileName, True

else

DoCmd.TransferSpreadsheet acExport, 9, "qryTherapistsCaseloads4Excel", txtExportPathAndFileName, True

end if

Eddie Antar

ASKER

Arrggg! Driving me nuts!

I broke up my If statement up into an if then else and use the literal 10 for acSpreadsheetTypeExce12XML. I'm still getting the invalid message:

Any ideas why this might be happening. This is a simple Transfer Spreadsheet call.

Any help would be greatly appreciated.

Thanks.

Rey Obrero (Capricorn1)

what access version are you using?

Eddie Antar

ASKER

Access 2010.

Rey Obrero (Capricorn1)

try doing a compact and repair of your db then try again.

if the error still show, upload a copy of your db

Jim Dettman (EE MVE)

DId you see my comment?

https://www.experts-exchange.com/questions/28978828/in-TransferSpreadsheet-why-can't-I-use-extension-xlsx-with-acSpreadsheetTypeExcel12Xml-OR-acSpreadsheetTypeExcel12.html?anchorAnswerId=41859265#a41859265

Jim.

Eddie Antar

ASKER

Hi Jim,

Yes, I read your post. Here's a picture of how I rewrote the code, but I'm still having the same problem.

Any ideas??? It just shouldn't be.

Thanks.

Rey Obrero (Capricorn1)

can you upload a copy of the db?

Rey Obrero (Capricorn1)

can you test the code, using a table instead of the query "qryTherapistsCaseloads4Excel"

Eddie Antar

ASKER

Hi Rey,

Uploading the db is a bit of a problem because I'm working with HIPPA compliant information. I'd have to dummy up some data.

But I just read something I'm going to try before I take that step.

Thank you.

E

Rey Obrero (Capricorn1)

what is the SQL statement of query "qryTherapistsCaseloads4Excel"?

Jim Dettman (EE MVE)

He needs to be using acSpreadsheetTypeExcel8 for an .xls extension.

Jim.

Rey Obrero (Capricorn1)

@jim, he is already using it..

ASKER CERTIFIED SOLUTION

Eddie Antar

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Jim Dettman (EE MVE)

Make sure you accept your own comment as answer.

Jim.

Eddie Antar

ASKER

Thanks Jim. I always feel bad about doing that because I appreciate the company and feedback while I'm figuring this stuff out, even when I found the answer myself. But I know that those are the rules. Will do.

Eddie Antar

ASKER

Found the answer through web search. Thanks again for sticking with me.