| 查看: 1036 | 回复: 9 | ||
starfriend金虫 (正式写手)
|
[求助]
Excel数据批量保存成文件 已有2人参与
|
|
想要批量保存文件，却不知如何下手。 比如有101列数据，第1列为X，第2列到第101列为Y1, Y2, ..., Y100。如何批量保存（X, Y1）为一个文件，以此类推，..., （X，Y100）为第100个文件；同时都保存文件名为1,2,...,100，格式为Tab delimited (.txt)。 小弟对语言不是很精通~请问如何实现？越简单越好~多谢各位！ |
回复此楼» 猜你喜欢
求调剂
已经有4人回复
-
一志愿 西北大学 总分282 英语一62 求调剂
已经有3人回复
-
调剂310
已经有4人回复
-
北科281学硕材料求调剂
已经有16人回复
-
一志愿上海交大生物与医药专硕324分，求调剂
已经有6人回复
-
一志愿哈工大，085400，320，求调剂
已经有4人回复
-
316求调剂
已经有9人回复
-
085600 材料与化工 329分求调剂
已经有8人回复
-
0856求调剂
已经有6人回复
-
299求调剂
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求MATLAB批量读取文件代码，并赋值指定的变量名
已经有4人回复
- excel中大量数据如何导入matlab当中？超过1000个数据无法一个一个输入
已经有14人回复
- Matlab 如何批量录入excel表格未分列的数据
已经有5人回复
- Matlab如何读取中括号内的数据
已经有8人回复
- matlab读取excel多个sheet数据，处理并重新保存，高价求教高人
已经有12人回复
- matlab parfor并行运行中导出excel出错
已经有6人回复
- Matlab读取多个文件中某一列的最大值然后输出到一个txt中
已经有8人回复
- 数据如何到matlab的workspace中？
已经有42人回复
- Matlab批量处理EXCEL数据并画图
已经有9人回复
- 求助，把一个office2010版的一个Excel文件转换成2003版的，谢谢
已经有13人回复
- 关于matlab数据如何导出到excel
已经有15人回复
- VC读写TXT中的数据
已经有22人回复
- 200多个txt文件matlab读取问题
已经有18人回复
- matlab txt文件数据提取转换
已经有10人回复
- Matlab中save问题
已经有5人回复
- 如何批量提取多个文件中第三列的部分数据并求和输出？
已经有21人回复
- 【求助】FLUENT 非稳态，如何导出截面上的数据
已经有8人回复
- excel中做的图怎么转换为eps或postscript格式（期刊修改稿要求）
已经有8人回复
- 新威电池测试仪怎么从NDA文件中导出EXCEL文件？
已经有4人回复
- 怎样将Excel做的图转化为投稿可以用的图片
已经有24人回复
starfriend
金虫 (正式写手)
- 应助: 29 (小学生)
- 金币: 3655.4
- 红花: 5
- 帖子: 464
- 在线: 529.2小时
- 虫号: 647997
- 注册: 2008-11-07
- 专业: 环境工程
2楼2015-01-28 04:18:11
dingxb
金虫 (正式写手)
迷途书虫
- 应助: 12 (小学生)
- 金币: 1674.5
- 帖子: 482
- 在线: 59.5小时
- 虫号: 34085
- 注册: 2004-01-06
- 性别: GG
- 专业: 原子和分子物理
3楼2015-01-28 09:43:59
me_yu
木虫 (正式写手)
- 应助: 26 (小学生)
- 金币: 3369.5
- 散金: 350
- 红花: 7
- 沙发: 1
- 帖子: 895
- 在线: 468.1小时
- 虫号: 2533501
- 注册: 2013-07-05
- 专业: 计算机软件
4楼2015-01-28 17:56:36
zhouxiaochun
铁杆木虫 (正式写手)
- 应助: 57 (初中生)
- 金币: 8946.8
- 红花: 15
- 帖子: 622
- 在线: 241.8小时
- 虫号: 551545
- 注册: 2008-04-27
- 性别: GG
- 专业: 化学工程及工业化学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
starfriend: 金币+50, ★★★★★最佳答案, Nice assist 2015-01-29 07:39:21
感谢参与，应助指数 +1
starfriend: 金币+50, ★★★★★最佳答案, Nice assist 2015-01-29 07:39:21
|
直接给代码，附件上传几次都没成功。 Sub SaveAsFiles() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim lj As String Dim newfile As Object Dim mainfilename As String lj = ActiveWorkbook.Path mainfilename = ActiveWorkbook.Name For i = 1 To [iv2].End(xlToLeft).Column - 1 Set newfile = Workbooks.Add Workbooks(mainfilename).Sheets(1).Columns(1).Copy newfile.Sheets(1).Cells(1, 1) Workbooks(mainfilename).Sheets(1).Columns(i + 1).Copy newfile.Sheets(1).Cells(1, 2) newfile.SaveAs Filename:=lj & "/" & i & ".xls" newfile.SaveAs Filename:=lj & "/" & i & ".txt", FileFormat:=xlText, CreateBackup:=False newfile.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "共完成" & i - 1 & "组拆分" End Sub |
5楼2015-01-28 23:57:48
starfriend
金虫 (正式写手)
- 应助: 29 (小学生)
- 金币: 3655.4
- 红花: 5
- 帖子: 464
- 在线: 529.2小时
- 虫号: 647997
- 注册: 2008-11-07
- 专业: 环境工程
6楼2015-01-29 05:39:20
starfriend
金虫 (正式写手)
- 应助: 29 (小学生)
- 金币: 3655.4
- 红花: 5
- 帖子: 464
- 在线: 529.2小时
- 虫号: 647997
- 注册: 2008-11-07
- 专业: 环境工程
7楼2015-01-29 07:38:03
zhouxiaochun
铁杆木虫 (正式写手)
- 应助: 57 (初中生)
- 金币: 8946.8
- 红花: 15
- 帖子: 622
- 在线: 241.8小时
- 虫号: 551545
- 注册: 2008-04-27
- 性别: GG
- 专业: 化学工程及工业化学
8楼2015-01-29 19:44:05
starfriend
金虫 (正式写手)
- 应助: 29 (小学生)
- 金币: 3655.4
- 红花: 5
- 帖子: 464
- 在线: 529.2小时
- 虫号: 647997
- 注册: 2008-11-07
- 专业: 环境工程
|
我就是差不多这个意思~当导入单一文件到其他一个软件的时候第一行是可以被识别为标题的，但是当批量导入的时候不能成功，提示文件之间不统一。所以我就跳过标题行，直接输入数据导入就可以。就是这个小缺憾，估计是和输出的格式有关系~~ 之前在另外一个地方也获得了帮助，代码如下： Sub 另存() Dim i As Long Dim str As String Dim l& l = Cells(1, Columns.Count).End(xlToLeft).Column str = ThisWorkbook.Path & "\" Set fs = CreateObject("Scripting.FileSystemObject"  k = 1 For i = 1 To l If k >= l Then Exit For Set a = fs.CreateTextFile(k & ".txt", True) k = k + 1 t = Cells(1, 1) & "-" & Cells(1, k) a.WriteLine (t) '把I行的相应的数据写入TXT文件 a.Close Set a = Nothing Next i End Sub 可以识别标题行，不过不能读取多数据，我觉得他可能写错了，可能是把I“列”的相应的数据写入TXT文件。 |
9楼2015-01-30 07:43:45
starfriend
金虫 (正式写手)
- 应助: 29 (小学生)
- 金币: 3655.4
- 红花: 5
- 帖子: 464
- 在线: 529.2小时
- 虫号: 647997
- 注册: 2008-11-07
- 专业: 环境工程
|
重新贴一次代码 Sub 另存() Dim i As Long Dim str As String Dim l& l = Cells(1, Columns.Count).End(xlToLeft).Column str = ThisWorkbook.Path & "\" Set fs = CreateObject("Scripting.FileSystemObject" k = 1 For i = 1 To l If k >= l Then Exit For Set a = fs.CreateTextFile(k & ".txt", True) k = k + 1 t = Cells(1, 1) & " " & Cells(1, k) a.WriteLine (t) '把I行的相应的数据写入TXT文件 a.Close Set a = Nothing Next i End Sub |
10楼2015-01-30 07:51:49
