Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: Finding Data Excel Cells
handle = FileOpen("f:\clienten\clienten.txt","READ") DB = ObjectOpen("Excel.Application") DB.Visible = @TRUE DB.UserControl = @TRUE oAPP = DB.Workbooks oAPP.Open("f:\clienten\clienten.xls") oACT = DB.ActiveWorkbook oWKS = DB.Worksheets oWS = DB.Worksheets(4) oWS.Activate line = "" counter = 1 While line <> "*EOF*" line = FileRead(handle) if line == "*EOF*" then break delim1 = StrIndex(line,";",1,@FWDSCAN) delim2 = StrIndex(line,";",delim1+1,@FWDSCAN) delim3 = StrIndex(line,";",delim2+1,@FWDSCAN) oCell = oWS.Range("A%counter%") oCell.Value = StrSub(line,1,delim1-1) oCell = oWS.Range("B%counter%") oCell.Value = StrSub(line,delim1+1,delim2-delim1-1) oCell = oWS.Range("C%counter%") oCell.Value = StrSub(line,delim2+1,delim3-delim2-1) oCell = oWS.Range("D%counter%") oCell.Value = StrSub(line,delim3+1,-1) counter = counter + 1 Endwhile adress = oWS.Range("A1:A1000").Find("VEE", lookin:=xlValues) Message("Find adress", adress)
adress = oWS.Range("A1:A1000").Find("VEE", lookin:=xlValues)is too complicated for WinBatch and you need to specify the xl Constants. See Article ID: W14691 for predefined Excel constants and change your code to:
xlValues = -4163 DaRange = oWS.Range("A1:A1000") AdrCode = DaRange.Find("XYZ" :: lookin=xlValues) if AdrCode == 0 CellAdr = "Not Found" else CellAdr = AdrCode.Address endif Message("Found cell address", CellAdr)
Article ID: W14695
Filename: Finding Data in Excel Cells.txt
File Created: 2002:04:01:12:35:42
Last Updated: 2002:04:01:12:35:42