utilizar CommonDialog

hola, DANILO !

Como hago para utilizar el objeto CommonDialog
en algunos equipos me funciona pero en otros ME SALE DICE QUE NO TENGO LAS LICENCIAS ADECUADAS INSTALADAS
estuve consultando en otras paginas pero no encontre mucho

si estas desarrollando [en vba] porque tengas vb [stand-alone] o la edicion 'developer' de office, o algun otro lenguaje de programacion...
[hasta donde se] los controles 'CommonDialog' son controles 'bajo licencia de uso'
y para poder usarlos 'transparentemente' [en otros equpos] se requiere que dicha libreria este instalada [o al menos el 'RunTime'] :-(

si comentas cuales son los dialogos [del CommonDialog] que pretendes utilizar...
[probablemente] se podrian sustituir por los dialogos incorporados de cada aplicacion -?-

saludos,
hector.

Hola hm,
Este es el codigo en el que estado trabajando con un amigo, lo que hace la
aplicacion es leer una posicion fija de unos archivos de texto, y
posicionarmelas en las celdas. (esta posision del archivo es un total de una
relacion, la cual la utilizo para sumar cierta cantidad de archivos).

Entonces cuando lo voy a ejecutar en otros equipos me sale el error del
objeto commomdialog.

No se si me hize entender.
Gracias por tu ayuda...
Saludos

Private Sub CommandButton1_Click()
Dim fso As New FileSystemObject
Dim Folder As Folder
Dim sf
Dim cont


Dim fso2 As New FileSystemObject
Dim fol2 As File
Dim sf2
Dim con2

Dim intLongitudRegistro As Integer
Dim tsArchivoOrigen As TextStream, strRegistro As String
Dim filamarca As Double

Dim ruta, ruta1, ruta2, ruta3, varcanarc, varnumideaport, varcotoblig39
Dim strRutaOrigen As String, Texto, Msj As String
Dim varnomarchivo1
Dim swperr As Boolean, swperr1 As Boolean

Application.ScreenUpdating = False
ventana.ShowOpen
ruta = ventana.Filename

If IsNull(ruta) = True Then Exit Sub

ruta1 = Dir(ruta)

ruta2 = Len(ruta)
ruta3 = Len(ruta1)
ruta2 = ruta2 - ruta3

strRutaOrigen = Mid(ruta, 1, ruta2)

Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.GetFolder(strRutaOrigen)
Set sf = Folder.Files
varcanarc = Folder.Files.Count

If varcanarc = 0 Then
Set fso = Nothing
Set Folder = Nothing
Set sf = Nothing
MsgBox "No hay archivos Para procesar", vbCritical
Exit Sub
End If

varcanarc = 1
swperr = False
swperr1 = False

For Each cont In sf

Set tsArchivoOrigen = fso.OpenTextFile(strRutaOrigen & "\" & cont.Name,
ForReading)

Do Until tsArchivoOrigen.AtEndOfStream

strRegistro = tsArchivoOrigen.ReadLine

intLongitudRegistro = Len(strRegistro)

'Esta es la primer linea del archivo
'If intLongitudRegistro = 609 Then
If intLongitudRegistro = 313 Then

varnumideaport = Trim(Val(Mid(strRegistro, 100, 9)))
swperr = True

End If

If intLongitudRegistro = 56 Then

If Mid(strRegistro, 1, 5) = "00039" Then

varcotoblig39 = Trim(Val(Mid(strRegistro, 17, 10)))
swperr1 = True

End If

End If

Loop

If swperr = True And swperr1 = True Then

Cells(varcanarc, 1).Value = varcotoblig39

Else

Cells(varcanarc, 2).Value = "No de dejo leer"

End If

swperr = False
swperr1 = False

varcanarc = varcanarc + 1

Next
varcanarc = varcanarc - 1
MsgBox "El Proceso Termino Correctamente. Se Contaron" & varcanarc & "
archivos."
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("a1").Value = "Valor archivo"
End Sub

hola, DANILO !

Este es el codigo en el que estado trabajando con un amigo
lo que hace la aplicacion es leer una posicion fija de unos archivos de texto, y posicionarmelas en las celdas [...]
Entonces cuando lo voy a ejecutar en otros equipos me sale el error del objeto commomdialog [...]

1) si la aplicacion 'falla' en equipos donde NO esta instalada la licencia y/o el componente necesario...
[supongo que] 'habra que cambiarlos' por componentes mas 'generales' -?- [p.e.]

2) supongo que la falla 'asoma' en la linea que dice... > ventana.ShowOpen -?-
asumiendo que el control/objeto 'ventana' es el 'commondialog' -?-
que [posiblemente] se podria cambiar por un Application.GetOpenFileName -?-
[que NO 'abre' el archivo... solo devuelve una cadena de texto con la ruta 'completa' -incluyendo el nombre del archivo-]

3) como yo tampoco 'dispongo' de licencia para desarrollar con los commondialogs :-(
no se si >>> ruta = ventana.Filename y >>> ruta1 = Dir(ruta) [al final de cuentas]... sean... 'lo mismo' -?-
de ser asi... no se cual seria la diferencia entre: >>> ruta2 = Len(ruta) y... >>> ruta3 = Len(ruta1)

4) [probablemente] tambien se podrian sustituir los [tantos] objetos de tipo 'FileSystemObject'
por objetos menos 'complicados' [y mas 'universales'] p.e.
-> con otros metodos para seleccionar/buscar/... carpetas, directorios y archivos
-> con instrucciones del tipo Application.FileSearch / LookIn / SearchSubFolders / FileType / Execute / etc.]
-> o... usar ADO [si no hay mucha 'disparidad' entre las versiones de excel donde corre tu aplicacion] -?-

creo que podrian existir alternativas [solo que el codigo que expones... no lo puedo 'probar tal-cual'] :-(
[aparte de la infinidad de 'variables' que utilizas... por los commondialogs] :-(

podrias exponer el proposito del codigo de manera mas 'concisa' ?
saludos,
hector.

hola HM

Si tienes toda la razon, estamos utilizando objetos que no deberiamos
utilizar, nos estamos complicando un poco, voy a trabajarle al codigo y te
estare comentando,

Gracias
Saludos




"Héctor Miguel" escribió:

hola, DANILO !

> Este es el codigo en el que estado trabajando con un amigo
> lo que hace la aplicacion es leer una posicion fija de unos archivos de texto, y posicionarmelas en las celdas [...]
> Entonces cuando lo voy a ejecutar en otros equipos me sale el error del objeto commomdialog [...]

1) si la aplicacion 'falla' en equipos donde NO esta instalada la licencia y/o el componente necesario...
[supongo que] 'habra que cambiarlos' por componentes mas 'generales' -?- [p.e.]

2) supongo que la falla 'asoma' en la linea que dice... > ventana.ShowOpen -?-
asumiendo que el control/objeto 'ventana' es el 'commondialog' -?-
que [posiblemente] se podria cambiar por un Application.GetOpenFileName -?-
[que NO 'abre' el archivo... solo devuelve una cadena de texto con la ruta 'completa' -incluyendo el nombre del archivo-]

3) como yo tampoco 'dispongo' de licencia para desarrollar con los commondialogs :-(
no se si >>> ruta = ventana.Filename y >>> ruta1 = Dir(ruta) [al final de cuentas]... sean... 'lo mismo' -?-
de ser asi... no se cual seria la diferencia entre: >>> ruta2 = Len(ruta) y... >>> ruta3 = Len(ruta1)

4) [probablemente] tambien se podrian sustituir los [tantos] objetos de tipo 'FileSystemObject'
por objetos menos 'complicados' [y mas 'universales'] p.e.
-> con otros metodos para seleccionar/buscar/... carpetas, directorios y archivos
-> con instrucciones del tipo Application.FileSearch / LookIn / SearchSubFolders / FileType / Execute / etc.]
-> o... usar ADO [si no hay mucha 'disparidad' entre las versiones de excel donde corre tu aplicacion] -?-

creo que podrian existir alternativas [solo que el codigo que expones... no lo puedo 'probar tal-cual'] :-(
[aparte de la infinidad de 'variables' que utilizas... por los commondialogs] :-(

podrias exponer el proposito del codigo de manera mas 'concisa' ?
saludos,
hector.