urgente no encuentra archivo
Publicado por zolcka (4 intervenciones) el 15/04/2005 16:45:13
Hola: tengo este codigo que supuestamente me debiera enviar a un archivo excel llamado novtas, el problema es que me arroja error, que es imposible hallar el archivo.
sXlsTemplate = "F:\TSYACOM\Novtascltes\novtas.xls"
sNewXlsFile = "F:\TSYACOM\Novtascltes\temp.xls"
Set oExcelApp = CreateObject("EXCEL.APPLICATION")
oExcelApp.Visible = False
oExcelApp.Workbooks.Open FileName:=sXlsTemplate, ReadOnly:=True, ignoreReadOnlyRecommended:=True
Set oWs = oExcelApp.ActiveSheet
Set oWb = oExcelApp.ActiveWorkbook
oWs.SaveAs FileName:=sNewXlsFile, FileFormat:=xlNormal
sXlsTemplate = "F:\TSYACOM\Novtascltes\novtas.xls"
sNewXlsFile = "F:\TSYACOM\Novtascltes\temp.xls"
Set oExcelApp = CreateObject("EXCEL.APPLICATION")
oExcelApp.Visible = False
oExcelApp.Workbooks.Open FileName:=sXlsTemplate, ReadOnly:=True, ignoreReadOnlyRecommended:=True
Set oWs = oExcelApp.ActiveSheet
Set oWb = oExcelApp.ActiveWorkbook
oWs.SaveAs FileName:=sNewXlsFile, FileFormat:=xlNormal
Valora esta pregunta


0