Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2172|回复: 2

[已解决]split不定数量空格分列导入

[复制链接]
发表于 2017-7-17 12:31 | 显示全部楼层 |阅读模式
本帖最后由 tcmsod 于 2017-7-18 21:18 编辑

需导入每行文本,按7列导入到excel中,以下代码测试不成功,可能和间隔的特殊符号有关,请高手指教如何解决,谢谢。

1  A11     S00                         A    50    ea               0.3      


Sub heTxt()

Dim arr(1 To 10000, 1 To 7), F$, brr, j&
F = Dir(ThisWorkbook.Path & "\*.txt")
Do While F <> ""
  Open ThisWorkbook.Path & "\" & F For Input As #1
  Do While Not EOF(1)
    n = n+1
    Line Input #1, x
    brr = Split(Trim(x), " ")
    For j = 0 To 6
      arr(n, j + 1) = brr(j)
    Next j
  Loop
  Close #1
  F = Dir
Loop
[a1].Resize(n, 7) = arr

End Sub
最佳答案
2017-7-17 12:39
  1. brr = Split(Application.Trim(x), " ")
复制代码

out1.zip

394 Bytes, 下载次数: 10

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-7-17 12:39 | 显示全部楼层    本楼为最佳答案   
  1. brr = Split(Application.Trim(x), " ")
复制代码
回复

使用道具 举报

 楼主| 发表于 2017-7-18 21:18 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 08:48 , Processed in 1.187755 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表