Dim ex As Excel.Application
Dim exwbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Dim x As String
Dim shetcounts As Integer
shetcounts = 0
Set ex = CreateObject("Excel.Application")
Set exwbook = ex.Workbooks.Open(ThisWorkbook.Path & "\Book1.xls")
For Each ws In Worksheets
MsgBox ws.Name
Next ws
'别忘了加上关闭EXCEL的代码与释放变量
Access软件网交流QQ群(群号:198465573) |