大学力学论坛

 找回密码
 注册
查看: 1513|回复: 0

将Excel数据写入到TXT中

[复制链接]
发表于 2015-4-2 15:11:08 | 显示全部楼层 |阅读模式
将Excel中的数据,写入到TXT中,以TAB分隔,便于导入EXCEL中
注意红色部分的用法,能大幅提高写入速度
Sub GetDataFromExcel()
Dim arr, brr, t
t = Timer
arr = ActiveSheet.UsedRange
ReDim brr(1 To UBound(arr, 1))
For a = 1 To UBound(arr, 1)
    brr(a) = arr(a, 1)
    For b = 2 To UBound(arr, 2)
        brr(a) = brr(a) & vbTab & arr(a, b)
    Next
Next
Open "D:\Test.txt" For Output As #1
Print #1, Join(brr, vbCrLf)
Close #1
MsgBox "用时:" & Format(Timer - t, "0.000秒")
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则


QQ|Archiver|手机版|小黑屋|大学力学论坛|基础力学教研学论坛 ( 苏ICP备09076535号 )

GMT+8, 2018-6-19 16:56 , Processed in 0.138730 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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