Вопрос : VBA Unzipping архив

Hi,

I нашло некоторое Кодего от target= " _blank " " http://www.rondebruin.nl/windowsxpunzip.htm " href= indowsxpunzip.htm http://www.rondebruin.nl/w около для того чтобы unzip архив using VBA. Проблема с моим Кодим что она отлаживает на линии «oAPP.Namespace (FileNameFolder). CopyHere oAPP.Namespace (Fname). Items». Сообщением будет предмет переменный или с с блоком не set.

The Кодим как ниже & как всегда любая помощь была бы больш! class= " lineNumbers " >

1 >
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= " prettyprint " id= " codeSnippet969158 " >
Sub UnzIpp ()

'Unzip архивы JPM
Затемните FSO как предмет
Затемните oAPP как предмет
Затемните Fname как вариант
Затемните FileNameFolder как вариант
 
'JPM_File = (" выход G:\Shared\High \ Крис \ ежедневно представление \ ежедневно цены JPM \ сводка валюации»)

Fname = «выход G:\Shared\High \ Крис \ ежедневно представление \ ежедневно цены JPM \ валюация Summary_20100823.zip»

FileNameFolder = «выход G:\Shared\High \ Крис \ ежедневно представление \ ежедневно цены JPM \ Unzipped \ валюация Summary_20100823.xls»

Установите oAPP = CreateObject («Shell.Application»)
    oAPP.Namespace (FileNameFolder) .CopyHere oAPP.Namespace (Fname). Детали

      На резюме ошибки затем
        Установите FSO = CreateObject («scripting.filesystemobject»)
        FSO.DeleteFolder Environ («Temp») &» \ временно Directory* ", поистине

    Установите wbTemp = Workbooks.Open (JPM_File)
    wbTemp.SaveAs (" выход G:\Shared\High \ Крис \ ежедневно представление \ ежедневно цены JPM \ Unzipped \ валюации Summary_20100823.xls»)
    'wbTemp = JPM_File

Закончите class= " ясное " >

 Sub

  
  class= 

Ответ : VBA Unzipping архив

Кажется, что будет о'кейо, добро там что-то странный идти дальше здесь. Посмотрите это:

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

Вы могли также попытаться:

oAPP.Namespace ((FileNameFolder)).CopyHere oAPP.Namespace ((Fname)). Детали

За исключением этого, вопрос приходит вниз к «который не создают предмету?» 2 выбранного для этого: любое oAPP не установлено, которое я сказал бы маловероятн, или не установлен предмет Namespace (FileNameFolder). Вы можете найти вне using IDE на этап Кодий останавливает.

Я принудил бы, что вы посмотрели *very* близко на тех курсах архива - вы уверенн они точно этим же? Число из заказа? Подчёркивать где он не должен быть?

Скопируйте курс архива застежка-молнии от вашего Кодего, т.е.

выход G:\Shared\High \ Крис \ ежедневно представление \ ежедневно цены JPM \ валюация Summary_20100823.zip

и наклеите его в адвокатское сословие адреса исследователя - оно должен раскрыть архив застежка-молнии если курс правильно.

Если никакой этих работа, котор я попытался бы fiddling вокруг при изменения основанные на соединении в начале этого электронная почта. *Try определять ваши filepaths как шнуры вместо вариантов (вы должны вероятно сделать это так или иначе), и после этого пытается изменения на соединении, etc.
*Try покинуто перемеююые вполне и как раз передайте hardcoded курсы к Namespace ().
*Try определяющ курсы using UNC вместо составлять карту привода (т.е. \ \ выход \ \, котор делят \ высокие \ Крис \ ежедневно представление… etc.)

Если проблема должна деиствительно сделать с предметом Namespace, то вы можете получить, что творческими разрешили его.