1金币
最佳答案用这个方法可以了
For sheetIndex = 0 To fs.Sheets.Count - 1
fs.Sheets(sheetIndex).RowCount = fs.Sheets(sheetIndex).GetLastNonEmptyRow(FarPoint.Win.Spread.NonEmptyItemFlag.Data)+1
fs.Sheets(sheetIndex).ColumnCount = fs.Sheets(sheetIndex).GetLastNonEmptyColumn(FarPoint.Win.Spread.NonEmptyItemFlag.Data)+1
Next
| |
| |
| |