| 查看: 1041 | 回复: 9 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
starfriend金虫 (正式写手)
|
[求助]
Excel数据批量保存成文件 已有2人参与
|
|
|
想要批量保存文件，却不知如何下手。 比如有101列数据，第1列为X，第2列到第101列为Y1, Y2, ..., Y100。如何批量保存（X, Y1）为一个文件，以此类推，..., （X，Y100）为第100个文件；同时都保存文件名为1,2,...,100，格式为Tab delimited (.txt)。 小弟对语言不是很精通~请问如何实现？越简单越好~多谢各位！ |
回复此楼» 猜你喜欢
085701环境工程，267求调剂
已经有12人回复
-
320分，材料与化工专业，求调剂
已经有7人回复
-
085701环境工程求调剂
已经有8人回复
-
295材料工程专硕求调剂
已经有5人回复
-
265求调剂
已经有8人回复
-
322求调剂
已经有4人回复
-
085602 307分 求调剂
已经有6人回复
-
0856，材料与化工321分求调剂
已经有7人回复
-
0703化学求调剂，各位老师看看我！！！
已经有5人回复
-
266分，求材料冶金能源化工等调剂
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求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人回复
me_yu
木虫 (正式写手)
- 应助: 26 (小学生)
- 金币: 3369.5
- 散金: 350
- 红花: 7
- 沙发: 1
- 帖子: 895
- 在线: 468.1小时
- 虫号: 2533501
- 注册: 2013-07-05
- 专业: 计算机软件
4楼2015-01-28 17:56:36
dingxb
金虫 (正式写手)
迷途书虫
- 应助: 12 (小学生)
- 金币: 1674.5
- 帖子: 482
- 在线: 59.5小时
- 虫号: 34085
- 注册: 2004-01-06
- 性别: GG
- 专业: 原子和分子物理
3楼2015-01-28 09:43:59
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
