摘要:
Public Sub GetIPT() gipt = Trim(InputBox("请输入所在组,只需输入前面的字母代码即可 A- groupA B-groupB C-groupC D-groupD E-groupD ")) strIPT = UCase(gipt) If strIPT = "A" Then GetInfo ("AirBus"): End If s... 阅读全文
posted @ 2018-12-20 15:55
tec2019
阅读(398)
评论(0)
推荐(0)
摘要:
Sub clData() Dim ComputerCount As Object tms = Timer p = ThisWorkbook.Path & "\" f = Dir(p & "*.xls") Application.ScreenUpdating = False tms = Timer On Error Resume Next ... 阅读全文
posted @ 2018-12-20 15:28
tec2019
阅读(2007)
评论(0)
推荐(0)

浙公网安备 33010602011771号