在Excel宏编程中vba语音怎么用循环实现15次呢
k=1IfDir(ThisWorkbook.Path&"\硬1.xls")=""ThenElsek=k+1endifIfDir(ThisWorkbook.Path&"\硬...
k = 1
If Dir(ThisWorkbook.Path & "\硬1.xls") = "" Then
Else
k = k + 1
end if
If Dir(ThisWorkbook.Path & "\硬2.xls") = "" Then
Else
k = k + 1
end if
If Dir(ThisWorkbook.Path & "\硬3.xls") = "" Then
Else
k = k + 1
end if
If Dir(ThisWorkbook.Path & "\硬4.xls") = "" Then
Else
k = k + 1
end if
.... 展开
If Dir(ThisWorkbook.Path & "\硬1.xls") = "" Then
Else
k = k + 1
end if
If Dir(ThisWorkbook.Path & "\硬2.xls") = "" Then
Else
k = k + 1
end if
If Dir(ThisWorkbook.Path & "\硬3.xls") = "" Then
Else
k = k + 1
end if
If Dir(ThisWorkbook.Path & "\硬4.xls") = "" Then
Else
k = k + 1
end if
.... 展开
展开全部
k = 1
For i = 1 To 15
If Dir(ThisWorkbook.Path & "\硬" & i & ".xls") <> "" Then
k = k + 1
End If
Next
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
