Question : VBA défaisant la fermeture éclair d'un dossier

Bonjour, le

I a trouvé un certain code de target= " _blank " de " http://www.rondebruin.nl/windowsxpunzip.htm " de href= de le indowsxpunzip.htm de http://www.rondebruin.nl/w environ pour défaire la fermeture éclair d'un dossier using VBA. Le problème est avec mon code est qu'il corrige à la ligne « oAPP.Namespace (FileNameFolder). CopyHere oAPP.Namespace (Fname). Items ». Le message est objet variable ou avec avec le bloc pas set.

The le code est en tant que ci-dessous et car toujours n'importe quelle aide serait grande ! class= " lineNumbers " >

1 de >
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= " de 
UnzIpp secondaire ()

'Défaire la fermeture éclair des dossiers de JPM
Obscurcir FSO comme objet
Obscurcir l'oAPP comme objet
Obscurcir Fname comme variante
Obscurcir FileNameFolder comme variante
 
'JPM_File = (" rendement de G:\Shared\High \ Chris \ quotidiennement exécution \ quotidiennement prix de JPM \ résumé d'évaluation »)

Fname = « rendement de G:\Shared\High \ Chris \ quotidiennement exécution \ quotidiennement prix de JPM \ évaluation Summary_20100823.zip »

FileNameFolder = « rendement de G:\Shared\High \ Chris \ quotidiennement exécution \ quotidiennement prix de JPM \ a défait la fermeture éclair \ évaluation Summary_20100823.xls »

Placer l'oAPP = le CreateObject (« Shell.Application »)
    oAPP.Namespace (FileNameFolder) .CopyHere oAPP.Namespace (Fname). Articles

      Sur le résumé d'erreur après
        Placer FSO = CreateObject (« scripting.filesystemobject »)
        FSO.DeleteFolder entourent (« Temp ») et » \ Directory* provisoire ", vrai

    Placer le wbTemp = le Workbooks.Open (JPM_File)
    wbTemp.SaveAs (" rendement de G:\Shared\High \ Chris \ quotidiennement exécution \ quotidiennement prix de JPM \ défaits la fermeture éclair \ évaluation Summary_20100823.xls »)
    'wbTemp = JPM_File

Finir le class= >
 de Sub

  
  class= de 

Réponse : VBA défaisant la fermeture éclair d'un dossier

L'ok, puits là semble être quelque chose de continuer étrange ici. Regarder ceci :

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

Vous pourriez également essayer :

oAPP.Namespace ((FileNameFolder)).CopyHere oAPP.Namespace ((Fname)). Articles

Autre que ceci, la question descend à « que l'objet n'est pas créé ? » Il y a deux candidats pour ceci : l'un ou l'autre oAPP n'est pas placé, que je dirais est peu probable, ou l'objet de namespace (FileNameFolder) n'est pas placé. Vous pouvez découvrir qu'using l'ide au point le code arrête.

Je vous inviterais à regarder le *very* étroitement ces chemins de dossier - êtes-vous sûr ils êtes-vous exactement le même ? Un chiffre en panne ? Un soulignage où il ne devrait pas être ?

Copier le chemin de dossier de fermeture éclair de votre code, c.-à-d.

rendement de G:\Shared\High \ Chris \ quotidiennement exécution \ quotidiennement prix de JPM \ évaluation Summary_20100823.zip

et le coller dans la barre d'adresse de l'explorateur - elle devrait ouvrir le dossier de fermeture éclair si le chemin est correct.

Si aucun des ces travail que j'essayerais de jouer autour du violon des variations basées sur le lien au début de cet email. *Try la définition de vos filepaths comme cordes au lieu des variantes (vous devriez faire probablement ceci de toute façon), et essayent alors les variations sur le lien, etc.
*Try en abandonnant les variables complètement et passer juste les chemins hardcoded au namespace ().
*Try spécifiant les chemins using UNC au lieu de la cartographie d'entraînement (c.-à-d. \ \ rendement \ \ partagé \ haut \ Chris \ quotidiennement exécution… etc.)

Si le problème est en effet de faire avec l'objet de namespace, vous pouvez devoir devenir créateur pour le résoudre.