摘要: @echo off taskkill /f /im excel.exe choice /t 1 /d y /n >nul set mypath= "" "%~dp0\fbl.xlsm" echo %mypath% start %mypath% @echo off taskkill /f /im ex 阅读全文
posted @ 2017-10-13 18:12 屎壳螂 阅读(109) 评论(0) 推荐(0)
摘要: Public Function GetClipboardText() Dim a As New DataObject a.GetFromClipboard GetClipboardText = a.GetText End Function Sub CopyStr(ByVal str As Strin 阅读全文
posted @ 2017-10-13 18:11 屎壳螂 阅读(399) 评论(0) 推荐(0)