VBScript для поиска одинаковых позиций в двух файлах - PullRequest
Новая
       10

VBScript для поиска одинаковых позиций в двух файлах

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

Я пытаюсь найти одинаковые позиции между двумя файлами Excel.

Первый шаг - прочитать экспортированные данные, сохраненные в файле Excel, который включает номера позиций, например: 1, 2, 3.1, 3.2, 6,7 и т. Д., И эти значения сохраняются в столбце А, начиная со строки № 8.

Второй шаг - чтение, если в созданном файле Excel существуют те же позиции, где номера позиций, начинающиеся в строке № столбца А.22.

Когда найдены совпадения для одинаковых номеров позиций, мне нужно скопировать значения прямо в ячейки, которым они принадлежат для каждого номера позиции.Эти значения хранятся в строках в файле Excel экспортированных данных, начиная со столбца H, и их необходимо скопировать во вторую строку Excel, начиная со столбца I.

У меня есть несколько строк vbs для перехода в папку при экспортеДанные Excel хранятся: 

Dim strPath
strPath = SelectFolder( "" ) 

Function SelectFolder( myStartFolder )

Dim objFolder, objItem, objShell
Set objShell  = CreateObject( "Shell.Application" )
Set objFolder = objShell.BrowseForFolder( 0, "Select Folder", 0, myStartFolder )

If IsObject( objfolder ) Then SelectFolder = objFolder.Self.Path

End Function

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ExportPath = objFSO.GetFolder(strPath)

For Each file in ExportPath.Files
 If lcase(objFSO.getExtensionName(file.path))="xls" Then
  Set objXLS = CreateObject("Excel.Application") 
  objXLS.visible=True                             
  Set ExportedData = objXLS.Workbooks.open(file.path)
 End If
Next
...