用宏将一个txt文本文件导入Excel，部分语句如下： &&&&With&ActiveSheet.QueryTables.Add(Connection:=&_ &&&&&&&&"TEXT;E:\Data.txt",&Destination:=Range("A1"))& 其他省略。 但是txt中共有8万行，超过了一张sheet的最大行数65535了。 那如何在宏中进行控制，将前6万行导入sheet1，剩下2万行导入sheet2呢？ 希望高手帮忙，多谢啦！
[此贴子已经被作者于 1:29:01编辑过]
猜你喜欢看
在线时间6163 小时经验48500 威望30 性别男最后登录注册时间阅读权限150UID151593积分48900帖子精华3分享2
管理以下版块
142457财富
积分排行1帖子精华3微积分0
在线时间0 小时经验10 威望0 性别男最后登录注册时间阅读权限20UID411165积分60帖子精华0分享0
EH初级, 积分 60, 距离下一级还需 290 积分
积分排行3000+帖子精华0微积分0
首先谢谢LangQueS版主！这位朋友的需求和我的类似，不过有点不同，他Txt中的一行记录只要导入Excel的一列，而我的则要导入到多列当中。我的Txt文件格式如下，其中“|”是分隔符，“a”导入第一行第一列，“b”导入第一行第二列；a|b|c|d|e|f|g|h&i|j|k|l|m|n|o|p我的思路是从Txt中一行一行读取，首先将整行数据放入一个string当中，再用split方法取出每列的值放入字符串数组temp中，再遍历，把数组值赋给Excel相对应的列；若当前sheet达到规定容纳记录的上限时，则将记录存储到下一个sheet。今天已经做好了。但是我觉得这样很慢，尤其是我的Txt里面有十万条数据，每行有30列，每个sheet存1万条，运行宏起码要两三分钟才能完成。希望各位帮个忙，看有没有更好的办法啊！我写的宏和Txt文件，运行时请改一下Txt的路径
(1.23 KB, 下载次数: 123)
01:30 上传
下载次数: 123
[此贴子已经被作者于 1:31:01编辑过]
在线时间0 小时经验1 威望0 性别男最后登录注册时间阅读权限20UID457373积分51帖子精华0分享0
EH初级, 积分 51, 距离下一级还需 299 积分
积分排行3000+帖子精华0微积分0
你好，我最近也遇到了这样的问题。可以留个qq交流下吗？
在线时间1624 小时经验12800 威望22 性别男最后登录注册时间阅读权限50UID127116积分15950帖子精华1分享0
积分排行21帖子精华1微积分0
Sub macro1()Dim s() As String, arr() As String, i As Long, maxrow As Longmaxrow = 20Open "e:\myexcel\test.txt" For Input As #1s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)Close #1On Error Resume NextFor i = 0 To UBound(s) Step maxrowReDim arr(maxrow - 1)For j = 0 To maxrow - 1arr(j) = s(i + j)NextSheets(1 + i \ maxrow).[a1].Resize(maxrow) = WorksheetFunction.Transpose(arr)Sheets(1 + i \ maxrow).[a:a].TextToColumns Destination:=[a1], DataType:=xlDelimited, Other:=True, OtherChar:="|"NextMsgBox "ok"End Sub
在线时间1506 小时经验338 威望0 性别男最后登录注册时间阅读权限20UID364531积分338帖子精华0分享0
EH初级, 积分 338, 距离下一级还需 12 积分
积分排行3497帖子精华0微积分0
思路是没有大问题,当然还可以更快.你其实不需要读入一行就写入到excel中,这导致多次的重复动作.把需要的读入到一个数组(二维)中,再一次读入到excel,相信提速不少.set rng=sheets(xxx).range("A" & xxx &":Y" & xxx)rng.value=arr1,2,3
在线时间1506 小时经验338 威望0 性别男最后登录注册时间阅读权限20UID364531积分338帖子精华0分享0
EH初级, 积分 338, 距离下一级还需 12 积分
积分排行3497帖子精华0微积分0
以下是引用northwolves在 10:16:18的发言：Sub macro1()Dim s() As String, arr() As String, i As Long, maxrow As Longmaxrow = 20Open "e:\myexcel\test.txt" For Input As #1s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)Close #1On Error Resume NextFor i = 0 To UBound(s) Step maxrowReDim arr(maxrow - 1)For j = 0 To maxrow - 1arr(j) = s(i + j)NextSheets(1 + i \ maxrow).[a1].Resize(maxrow) = WorksheetFunction.Transpose(arr)Sheets(1 + i \ maxrow).[a:a].TextToColumns Destination:=[a1], DataType:=xlDelimited, Other:=True, OtherChar:="|"NextMsgBox "ok"End Sub狼版就是N[em06]
在线时间953 小时经验2006 威望0 性别男最后登录注册时间阅读权限70UID300030积分2006帖子精华0分享0
EH铁杆, 积分 2006, 距离下一级还需 1194 积分
积分排行509帖子精华0微积分0
我碰到的问题有点不同，我的文本文件是以空格分隔的，所以我只能先导入，然后再分列，导入的时候，我是借鉴蓝桥玄霜版主的代码，如果一个工作表装不了，会自动新建工作表，直到导完为止，到目前为止，个人觉得还不错，Sub 导入文本文件()'导入文本文件'引用Microsoft Scripting RuntimeApplication.ScreenUpdating = False&&&&&&&&&& &&& Dim fso As Scripting.FileSystemObject&&& Dim myTxt As Scripting.TextStream&&& Dim myfile As String, myname$&&& Dim i As Long, j%&&& &&& ActiveSheet.Cells.Clear&&& myfile = Application.GetOpenFilename("text files (*.txt),*.txt", , "请选择文本文件")& '指定文件名&&& Set fso = New Scripting.FileSystemObject&&& Set myTxt = fso.OpenTextFile(Filename:=myfile, IOMode:=ForReading)&&& With myTxt&&&&&&& i = 1: j = 1: myname = "sheet" & j&&&&&&& Do Until .AtEndOfStream&&&&&&&&&& Sheets(myname).Cells(i, 1) = .ReadLine&&&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&&& i = i + 1&&&&&&&&&& If i = <font color="#f7 Then&&&&&&&&&&&&&& j = j + 1&&&&&&&&&&&&&& If j & 3 Then&&&&&&&&&&&&&&&&&&& Sheets.Add after:=Sheets(myname)&&&&&&&&&&&&&& End If&&&&&&&&&&&&&& myname = "sheet" & j&&&&&&&&&&&&&& i = 1&&&&&&&&&& End If&&&&&&& Loop&&&&&&& .Close&&& End With红色部分可以改为65537，这样就可以把65536行全部放满数据，我自己留了最后几行以便编辑，否则会导致溢出错误，
在线时间0 小时经验28 威望0 性别男最后登录注册时间阅读权限20UID459140积分78帖子精华0分享0
EH初级, 积分 78, 距离下一级还需 272 积分
积分排行3000+帖子精华0微积分0
以下是引用northwolves在 10:16:18的发言：Sub macro1()Dim s() As String, arr() As String, i As Long, maxrow As Longmaxrow = 20Open "e:\myexcel\test.txt" For Input As #1s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)Close #1On Error Resume NextFor i = 0 To UBound(s) Step maxrowReDim arr(maxrow - 1)For j = 0 To maxrow - 1arr(j) = s(i + j)NextSheets(1 + i \ maxrow).[a1].Resize(maxrow) = WorksheetFunction.Transpose(arr)Sheets(1 + i \ maxrow).[a:a].TextToColumns Destination:=[a1], DataType:=xlDelimited, Other:=True, OtherChar:="|"NextMsgBox "ok"End Sub狼版的好像缺少东西啊，为什么不能自动建表呢？
在线时间12 小时经验29 威望0 性别男最后登录注册时间阅读权限20UID493222积分29帖子精华0分享0
EH初级, 积分 29, 距离下一级还需 321 积分
积分排行3000+帖子精华0微积分0
好!!!!!!!!!!!!!!!!
积分≥4700即可申请
最佳管理者
最佳管理者奖章No.1
金牌优秀管理者
金牌优秀管理者勋章No.1
金牌优秀管理者
金牌优秀管理者勋章No.2
优秀管理者
优秀管理者勋章No.1
优秀管理者
优秀管理者勋章No.2
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
优秀会员奖章No.2
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&已有天涯账号？
这里是所提的问题，您需要登录才能参与回答。
"天涯问答"是天涯社区旗下的问题分享平台。在这里您可以提问，回答感兴趣的问题，分享知识和经历，无论您在何时何地上线都可以访问，此平台完全免费，而且注册非常简单。
在excel文档如何插入分页线？
在excel文档如何插入分页线？
09-12-05 &匿名提问 发布
【如何在Excel中插入分页符呢？】在使用Excel的时候，有时我们需要让Excel按照我们的要求分页。这就需要在Excel中插入分页符。那么如何在Excel中插入分页符呢？下面我们来看一下在Excel中插入分页符的方法。在Excel2007中，我们可以按照下面的方法来插入分页符：打开Excel2007，然后切换到“页面布局”选项卡，然后展开“页面设置”——分隔符——插入分页符，就可以了。我们知道把光标定位在我们需要插入分页符的单元格，然后进行上述的操作就可以了。
请登录后再发表评论!
估计下载的Excel文档设置的保护：菜单栏——工具——保护——撤销保护工作表。再插入图片。如果被设置密码保护：重新复制粘贴整个表格，再插入图片。
请登录后再发表评论!如何利用分页预览排多页的EXCEL的文档_百度知道
如何利用分页预览排多页的EXCEL的文档
好烦啊,但是预览完成以后表格的下一部分就在下一页了要是有图片的话就是一半的,因为我用EXCEL表格要打很多页的东西我想找一个快速的排版方法,用分页预览呢把蓝线拉到指定的地方以后呢打印预览又显示不一样
其他类似问题
4人觉得有用
excel的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁当一个表格超过一页时，在第二页显示时第一行的上横线就不能显示出来。
请教如何显示？
猜你喜欢看
在线时间403 小时经验1533 威望0 性别男最后登录注册时间阅读权限90UID177382积分3783帖子精华0分享0
EH能手, 积分 3783, 距离下一级还需 917 积分
积分排行252帖子精华0微积分0
请提供附件，没遇到过你说的情况
在线时间37 小时经验82 威望0 性别保密最后登录注册时间阅读权限20UID727791积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
表格第二页的最上面的横线没能显示出来
打印出来也是没有
在线时间37 小时经验82 威望0 性别保密最后登录注册时间阅读权限20UID727791积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
不好意思，忘记贴附件了。
09:36 上传
下载次数: 43
7.15 KB, 下载次数: 43
在线时间311 小时经验3660 威望18 性别男最后登录注册时间阅读权限50UID10904积分5260帖子精华1分享0
积分排行175帖子精华1微积分0
给整个表格内外再加一次 边框 确定即可。
在线时间37 小时经验82 威望0 性别保密最后登录注册时间阅读权限20UID727791积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
我想问问 你怎么会这么想呢
在线时间2 小时经验2 威望0 性别保密最后登录注册时间阅读权限10UID810146积分2帖子精华0分享0
EH新人, 积分 2, 距离下一级还需 18 积分
积分排行3000+帖子精华0微积分0
c81 发表于
给整个表格内外再加一次 边框 确定即可。
这个可以解决问题，牛人啊
在线时间7 小时经验13 威望0 性别保密最后登录注册时间阅读权限10UID1126798积分13帖子精华0分享0
EH新人, 积分 13, 距离下一级还需 7 积分
积分排行3000+帖子精华0微积分0
嗯不错，支持一下
积分≥4700即可申请
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&