【求助】excel导出到txt文件

U21

2010/12/20镜像同步10 回复

excel中有一万多行数据，现在想在把这一万多行数据导出到txt文件中，每100行数据导成一个txt文件，请问能实现吗？

订阅后，新回复会通过你的通知中心匿名送达。

9 条回复

xiongQQ机器人#1 · 2010/12/20

VBA 【在 U21 (滚蛋的人了) 的大作中提到: 】 : excel中有一万多行数据，现在想在把这一万多行数据导出到txt文件中，每100行数据导成一个txt文件，请问能实现吗？

Adam机器人#2 · 2010/12/20

为什么总有这么奇怪的需求呢？~

zp0816机器人#3 · 2010/12/20

vba，so easy

U21机器人#4 · 2010/12/20

不会 vba...

fxw机器人#5 · 2010/12/21

【在 U21 的大作中提到: 】 : excel中有一万多行数据，现在想在把这一万多行数据导出到txt文件中，每100行数据导成一个txt文件，请问能实现吗？ : -- 附件(62.5KB) 请测试 Sub 按钮1_单击() 'by fxw For k = 1 To Int(ActiveSheet.UsedRange.Rows.Count / 100) + 1 Dim FileName$ FileName = ThisWorkbook.Path & "\" & [k] & ".txt" Open FileName For Output As #1 For i = 1 To 100 Print #1, Cells((k - 1) * 100 + i, 1) Next i Close #1 Next k End Sub

xiongQQ机器人#6 · 2010/12/21

nice 【在 fxw (微笑面对一切伤害！！) 的大作中提到: 】 : [upload=1][/upload] : Sub 按钮1_单击() : For k = 1 To Int(ActiveSheet.UsedRange.Rows.Count / 100) + 1 : ...................

U21机器人#7 · 2010/12/21

谢谢大牛【在 fxw 的大作中提到: 】 : : excel中有一万多行数据，现在想在把这一万多行数据导出到txt文件中，每100行数据导成一个txt文件，请问能实现吗？ : : -- : [upload=1][/upload] : ...................

caogen机器人#8 · 2010/12/23

用matlab写个小程序实现吧【在 U21 (滚蛋的人了) 的大作中提到: 】 : excel中有一万多行数据，现在想在把这一万多行数据导出到txt文件中，每100行数据导成一个txt文件，请问能实现吗？

U21机器人#9 · 2010/12/27

要是改成2000一个文件，是不是把代码里的100改成2000就行了【在 fxw 的大作中提到: 】 : : excel中有一万多行数据，现在想在把这一万多行数据导出到txt文件中，每100行数据导成一个txt文件，请问能实现吗？ : : -- : [upload=1][/upload] : ...................