对工作簿使用Save方法,进行保存。如
Dim WB As Excel.Workbook 'WB是工作簿,也就是excel文件
Dim sht As Excel.Worksheet'sht是工作表,一个工作簿下可以有多个工作表
...
WB.Save'保存编辑后的文件
想把excel文件中的每个sheet都单独保存为一个独立excel文件?可以用SaveAs方法,参见https://msdn.(v=office.15).aspx
如果由指定单元格内容来判断空表比较容易,直接读该单元格值来判断.
如果没有指定单元格,试试用worksheet.usedrang.address是否等于"$A$1"作为条件之一
If sht.UsedRange.Address = "$A$1" And sht.Range("A1") = "" Then
Text1.Text = sht.Name & "为空表"
End If
[
本帖最后由 lianyicq 于 2015-4-29 11:43 编辑 ]