Hèctor Miguel

22/07/2005 - 15:57 por Antonyo | Informe spam

Hola Hector:
No Habia tenido tiempo de regresar contigo
Copie Parte del programa que uso diariamente y lo puse en internet creo que
asi es mas facil que veas que es exactamente lo que tengo y lo que hace
Te agradesco todo tu tiempo para solucionar mi problema

http://www.geocities.com/antonioata...itTest.xls

"Héctor Miguel" <NOhemiordiSPAM@PLShotmail.com> escribió en el mensaje
news:uIpm4w9iFHA.2772@TK2MSFTNGP12.phx.gbl...

hola, Antonio !

> Todavia me da un error
> Pat not Found en el mismo lugar

:(

alguno de los 'supuestos' [que 'tuve que' imaginar] esta siendo 'causa' de

la falla -?-

1) la hoja que 'transfieres' al archivo de texto...

es ->Sheets("PolizaToDisk")<- -?-

2) en 'esa', el nombre del archivo de texto... esta en la

celda ->Range("B1")<- -?-

3) [por 'casualidad']... el usuario 'decide' usar un nombre 'distinto' del

de 'B1' -?-

4) que 'dice' el cuadro de mensajes ->si ejecutas la siguiente macro<- ???
en un modulo de codigo 'normal' ==> Sub Localizar_Escritorio()
With CreateObject("WScript.Shell")
MsgBox .SpecialFolders("Desktop") & "\"
End With
End Sub
-> que 'te dice' el cuadro de mensaje ? [supongo que sera algo +/-

como lo siguiente]...

C:\Documents and Settings\<Usuario>\Escritorio\
5) existe la posibilidad de que estemos 'hablando' de unidades [y

'mapeos'] en red -?-

-> si fuera el caso... es constante la conexion ? o... 'sufre' de

desconexiones 'constantes' ?

comentas detalles adicionales ?
saludos,
hector.

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

23/07/2005 - 00:45 | Informe spam

hola, Antonyo !

... Parte del programa que uso... lo puse en internet creo... es mas facil que veas... lo que tengo y lo que hace

no vi [en las fracciones del codigo en el libro] 'donde' hubieras agregado/adaptado/... las sugerencias anteriores -?-
[asi que]... 'tengo que'... suponer que una -posible- causa sea cuando el usuario 'decide' usar ->otro nombre/directorio/...<- :))
[si fuera 'el caso]... creo que sera mejor 'partir en reversa' y 'descubrir' cual nombre/directorio/... es el que -finalmente- ha quedado ;)

-> en la macro que imprime... las lineas ->finales<- [que serian +/- las siguientes]... 'dicen'...
Sub ImprimirCheque()
' aqui las lineas iniciales de la macro... '
ActiveWorkbook.Save
Exit Sub
Application.ScreenUpdating = True
End Sub

-> te propongo que adaptes/agregues/... las siguentes instrucciones ANTES del 'Exit Sub'... [con lo que quedaria +/- asi]...
Sub ImprimirCheque()
' aqui las lineas iniciales de la macro... MAS 5 lineas 'adicionales' ANTES del final '
Dim Escritorio As String
With CreateObject("WScript.Shell")
Escritorio = .SpecialFolders("Desktop")
End With
FileCopy FileSaveName, Escritorio & Mid(FileSaveName, InStrRev(FileSaveName, "\"))
ActiveWorkbook.Save
Exit Sub
Application.ScreenUpdating = True
End Sub

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

=> toma nota que la funcion [vba] ->InStrRev(...)<- fue introducida a partir de la version xl2000 [por lo que]...
si existe la probabilidad de que la aplicacion 'corra' en la version xl97... 'tendrias que'... 'proveer' dicha funcion
[o buscar otras alternativas] -?- [p.e.]...
a) cambiar la linea del 'FileCopy' a...
If Int(Val(Application.Version)) > 8 _
Then FileCopy FileSaveName, Escritorio & Mid(FileSaveName, InStrRev(FileSaveName, "\")) _
Else FileCopy FileSaveName, Escritorio & Mid(FileSaveName, InStrRev97(FileSaveName, "\"))
b) proveer la funcion [p.e. en el mismo modulo de codigo]...
Function InStrRev97(ByVal Donde As String, ByVal Que As String) As Long
Dim Pos As Integer: InStrRev97 = 0: If Len(Que) <> 1 Then Exit Function
For Pos = Len(Donde) To 1 Step -1
If Mid(Donde, Pos, 1) = Que Then InStrRev97 = Pos: Exit Function
Next
End Function

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida