利用VBA遍历Excel所有sheet的例子

下面是利用VBA遍历Excel sheet的例子，可以用于Excel的批量处理。

Sub Insert_CodeString()

Dim fs, ft As Object
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Dim Sql As String
    Sql = "