Question

我正在尝试在两个Excel文件之间找到相同的位置。

第一步是读取存储在excel文件中的导出数据，其中包括位置编号，例如：1、2、3.1、3.2、6、7等，并且此值存储在第8行开始的A列中。 / p>

第二步是读取所创建的excel文件中是否存在相同位置，其中位置编号从A列第22行开始。

当找到相同位置编号的匹配项时，我需要将值直接复制到它们属于每个位置编号的单元格中。这些值存储在以H列开头的导出数据excel文件的Rows中，需要将其复制到以I列开头的第二个excel Row中。

存储导出的数据excel时，我已经写了几行vb可以导航到文件夹：

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

VBScript在两个文件中查找相同的单元格位置

0 个答案: