T
Tomek
I've tried
DoCmd.TransferSpreadsheet( 1, 8, "aaa" , "d:\\ddd.xls", false, NULL, true);
but it fails
GREAT THANKS for help
T.
_Application app; // app is the Excel _Application object
app.CreateDispatch("Access.Application");
app.SetVisible(TRUE);
app.OpenCurrentDatabase("d:\\rai.bis\\mdb\\dane.mdb",true);
LPDISPATCH lDoCommand = app.GetDoCmd ();
IDoCmd DoCmd (lDoCommand);
DoCmd.TransferSpreadsheet( 1, 8, "aaa" , "d:\\ddd.xls", false, NULL,
true);
/*
void IDoCmd::TransferSpreadsheet(long TransferType, long SpreadsheetType,
const VARIANT& TableName, const VARIANT& FileName, const VARIANT&
HasFieldNames, const VARIANT& Range, const VARIANT& UseOA)
{
static BYTE parms[] =
VTS_I4 VTS_I4 VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT;
InvokeHelper(0x411, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
TransferType, SpreadsheetType, &TableName, &FileName, &HasFieldNames,
&Range, &UseOA);
}
*/
DoCmd.TransferSpreadsheet( 1, 8, "aaa" , "d:\\ddd.xls", false, NULL, true);
but it fails
GREAT THANKS for help
T.
_Application app; // app is the Excel _Application object
app.CreateDispatch("Access.Application");
app.SetVisible(TRUE);
app.OpenCurrentDatabase("d:\\rai.bis\\mdb\\dane.mdb",true);
LPDISPATCH lDoCommand = app.GetDoCmd ();
IDoCmd DoCmd (lDoCommand);
DoCmd.TransferSpreadsheet( 1, 8, "aaa" , "d:\\ddd.xls", false, NULL,
true);
/*
void IDoCmd::TransferSpreadsheet(long TransferType, long SpreadsheetType,
const VARIANT& TableName, const VARIANT& FileName, const VARIANT&
HasFieldNames, const VARIANT& Range, const VARIANT& UseOA)
{
static BYTE parms[] =
VTS_I4 VTS_I4 VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT;
InvokeHelper(0x411, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
TransferType, SpreadsheetType, &TableName, &FileName, &HasFieldNames,
&Range, &UseOA);
}
*/