Option Explicit获取Excel文件路径dim pathpath = GetFilePath打开excel文档Dim oExcelDim oBookCall OpenExcel(oExcel, oBook)获得所需处理的sheet页Dim oSheetCall OpenSheet(oBook, oSheet, "gh")处理数据Dim inRowFor inRo

*******************************************处理从既存数据中查找是否存在曾经用过的数据*既存数据ｅｘｃｅｌ要求：*   1.既存数据的列名为"MSN"*  2.列名所在行为sheet页中第2行*查询数据excel要求：*   1.查找的MSN的列名为"MSN"*　  2.列名所在行为sheet页中第１行*   3.记录文件名的列为ｍｓｎ列

<br />Option Explicit<br /> <br />Const WINDOW_HANDLE = 0<br />Const OPTIONS = 0<br />Const FILE_TYPE = "*.tmp"<br /> <br />Dim objShell<br />Dim objFolder<br />Set objShell = CreateObject("Shell.Application") <br />Set objFolder = objShell.BrowseForFolder