如何判断打开的工作薄有多少个工作表?

Question

我要编个程序,一个记录一个工作表,录入前必须懂已录到哪个记录.

Answer 1

set wk=xlapp.Workbooks.Open(app.path &"\aa.xls")  '假设把打开的工作簿aa.xls作为WK那么  i=wk.sheets.count       ' i 等于 工作表数一个记录一个工作表,假设一个数组Array(5,1) '第一列就是和工作表对应（首先要存在这些工作表，不存在就创建），第二列就是对应工作表的最后一行的下面再添加上去for k =0 to ubound(Array)
    sheets(Array(K,0)).range("a65536").end(xlup).offset(1)=Array(K,1)   '它会自动复制到A列最后一个单元格的下面一个
    'sheets(Array(K,0)).range("a1")=Array(K,1)   '它会自动复制到A列第一个单元格
next

Answer 2

你说的工作薄是指Excel，工作表就是Sheet吗？以下是取得sheet数
ActiveWorkbook.Sheets.Count