Как распаковать файл CSV по ключевому слову через Excel VBA - PullRequest
Новая
       6

Как распаковать файл CSV по ключевому слову через Excel VBA

0 голосов
/ 11 февраля 2019

Мне нужно разархивировать файл по ключевому слову файла, поскольку имя файла содержит некоторые переменные числа и даты, которые меняются в зависимости от даты.

Поэтому я попытался создать код для распаковки файла с помощьюего ключевое слово.Я пытался использовать функцию с подпрограммой, но она не отвечает мне.Как мне решить эту проблему?

Я пытался использовать опцию Wild Card, чтобы идентифицировать файл по его ключевому слову, но он не работает. 

Sub UnZipFile()

entUnZipFile "C:\Reports\Monthly.zip", "D:\Records\Quality","*QualityCost*" & ".csv"  'Filename is "15256_20180625 QualityCost-5.csv"' 

End Sub


Function entUnZipFile(ByVal strZipFilename, ByVal strDstDir, ByVal strFilename)

Const glngcCopyHereDisplayProgressBox = 256

Dim intOptions, objShell, objSource, objTarget

Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.Namespace(strZipFilename).Items.Item(CStr(strFilename))

Set objTarget = objShell.Namespace(strDstDir)

intOptions = glngcCopyHereDisplayProgressBox

objTarget.CopyHere objSource, intOptions

Set objSource = Nothing
Set objTarget = Nothing
Set objShell = Nothing

entUnZipFile = 1

End Function
...