Excel数据比对工具.docVIP

Excel数据比对工具 On Error Resume Next Dim arrSheet1,arrSheet2,intCount1,intCount2 Dim eF1stCell,eFLastCell Dim Texstr,sFileName Dim db1(),db2() Set moWindow=WScript.CreateObject(InternetExplorer.Application, IE_) moWindow.Navigate2 about:blank With moWindow.Document.ParentWindow .Document.Write font /fontbody bgcolor=#9999CCform .Document.Write preb务必确保：比对文件的表头与标准文件的表头一致！（仅比对sheet1表）/b/pre .Document.Write fieldsetlegend加载数据文件/legend .Document.Write pre input type=button value=标准文件 name=Post1/ .Document.Write input type=text size=50 name=rfile1 readonly=readonly/ .Document.Write 共计：input type=text size=5 name=Row1 readonly=readonly/行 .Document.Write input type=text size=5 name=Col1 readonly=readonly/列/pre .Document.Write pre input type=button value=比对文件 name=Post2/ .Document.Write input type=text size=50 name=rfile2 readonly=readonly/ .Document.Write 共计：input type=text size=5 name=Row2 readonly=readonly/行 .Document.Write input type=text size=5 name=Col2 readonly=readonly/列/pre/fieldset .Document.Write pre从第1列比对到第input type=text maxlength=2 size=3 name=eFLastCell/列， .Document.Write 关键列是：input type=text maxlength=11 size=12 name=Gjl Value=1/（用“,”分割多列） .Document.Write input type=reset value= 重置 / .Document.Write input type=button value=开始比对！ name=Post//pre .Document.Write 信息提示：/brtextarea rows=14 cols=52 name=MailText readonly=readonly/ .Document.Write /textarea/br/form/body .MoveTo .Screen.AvailWidth/2-240,.Screen.AvailHeight/2-160 .ResizeTo 720,540 .Document.Title=Excel文件数据比对工具 End With moWindow.Document.Close With moWindow .FullScreen=0 .MenuBar=0 .AddressBar=0 .ToolBar=0 .StatusBar=0 .Resizable=0 .Visible=1 Set Form=.Document.All Set .Document.All.Post.onClick=GetRef(Post_onClick) Set .Document.All.Post1.onClick=GetRef(Post1_onClick) Set .Document.All.Post2.onClick=GetRef(Post2_onClick) End With mbFinished=False Do Until mbFinished WScript.Sleep 100 Loop Sub IE_onQuit mbFinished=True End Sub sub Post1_onClick Dim str1 Form.rFile1.Value=BrowseForFile()