liheao的博客

Function isNum(rng) As BooleanDim i As IntegerOn Error Resume Nexti = rngisNum = Not Err.Number = 13End FunctionSub sdk() For Each rng In Range("U2:Z527") If isNum(rng) = False Then rng.Select NextEnd Sub

vba代码执行后，把BOOK1.xls打开，循环5次，a1、b1、e1数据写入word中，（注意，word也有格子，也有行列），然后保存5次到c盘下。Sub Macro1()Dim devType As String    Dim devName As String    Dim devDes  As String    Dim sTemp   As String   

Sub XO()Dim strPath As StringstrPath = ThisWorkbook.PathCall getExcelFile0(strPath)End SubSub getExcelFile0(sFolderPath As String)On Error Resume NextDim f As StringDim file() As Stringx =...