José Saúl Méndez Alonso

Por que no intentas copiar el contenido del CD a tu PC y desde ahí intentas abrir tus archivos, también intenta limpiar la superficie del CD para eliminar rayones.

Necesito más información, ¿quieres usar un FlexGrid o TextBox para mostrar lo que tiene la hoja?

El error se genera porque un Objeto RichTextBox no tiene un método AddItem Cambia tu código para que quede algo así Private Sub Command1_Click() RichTextBox. LoadFile C:\Documents and Settings\EPS\Mis documentos\US042009.txt", rtfTextEnd Sub de esa...

Te puedo sugerir varias opciones para resolverlo 1.-Verifica que la propiedad Wordwrap de la Caja de Texto este en True 2.-Agrega un salto de línea Private Sub Command1_Click() Open "C:\Documents and Settings\EPS\Mis documentos\US042009.txt" For...

Disculpa la demora Porque no me mandas al correo [email protected] las acciones que necesita tu programa y te propongo una solución modularizada

Puedes usar la siguiente MACRO Sub Separador() Dim nFila As Integer Dim nTotalFilas As Integer Dim sCelda As String Range("A1").Select 'Suponiendo que aquí inicie la lista Range(Selection, Selection.End(xlDown)).Select 'Seleccionamos toda la columna...

Te propongo que adicionalmente a lo que ya haces intentes lo siguiente: if MiRecordset9.bof and MiRecordset9.eof then 'Esto quiere decir que no encontró ningún registro que coincida con los parametros de la consulta MiRecordset9.update else msgbox...

Se me ocurre una solución muy simple 1.- Crea un Archivo donde almacenes el último folio y mediante una macro que se ejecute cuando abras tu factura lo vas actualizando. 2.-Entra al editor de VBA en excel (ALT+F11) y al Objeto ThisWorkBook le agregas...