Questione : VBA che apre la chiusura lampo di una lima

Ciao, il

I ha trovato un certo codice dal target= " _blank " " di http://www.rondebruin.nl/windowsxpunzip.htm " del href= di indowsxpunzip.htm di http://www.rondebruin.nl/w circa per aprire la chiusura lampo di una lima using VBA. Il problema è con il mio codice è che mette a punto alla linea “oAPP.Namespace (FileNameFolder). CopyHere oAPP.Namespace (Fname). Items„. Il messaggio è oggetto variabile o con con il blocco non set.

The il codice è come sotto & poichè tutto l'aiuto sarebbe sempre 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 secondario ()

'Aprire la chiusura lampo delle lime di JPM
Oscurare FSO come oggetto
Oscurare il oAPP come oggetto
Oscurare Fname come variante
Oscurare FileNameFolder come variante
 
'JPM_File = (" rendimento di G:\Shared\High \ Chris \ giornalmente prestazione \ giornalmente prezzi di JPM \ sommario di valutazione„)

Fname = “rendimento di G:\Shared\High \ Chris \ giornalmente prestazione \ giornalmente prezzi \ valutazione Summary_20100823.zip di JPM„

FileNameFolder = “rendimento di G:\Shared\High \ Chris \ giornalmente la prestazione \ giornalmente prezzi di JPM \ ha aperto la chiusura lampo di \ valutazione Summary_20100823.xls„

Regolare il oAPP = CreateObject (“Shell.Application„)
    oAPP.Namespace (FileNameFolder) .CopyHere oAPP.Namespace (Fname). Articoli

      Sul riassunto di errore dopo
        Regolar FSO = CreateObject (“scripting.filesystemobject„)
        FSO.DeleteFolder circondano (“Temp„) &„ \ Directory* provvisorio ", allineare

    Regolare il wbTemp = Workbooks.Open (JPM_File)
    wbTemp.SaveAs (" rendimento di G:\Shared\High \ Chris \ giornalmente prestazione \ giornalmente prezzi \ aperti la chiusura lampo di \ valutazione Summary_20100823.xls di JPM„)
    'wbTemp = JPM_File

Concludere il class= >

 di Sub

  
  class= del 

Risposta : VBA che apre la chiusura lampo di una lima

L'approvazione, pozzo là sembra essere qualche cosa di accendere bizzarro qui. Esaminare questo:

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

Potreste anche provare:

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

Tranne questa, la domanda scende a “che l'oggetto non è generato?„ Ci sono due candidati per questo: il uno o il altro oAPP non è regolato, che direi sono improbabile, o l'oggetto del namespace (FileNameFolder) non è regolato. Potete scoprire che using l'ido al punto il codice arresta.

Lo inviterei ad esaminare molto attentamente il *very* quei percorsi della lima - siete sicuro siete esattamente lo stesso? Una cifra guastata? Un sottolineamento dove non dovrebbe essere?

Copiare il percorso della lima di chiusura lampo dal vostro codice, cioè.

rendimento di G:\Shared\High \ Chris \ giornalmente prestazione \ giornalmente prezzi \ valutazione Summary_20100823.zip di JPM

ed incollarlo nella barra di indirizzo dell'esploratore - dovrebbe aprire la lima di chiusura lampo se il percorso è corretto.

Non ne se dei questi lavoro che proverei a perdere tempo intorno con le variazioni basate sul collegamento all'inizio di questo email. *Try definire i vostri filepaths come stringhe anziché le varianti (dovreste probabilmente fare comunque questo) ed allora prova le variazioni sul collegamento, ecc.
*Try abbandonando le variabili completamente e passare appena i percorsi hardcoded al namespace ().
*Try specificando i percorsi using UNC invece di tracciato di azionamento (cioè \ \ prestazione… ecc. \ \ compartecipe \ massimo rendimento \ Chris \ giornalmente)

Se il problema è effettivamente di fare con l'oggetto del namespace, potete dovere ottenere creativo di risolverlo.