摘要:
遍历指定文件夹内所有的xls,首先获取所有文件夹内的xls文件路径,使用VBA脚本生成到一个xls文件中,VBA脚本如下: Sub filelist() Dim MyName, Dic, Did, i, t, F, TT, MyFileName 'On Error Resume Next Set o 阅读全文
posted @ 2020-03-06 19:41
hofmann
阅读(1397)
评论(0)
推荐(0)
摘要:
Sub filelist() Dim MyName, Dic, Did, i, t, F, TT, MyFileName 'On Error Resume Next Set objShell = CreateObject("Shell.Application") Set objFolder = ob 阅读全文
posted @ 2020-03-06 16:02
hofmann
阅读(1968)
评论(0)
推荐(0)
摘要:
Sub splitlink() On Error Resume Next For Each cell In Range("K109:k154") cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next End Sub K109:k154 代表分离的行数 阅读全文
posted @ 2020-03-06 13:51
hofmann
阅读(461)
评论(0)
推荐(0)

浙公网安备 33010602011771号