Vraag : VBA die een dossier openritsen

Hallo,

I één of andere code van http://www.rondebruin.nl/w indowsxpunzip.htm ongeveer vond om een dossier open te ritsen gebruikend VBA. Het probleem is met mijn code is dat het bij de lijn „oAPP.Namespace (FileNameFolder) zuivert. CopyHere oAPP.Namespace (Fname). Items“. Het bericht is objecten variabele of met met blok niet is de code set.

The zoals hieronder & aangezien altijd om het even welke hulp groot zou zijn!

Thanks
Mark

1:
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:

Sub UnzIpp ()

'Rits Jpm- Dossiers open
Verduister FSO als Voorwerp
Verduister oAPP als Voorwerp
Verduister Fname als Variant
Verduister FileNameFolder als Variant
 
'JPM_File = („van G:\Shared\High van de Opbrengst \ Chris \ de Dagelijkse van de Prestaties \ Dagelijkse JPM van de Prijzen Samenvatting van de \- Waardevaststelling“)

Fname = „Waardevaststelling Summary_20100823.zip van de Prijzen JPM \ van de Prestaties \ van de Opbrengst \ Chris \ van G:\Shared\High de Dagelijkse Dagelijkse“

FileNameFolder = „Prijzen JPM \ van de Prestaties \ van de Opbrengst \ Chris \ van G:\Shared\High de Dagelijkse Dagelijkse ritste \ Waardevaststelling Summary_20100823.xls“ open

Reeks oAPP = CreateObject („Shell.Application“)
    oAPP.Namespace (FileNameFolder) .CopyHere oAPP.Namespace (Fname). Punten

      Op Fout hervat daarna
        Plaats FSO = CreateObject („scripting.filesystemobject“)
        FSO.DeleteFolder omgeef („Temperaturen“) &“ \ Tijdelijke Directory* ", Waar

    Plaats wbTemp = Workbooks.Open (JPM_File)
    wbTemp.SaveAs („Waardevaststelling \ \ Summary_20100823.xls van de Prijzen JPM van de Prestaties \ van de Opbrengst \ Chris \ van G:\Shared\High de Dagelijkse Dagelijkse Opengeritste“)
    'wbTemp = JPM_File

Eind Sub

Antwoord : VBA die een dossier openritsen

O.k., goed er zijn schijnen iets het bizarre hier gaan op. Bekijk dit:

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

U zou ook kunnen proberen:

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

Buiten dit, komt de vraag neer op „geen die het voorwerp?“ wordt gecre�ërd Er zijn twee kandidaten voor dit: of oAPP is niet plaatsen, wat ik zou zeggen onwaarschijnlijk is, of het voorwerp Namespace (van FileNameFolder) niet plaatste is. U kunt te weten komen welke het gebruiken winde op het punt de code tegenhoudt.

Ik zou u om *very* dicht die dossierwegen aansporen te bekijken - zeker bent u zij bent precies het zelfde? Een cijfer uit orde? Een onderstreepteken waar het niet zou moeten zijn?

Kopi�ër de weg van het pitdossier van uw code, d.w.z.

waardevaststelling Summary_20100823.zip van de Prijzen JPM \ van de Prestaties \ van de Opbrengst \ Chris \ van G:\Shared\High de Dagelijkse Dagelijkse

en kleef het in de adresbar van ontdekkingsreiziger - het zou het pitdossier moeten openen als de weg correct is.

Als geen hiervan werkt zou ik proberen lummelend die rond met variaties op de verbinding bij het begin van deze e-mail worden gebaseerd. *Try het definiëren van uw filepaths als Koorden in plaats van Varianten (u zou dit hoe dan ook waarschijnlijk moeten doen), en probeert dan de variaties op de verbinding, enz.
*Try volledig verlatend de variabelen en ga enkel over hardcoded wegen aan Namespace ().
*Try het specificeren van de wegen die UNC in plaats van aandrijvingsafbeelding gebruiken (d.w.z. \ \ \ de \ Gedeelde \ Hoge Dagelijkse Prestaties… enz. van de Opbrengst \ Chris \)

Als het probleem inderdaad met het voorwerp te doen Namespace is, kunt u creatief moeten worden om het op te lossen.
Andere oplossingen  
 
programming4us programming4us