abrir excel desde acces
Publicado por viruslemon (2 intervenciones) el 07/11/2006 10:56:47
hola buenas q tengo un problemilla para abrir un excel!! q no me deja!! me dice q no encuentra el archivo en el path q le digo i si q se encuentra i sin ninguna errata!!! run-time error '1004' ,
este es el codigo si alguien puede ayudarme lo agradeceria!!!
strFecha_escritura = Format(strFecha_ini, "mm/dd/yyyy")
ini = Format(strFecha_ini, 0, 0)
fin = Format(strFecha_fin, 0, 0)
Dim strRuta As String
'strRuta = "C:\Documents and Settings\Víctor\Escritorio\Partes_SCAP\"
strRuta = "K:\Public\Planta\Fabricación\Partes_SCAP\PARTES CUARTO\"
'PRIMERO: Añadir la fecha y la hora de los registros del Excel
Dim objExcel
Dim objWorkBook
strFecha_escritura = Format(strFecha_ini, "ddmmyy")
For x = ini To fin
strFecha_escritura = x
'strFecha_ini = Format(ini, "ddmmyy")
Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Application.Visible = False
Set objWorkBook = objExcel.Workbooks.Open(strRuta & strFichero & ".xls")
NOTA: en esta última línea es donde me genera problema!!
este es el codigo si alguien puede ayudarme lo agradeceria!!!
strFecha_escritura = Format(strFecha_ini, "mm/dd/yyyy")
ini = Format(strFecha_ini, 0, 0)
fin = Format(strFecha_fin, 0, 0)
Dim strRuta As String
'strRuta = "C:\Documents and Settings\Víctor\Escritorio\Partes_SCAP\"
strRuta = "K:\Public\Planta\Fabricación\Partes_SCAP\PARTES CUARTO\"
'PRIMERO: Añadir la fecha y la hora de los registros del Excel
Dim objExcel
Dim objWorkBook
strFecha_escritura = Format(strFecha_ini, "ddmmyy")
For x = ini To fin
strFecha_escritura = x
'strFecha_ini = Format(ini, "ddmmyy")
Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Application.Visible = False
Set objWorkBook = objExcel.Workbooks.Open(strRuta & strFichero & ".xls")
NOTA: en esta última línea es donde me genera problema!!
Valora esta pregunta


0