本帖最后由 flashercs 于 2019-3-9 18:45 编辑
为何不早上图,还以为只有数字!!!!!
第80行:- Dim varValue
- varValue = objCells(nRow + nTop, nCol + nLeft).Value
- If IsNumeric(varValue) Then
- arrSheet(nRow, nCol) = FormatNumber(varValue, 2, vbTrue, vbUseDefault, vbUseDefault)
- Else
- arrSheet(nRow, nCol) = CStr(varValue)
- End If
复制代码
|