- 博客(1)
- 收藏
- 关注
原创 把当前文件夹中所有txt读入到excel中
Sub 读取数据() '把当前文件夹下所有的txt读入到excel文件中 '每个txt对应一个sheet,txt的名称与sheet名称一致 'txt的文本每行用tab分割 Dim MyFile As String Dim s As Integer Dim count As Integer Dim Arr(100) As String Dim FileObj As Object tmpath =
2014-06-24 17:16:57 1431
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人