Example of using VBA to traverse all sheet in Excel

The following is an example of using VBA to traverse Excel sheet, which can be used for batch processing in Excel.

Subinsert_codestring ()DimFS, FT as ObjectDimXlapp asExcel.ApplicationDimXlbook asExcel.WorkbookDimXlsheet asExcel.WorksheetDimSql as StringSQL="truncate TABLE code_string;"&Chr(Ten)DimLine as IntegerSetFS =CreateObject("Scripting.FileSystemObject")SetFT = Fs.createtextfile (Thisworkbook.path &"\"&"insert_codestring"&". SQL")SetXlbook =ThisWorkbook forx =1  toXlBook.Sheets.CountSetXlsheet =xlbook.sheets (x)IfXlsheet.cells (3,1) ="code number"  Then Line=8SQL= SQL &Chr(Ten) &Chr(Ten) &"--"& Xlsheet.cells (4,2) &Chr(Ten)                 DoSQL= SQL &"Insert into code_string (code_type,code_type_desc,code_value,code_desc,code_flag) Values ('"& Xlsheet.cells (3,2) &"', '"& Xlsheet.cells (4,2) &"', '"& Xlsheet.cells (line,2) &"', '"& Xlsheet.cells (line,3) &"' , ' 1 ');"&Chr(Ten) Line= line +1        Loop Until Len(Xlsheet.cells (line,1). Value) =0            End If    NextXSQL= SQL &Chr(Ten) &Chr(Ten) &"commit;"&Chr(Ten) ft. WriteLine (SQL) ft. CloseSetFT = Nothing:SetFS = NothingEnd Sub

Example of using VBA to traverse all sheet in Excel