| 查看: 1044 | 回复: 9 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
starfriend金虫 (正式写手)
|
[求助]
Excel数据批量保存成文件 已有2人参与
|
|
|
想要批量保存文件，却不知如何下手。 比如有101列数据，第1列为X，第2列到第101列为Y1, Y2, ..., Y100。如何批量保存（X, Y1）为一个文件，以此类推，..., （X，Y100）为第100个文件；同时都保存文件名为1,2,...,100，格式为Tab delimited (.txt)。 小弟对语言不是很精通~请问如何实现？越简单越好~多谢各位！ |
回复此楼» 猜你喜欢
材料求调剂 一志愿哈工大总分298分，前三科223分
已经有5人回复
-
085600 286分 材料求调剂
已经有6人回复
-
086502化学工程342求调剂
已经有4人回复
-
材料求调剂一志愿哈工大324
已经有7人回复
-
328求调剂
已经有7人回复
-
340求调剂
已经有5人回复
-
一志愿南昌大学324求调剂
已经有4人回复
-
求调剂推荐 材料 304
已经有15人回复
-
291求调剂
已经有19人回复
-
331环境科学与工程求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求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
