Cuestión : VBA que desabrocha un archivo

Hola, el

I encontró un cierto código del target= " _blank " de " http://www.rondebruin.nl/windowsxpunzip.htm " del href= del el indowsxpunzip.htm de http://www.rondebruin.nl/w alrededor para desabrochar un archivo usar VBA. El problema está conmigo código es que elimina errores en la línea “oAPP.Namespace (FileNameFolder). CopyHere oAPP.Namespace (Fname). Items”. ¡El mensaje es objeto variable o con con el bloque no set.

The código está como abajo y pues cualquier ayuda sería siempre grande! class= " lineNumbers " >

1 del >
Mark


Thanks:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
class= codeBody " prettyprint " del id= " codeSnippet969158 " del >
UnzIpp secundario ()

'Desabrochar los archivos de JPM
Amortiguar FSO como objeto
Amortiguar el oAPP como objeto
Amortiguar Fname como variante
Amortiguar FileNameFolder como variante
 
'JPM_File = (“beneficio de G:\Shared\High \ Chris \ diariamente funcionamiento \ diariamente precios de JPM \ resumen de la valuación”)

Fname = “beneficio de G:\Shared\High \ Chris \ diariamente funcionamiento \ diariamente precios \ valuación Summary_20100823.zip de JPM”

FileNameFolder = “beneficio de G:\Shared\High \ Chris \ diariamente funcionamiento \ diariamente los precios de JPM \ desabrochó \ la valuación Summary_20100823.xls”

Fijar el oAPP = CreateObject (“Shell.Application”)
    oAPP.Namespace (FileNameFolder) .CopyHere oAPP.Namespace (Fname). Artículos

      En curriculum vitae del error después
        Fijar FSO = CreateObject (“scripting.filesystemobject”)
        FSO.DeleteFolder rodean (“Temp”) y” \ Directory* temporal ", verdad

    Fijar el wbTemp = Workbooks.Open (JPM_File)
    wbTemp.SaveAs (“beneficio de G:\Shared\High \ Chris \ diariamente funcionamiento \ diariamente precios \ desabrochados \ valuación Summary_20100823.xls de JPM”)
    'wbTemp = JPM_File

Terminar el class= >

 de Sub

  
  class= del 

Respuesta : VBA que desabrocha un archivo

La autorización, pozo allí parece ser algo el encenderse extraño aquí. Mirar esto:

http://www.codeguru.com/forum/showthread.php?t=443782

Usted puede ser que también intente:

oAPP.Namespace ((FileNameFolder)).CopyHere oAPP.Namespace ((Fname)). Artículos

Con excepción de esto, la pregunta baja a “que el objeto no se crea?” Hay dos candidatos a esto: cualquier oAPP no se fija, que diría soy inverosímil, o el objeto del namespace (FileNameFolder) no se fija. Usted puede descubrir a que usar el IDE en el punto el código para.

¿Le impulsaría mirar el *very* de cerca esas trayectorias del archivo - está usted seguro ellos es exactamente igual? ¿Un dígito fuera de servicio? ¿Una raya donde no debe estar?

Copiar la trayectoria del archivo de cierre relámpago de su código, es decir.

beneficio de G:\Shared\High \ Chris \ diariamente funcionamiento \ diariamente precios \ valuación Summary_20100823.zip de JPM

y pegarlo en la barra de la dirección del explorador - debe abrir el archivo de cierre relámpago si la trayectoria está correcta.

Si ninguno de estos trabajo que intentaría tocar el violín alrededor con las variaciones basadas en el acoplamiento al principio de este email. *Try la definición de sus filepaths como secuencias en vez de las variantes (usted debe hacer probablemente esto de todos modos), y entonces intenta las variaciones en el acoplamiento, el etc.
*Try abandonando las variables totalmente y apenas pasar las trayectorias hardcoded al namespace ().
*Try especificando las trayectorias usar UNC en vez del trazado de impulsión (es decir \ \ funcionamiento… etc. \ \ compartida \ alto beneficio \ Chris \ diariamente)

Si el problema es de hecho hacer con el objeto del namespace, usted puede tener que conseguir creativo solucionarlo.