一个EXCEL文件中批量导入txt文件_百度知道
一个EXCEL文件中批量导入txt文件
蓝线圈起来的，就是我需要的信息，就把txt的信息全部导入excel都行，直接把我需要的信息导入excel，每一个txt文档的有效信息，在一行，分别在不同的单元格。下面的图就是我所需要的结果：要是那样比较麻烦现在有500多个txt文件，文件名是1开始，到550~~希望将txt文件中的内容，导入一个excel中。这个就是txt文档的内容，希望能有高手做给宏，但是内容要分单元格
我有更好的答案
打开excel文档，在这个新工作表的B列、C列。第二步第一步，将txt文档合并为一个大的txt文档、D列等列设置公式根据txt文件内容的特殊字符，自动从txt中截取所需内容。或者将txt文件合并粘贴到新工作表后，新建一个工作表.bat批处理文件，将文件夹中所有txt文档合并为一个名字叫0.txt的文档。第三步，然后打开0，将内容全部复制粘贴到这个新工作表的A列.txt.bat
在文件夹中双击运行all。
打开记事本，输入for %%i in (*.txt) do type %%i&&0.txt（可将该命令复制粘贴过去）
然后将文件保存到500多个txt文件所在的文件夹，文件的后缀名为.bat文件。比如保存为all
这个才是实际解决问题的达人啊~~~我单个拷贝拷贝得手都酸了。。。立马按你说的去办。。。但是提取内容俺不会哦，我先合并去，然后把文件发你qq邮箱，谢谢达人~~
采纳率：61%
数据-导入外部数据-导入数据-选择你要导入的txt就可以了啊不知道你要问什么啊。估计够呛啊。我的03excel最大列才256.你就是一个txt一列也不够用啊。。。。
\&quot, MyString(k)
Seek #i, 1 '设置文件的第一条记录
Do While Not EOF(i)
Input #i, FileName(t)
FileName(t) = sPath & &\ 打开输入文件。Option ExplicitPublic Const sPath As String = &quot:\text”目录下; For Input As #i '*.txt ,回车:\text& '请改为你的txt所在的路径Public FileName() As String
&#39，我们只处理假设你所有的文本文件都在“D，进入命令窗口，输入命令 dir D;D;list.txt&quot。
ReDim FileName(k);读取txt内容到本excel表格
For t = 0 To k
i = FreeFile
Open FileName(t) For Input As #i
Do While Not EOF(i)
Input #i, getLine &#39。
Do While Not EOF(i)
Input #i.txt /b /每次读取一行数据Dim i%, t%, k%
i = FreeFile
Open &c:&#92:\text&#92。步骤1; & FileName(t)
Close #i ' 关闭文件。
&#39。现在在c:盘下会有个list文件，包含要处理de文件的文件名。步骤2：运行下面代码;on & c：导出文件列表点xp系统的开始菜单，点“运行”命令，输入cmd再回车.txt文件;要处理的文件名Public MyString() As String
'从text中读取内容Sub ReadFile()Dim getLine '将数据读入变量
莫拷贝复制。。。要针对这个问题来实际解决。。。感谢你的回答，但是，无法操作。。宏的代码也不对~~谢谢
2条折叠回答
为您推荐：
其他类似问题
您可能关注的内容
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。批量删除同一个文件夹里面所有excel的某一列_百度知道
批量删除同一个文件夹里面所有excel的某一列
br />上图是我要删除excel的三列。上图为我要统一处理的文件，/(ㄒoㄒ)/~~，求教。我没有积分了！！
我有更好的答案
可以使用VBA操作。关闭其他所有excel，打开一个excel；复制如下代码到模块中；运行，选择文件夹。该代码删除的是A列，可选择其他列。更该代码即可。Sub&Del_Col()Application.DisplayAlerts&=&FalseDim&myFile&As&StringDim&myDoc&As&StringWith&Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect&=&False.Title&=&&选择文件夹&myFile&=&.SelectedItems(1)End&WithmyDoc&=&Dir(myFile&&&&\&&&&&*.xls*&)Do&While&Len(myDoc)&&&&0Workbooks.Open&(myFile&&&&\&&&&myDoc)Worksheets(1).Columns(&A:A&).Select&'删除A列Selection.Delete&Shift:=xlToLeftWorkbooks(2).CloseSave&=&TruemyDoc&=&DirLoopApplication.DisplayAlerts&=&TrueEnd&Sub
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何将一个文件夹中多个表格中的固定行列数值提取到一个新的EXCEL表格当中_百度知道
如何将一个文件夹中多个表格中的固定行列数值提取到一个新的EXCEL表格当中
统计文件用,现在一个文件夹里面很多表格,每个表格都需要提取出不同sheet中的某个单元格的数值,提取出来后要粘贴到一个新的表格中的固定的单元格中..
举例,从工作薄1中提取sheet1中的B7,sheet2中的C5,sheet3中的D6,然后分别粘贴到工作簿2中sheet1的A1,B1,C1
我有更好的答案
将这些文件copy到一个文件夹（只有这些Excel，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，也存到该文件夹。仅打开该新Excel，按Alt+F11，左边窗口右键点，插入模块，在右边窗口粘贴如下代码：Sub Find()Application.ScreenUpdating = FalseDim MyDir As StringMyDir = ThisWorkbook.Path & &\&ChDrive Left(MyDir, 1) 'find all the excel filesChDir MyDirMatch = Dir$(&&)DoIf Not LCase(Match) = LCase(ThisWorkbook.Name) ThenWorkbooks.Open Match, 0 'openActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheetWindows(Match).ActivateActiveWindow.CloseMatch = Dir$End IfLoop Until Len(Match) = 0Application.ScreenUpdating = TrueEnd Sub按F5执行此宏，文件copy完成。然后可以用sum(sheet12:sheet30!A1)汇总了。如果数据只有几列的话，可以直接用宏copy到一张工作表中。
采纳率：92%
来自团队：
&1&To&UBound(Filename)&&&&&&&&Set&)&=&&&&&)&=&&&&&nbsp,&MultiSChoose&&&ASub&&&&Application.ScreenUpdating&=&nbsp,sheet2中的C5,sheet3中的D6&&&&&&&&Cells(i,&&A&quot:=True)'可使用Ctrl或Shift选择多个文件&nbsp,*;xlbook.Sheets(&quot.GetOpenFilename(FileFilter:=&&&quot,&);=&&nbsp.[D6]&&&If&&Excel&;&Then&Cells(i.xls*&sheet3&&xlbook&=&Workbooks.Open(Filename(i))&,&Title:=&i&&&&Application.ScreenUpdating&=&&Files&;&sheet1&&B&)&&&&Not&IsArray(Filename)&&nbsp.Sheets(&sheet2&).[C5]&&&&&&&&Cells(i,&&C&Next&Exit&nbspSub&CommandButton1_Click()&&&&Filename&=&i&=&&'sheet1中的B7.[B7]&&&xlbook.Close&);xlbook.Sheets(&False&&&&For&nbsp
不行呀,我试了几次都不返回数值的
测试没问题。注意各文件的工作表是否为sheet1、sheet2、sheet3&
谢谢你用你这个没问题了!可能是我没有那个按钮的关系,那个按钮是怎么做出来的呀?如果更改提取数据的单元格位置的话直接在宏里面更改就行了是吧?
按钮就是EXCEL控件工具箱里的。代码比较简单，看看就应该会改了
本回答被提问者采纳
问题有点儿模糊。准确说，文件夹中的每个EXCEL文件都是一个工作簿，每个工作簿里的表格才能叫工作表。一般一个工作簿里都有1个以上的工作表。你的问题没有告知每个工作簿有几个表，每个工作簿格式是不是完全一样，是不是要提取相同位置的数据到新的表中------不算回答哈
要粘贴的单元格和sheet是否有规律，能否使用循环或者判断语句判断出来，还是要用人去肉眼看的？
非常有规律...完全是一样的位置...大意就是5000来张表,里面的数据,都在固定的单元格中,我要批量的将这些表格中的数据提出来
工作簿2中sheet1的A1,B1,C1分别输入=[工作簿1.xls]sheet1!B7=[工作簿1.xls]sheet2!C5=[工作簿1.xls]sheet3!D6
sheet1中的A1输入公式=B7sheet2中的B1输入公式=C5sheet3中的C1输入公式=D6依次类推 然后在统计表格中的A1输入下面的公式=INDIRECT(&Sheet&&COLUMN()&&!&&ADDRESS(ROW(),COLUMN(),4))公式横拉
对于这个没有规律的提取数据粘贴到一个工作簿的工作表的固定位置，要是我来操作，只能从一个工作簿的工作表中复制后粘贴到另一个工作簿的工作表中。
其他6条回答
为您推荐：
其他类似问题
excel表格的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何批量重命名同一个文件夹里面的EXCEL工作簿【excel吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：160,599贴子：
如何批量重命名同一个文件夹里面的EXCEL工作簿收藏
如何批量重命名同一个文件夹里面的EXCEL工作簿？注意，是工作簿，不是工作表，每个都是一个独立的EXCEL文件。。。。命名格式都是"2011年4月XXX"现在要变成"2011年5月XXX"，数量比较大，一个个改比较麻烦，求高手指教
FoxTable 2017上市, 轻松输入, 轻松统计, 轻松生成Excel报表, 快速搭建管理软件.
Sub CopyAndNewName()&&&& Dim S As String, OP As String, NP As String, NN As String&&&& OP = "D:\T\" '将D:\T\更改为要重命名的文件所在的路径&&&& NP = "E:\E\" '重命名的文件放在此路径下&&&& S = Dir("D:\T\*.xls") '将D:\T\更改为要重命名的文件所在的路径&&&& MkDir NP&&&& Do&&&&&&&& NN = Application.Substitute(S, "4月", "5月")&&&&&&&& FileCopy OP & S, NP & NN&&&&&&&& S = Dir&&&& Loop Until S = ""End Sub试一下上面的宏
Win+RCMD输入所在盘例如"d:"回车输入所在路径例如"cd 表格文件夹"回车输入dir /b & 1.xls 回车之后打开生成的1.xls 去掉里面的1.xls那行在B列添加修改后的文件名(带扩展名)C列输入公式=CONCATENATE("ren ",A1, " ", B1) 复制C列 放到TXT文档把文档放到1.xls同一目录修改文档扩展名为.BAT运行新建文本文档.BAT
登录百度帐号推荐应用