应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » Excel数据批量保存成文件
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 1043  |  回复: 9
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

starfriend

金虫 (正式写手)

[求助] Excel数据批量保存成文件 已有2人参与

想要批量保存文件，却不知如何下手。
比如有101列数据，第1列为X，第2列到第101列为Y1, Y2, ..., Y100。如何批量保存（X, Y1）为一个文件，以此类推，..., （X，Y100）为第100个文件；同时都保存文件名为1,2,...,100，格式为Tab delimited (.txt)。
小弟对语言不是很精通~请问如何实现？越简单越好~多谢各位！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-01-27 14:47:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingxb

金虫 (正式写手)

迷途书虫

【答案】应助回帖

感谢参与，应助指数 +1
这种活可以直接用python来做，将execle文件作为一个对象打开，读入写出，相当简单。
赞一下(1人) 回复此楼
http://sites.google.com/site/nwnuatom/个人网站，欢迎猛击乱点！
3楼2015-01-28 09:43:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答

me_yu

木虫 (正式写手)
标记一下

[ 发自小木虫客户端 ]
回复此楼
听，寂静的夜里，田野里蛙声和虫鸣，好不欢快！
4楼2015-01-28 17:56:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhouxiaochun

铁杆木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +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
赞一下(2人) 回复此楼
5楼2015-01-28 23:57:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

starfriend

金虫 (正式写手)
引用回帖:
5楼: Originally posted by zhouxiaochun at 2015-01-28 23:57:48
直接给代码，附件上传几次都没成功。

Sub SaveAsFiles()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim lj     As String
    Dim newfile As Object
    Dim ma ...

是用EXCEL 的VBA吧？昨天我在其他的地方也获得了帮助，不过并没有完全完成~ 先感谢你！我先研究下试试看~稍后给你奖励！
赞一下 回复此楼
6楼2015-01-29 05:39:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +5 脚滑的守法公民 2026-03-27 5/250 2026-03-27 22:50 by lcl13500..
[有机交流] 高温高压反应求助 10+4 chibby 2026-03-25 4/200 2026-03-27 21:08 by BT20230424
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 考研调剂 +4 Sanmu-124 2026-03-26 4/200 2026-03-27 17:49 by kiokin
[考研] 一志愿北京化工大学 070300 学硕 336分 求调剂 +9 vv迷 2026-03-22 9/450 2026-03-27 15:59 by 不吃魚的貓
[考博] 26申博 +3 加油冲啊！ 2026-03-26 3/150 2026-03-27 15:38 by cls512
[考研] 考研化学308分求调剂 +10 你好明天你好 2026-03-23 12/600 2026-03-27 14:43 by shangxh
[考研] 317求调剂 +5 十闲wx 2026-03-24 5/250 2026-03-27 13:48 by 杨杨杨紫
[考研] 334求调剂 +3 雨清天晴 2026-03-21 3/150 2026-03-27 11:30 by 不吃魚的貓
[考研] 调剂推荐 +5 清酒714 2026-03-26 6/300 2026-03-27 11:12 by 不吃魚的貓
[考研] 327求调剂 +7 prayer13 2026-03-23 7/350 2026-03-26 20:48 by 不吃魚的貓
[考研] 化学工程085602 305分求调剂 +17 RichLi_ 2026-03-25 17/850 2026-03-26 19:44 by plmuchong
[考研] 081700 调剂 267分 +11 迷人的哈哈 2026-03-23 11/550 2026-03-26 15:41 by zzll406
[考研] 0703化学求调剂 +6 奶油草莓. 2026-03-22 7/350 2026-03-25 10:00 by shangxh
[考研] 306求0703调剂一志愿华中师范 +10 纸鱼ly 2026-03-21 11/550 2026-03-24 17:22 by qingfeng258
[考研] 求调剂一志愿武汉理工大学材料工程（085601） +5 WW.' 2026-03-23 7/350 2026-03-24 14:50 by sprinining
[考研] 361求调剂 +3 Glack 2026-03-22 3/150 2026-03-23 22:03 by fuyu_
[考研] 生物学调剂 +5 Surekei 2026-03-21 5/250 2026-03-22 14:39 by tcx007
[考研] 材料学硕301分求调剂 +7 Liyouyumairs 2026-03-21 7/350 2026-03-21 22:31 by peike
[考研] 求调剂 +4 要好好无聊 2026-03-21 4/200 2026-03-21 18:57 by 学员8dgXkO
信息提示
关闭
请填处理意见
关闭