Autor
Mensagem
Postado em: 14/11/2011 05:19:05 PM
Boa Tarde a Todos.
Tenho um windows service que deveria gerar uma planilha abrir uma planilha excel fazer alterações e salvar.
O código é simples...
LCID := LOCALE_USER_DEFAULT;
Excelws := CreateOleObject(Excel.Application);
ExcelWs.Workbooks.open(Extractfilepath(paramstr(0)) + Arquivo1.xlsx);
ExcelWs.Cells.Item[1, 2] := AB;
ExcelWs.Cells.Item[1, 3] := BC;
ExcelWs.Save;
O problema está no comando para abrir arquivo da planilha que gera o seguinte erro:
O Microsoft Office Excel não pode acessar o arquivo Arquivo1.xlsx. Há várias razões possíveis:
• O nome do arquivo ou caminho não existe.
• O arquivo está sendo usado por outro programa.
• O nome da pasta de trabalho que você está tentando salvar é o mesmo de outra pasta de trabalho aberta no momento
Vale lembrar que esse mesmo código funciona num projeto windows form normal.
Alguém poderia me ajudar por favor?
Tenho um windows service que deveria gerar uma planilha abrir uma planilha excel fazer alterações e salvar.
O código é simples...
LCID := LOCALE_USER_DEFAULT;
Excelws := CreateOleObject(Excel.Application);
ExcelWs.Workbooks.open(Extractfilepath(paramstr(0)) + Arquivo1.xlsx);
ExcelWs.Cells.Item[1, 2] := AB;
ExcelWs.Cells.Item[1, 3] := BC;
ExcelWs.Save;
O problema está no comando para abrir arquivo da planilha que gera o seguinte erro:
O Microsoft Office Excel não pode acessar o arquivo Arquivo1.xlsx. Há várias razões possíveis:
• O nome do arquivo ou caminho não existe.
• O arquivo está sendo usado por outro programa.
• O nome da pasta de trabalho que você está tentando salvar é o mesmo de outra pasta de trabalho aberta no momento
Vale lembrar que esse mesmo código funciona num projeto windows form normal.
Alguém poderia me ajudar por favor?
Postado em: 16/11/2011 04:08:29 PM
Tente isto:
[Code]
LCID := LOCALE_USER_DEFAULT;
Excelws := CreateOleObject(Excel.Application);
sleep(200);
ExcelWs.Workbooks.open(Extractfilepath(paramstr(0)) + Arquivo1.xlsx);
ExcelWs.Cells.Item[1, 2] := AB;
ExcelWs.Cells.Item[1, 3] := BC;
ExcelWs.Save;
[/Code]
[Code]
LCID := LOCALE_USER_DEFAULT;
Excelws := CreateOleObject(Excel.Application);
sleep(200);
ExcelWs.Workbooks.open(Extractfilepath(paramstr(0)) + Arquivo1.xlsx);
ExcelWs.Cells.Item[1, 2] := AB;
ExcelWs.Cells.Item[1, 3] := BC;
ExcelWs.Save;
[/Code]
