Visual Basic - Problemas con Excel

Hola!!

Alguien podría ayudarme.

Tengo una aplicación en red hecha en visual basic 6.0 y genera reportes en Excel, últimamente Excel presenta problemas, no graba los datos o hay que renombrar los archivos con otro nombre para que acepte los cambios en los datos que se han agregado por medio de visual basic.

Realmente puede afectar el visual basic en las funciones tan básicas del excel???

Urgente por favor!!

Qué errores te pone y en qué momento o en cuáles líneas

Cómo grabas el archivo de excel (si acaso lo grabas) desde Visual....???

Pon algo de código a ver si acaso se te puede ayudar.

Saludos

Hola antes que nada gracias por tu ayuda.

El problema aquí es que únicamente con visual lleno la hoja, en ningún momento la grabo, esto porque a los datos que yo lleno a través de visual basic, el ususario le hace modificaciones y a continuación ya el guarda los datos desde excel únicamente, y aquí es el problema, no deja guardar nada, o hay que guardar con un nombre diferente o de plano borra los datos que aparentemente se habían guardado.

Las líneas que utilizo para mandar llamar la hoja de excell es la siguiente:

Set xl = New Excel.Application
Set xls = xl.Workbooks.Open(App.Path + "nombre_archivo.xls", ReadOnly:=False, Editable:=True)
xl.Sheets("AGUASCALIENTES").Activate

la lleno a través del método

xl.cells(fila, columna)=texto

y listo, lo demás es trabajo de excel.

El archivo ya existe....????

Lo intentas grabar con el mismo nombre....???

Lo intentas grabar con un nombre nuevo....???

Puede ser que el archivo tengas las propiedades de SOLO LECTURA...

Yo uso el Excel para imprimir ciertos reportes, para eso, abro uno que me sirve como "formato" y lo grabo con otro nombre... pero todo desde Visual

Voy a probar lo que tu haces... abrir un archivo de excel y tratar de guardarlo

Set xl = Nothing

si no estableces xl=Nothing no podras desbloquear el archivo de excel

Anexando al comentario anterior, modifiqué un poco tu código y así me funcionó...

Dim xl As Excel.Application
Dim xls As Excel.Worksheet
Set xl = Nothing
Set xl = New Excel.Application
xl.Workbooks.Open FileName:=App.path & "\nombre1.xls"
Set xls = xl.Worksheets(1) '(1) referencia a hoja 1
xl.Sheets("AGUASCALIENTES").Select
xl.Visible = True

A diferencia de cómo tu lo tienes...

Set xl = New Excel.Application (ESTO SI ESTÁ IGUAL)

Set xls = xl.Workbooks.Open(App.Path + "nombre_archivo.xls", ReadOnly:=False, Editable:=True) (ESTA LÍNEA SI ES DIFERENTE A COMO YO LO TENGO yo abro el archivo sobre la variable tipo Excel.Application y no sobre la variable tipo Excel.Worksheet que es como tú lo tienes...)

xl.Sheets("AGUASCALIENTES").Activate (yo le pongo Select y vez de Activate)

Espero que esto te sirva..... saludos.....

Lo q dijo mi clon no es cierto, por lo q veo es novato en esto de VB.

Ya q tienes el archivo en red deberias de fijarte si el archivo fue abierto por otro usuario antes q tu ya q por ese motivo la copia q tu abres se vuelve de solo lectura

HOLA:

por lo que puedo ver.. desde basic abres un archivo de excel existente.. por lo que mencionaste con anterioridad que tu programa de visual genera reportes en excel cierto??' entonces creo que lo que estas haciendo es abrir un tipo de plantilla preestablecida para llenar los reportes verdad???

Por que no tratas de que cuando hagas un reporte... crees un arhivo nuevo de excel.. y si el usuario lo desea lo puede guardar...

Dim xlsapp As Excel.Application
Dim xlhoja As Excel.Worksheet
Set xlsapp = CreateObject("Excel.Application")

Set xlhoja = xlsapp.Workbooks.Add.Worksheets("Hoja1")
xlhoja.Activate
xlhoja.Range("A1") = "HOLA soy el mejor"
xlsapp.Visible = True

prueba con eso y veras lo que trato de decirte.. para que no utilices un archivo que puede estar abierto... Espero que te sea de ayuda..

no olvides liberar memoria..

set xlsapp=nothing
set xlhoja=nothing
para cerrar excel desde basic prueba con esto

xlsapp.quit