excel批量导入文件

有几百个后缀一样的文件,这些文件可以用txt打开,现在想将其批量导入到excel中,并且一个文件只用一个单元格(文件中有换行)。希望各位大侠指点!... 有几百个后缀一样的文件,这些文件可以用txt打开,现在想将其批量导入到excel中,并且一个文件只用一个单元格(文件中有换行)。希望各位大侠指点! 展开
 我来答
厦门侯
高粉答主

2016-01-28 · 信息管理员
厦门侯
采纳数:30618 获赞数:90296

向TA提问 私信TA
展开全部
  解决的方法如下:
  1、打开excel新建一个工作表,单击选择excel菜单栏中的“数据”选项卡,选择“自文本”,在弹出的对话框中找到需要导入的文本文件,点击“确定”。
  2、在弹出的“文本导入向导”对话框中,选择“分隔符号”,然后点击“下一步”。
  3、可以选择不同的分隔符号,并能实时预览分隔效果。因为文本文件是用空格来分列的,所以选择“空格”作为分隔符号。然后点击“下一步”。
  4、对导入的文本文件进行列数据格式设置,还可以不导入某些数据。选择好了之后,单击“完成”按钮,弹出“导入数据”对话框,选择数据的放置位置,在这里选择“现有工作表”,然后单击“确定”,想要的数据已经导入到工作表中了。
霍格莫得
2012-06-11 · TA获得超过303个赞
知道小有建树答主
回答量:103
采纳率:0%
帮助的人:43.2万
展开全部
以下代码被证明可行。

复制以下VBA代码到你的Excel宏命令编辑框中,让后运行它。其中会遇到两个对话框。第一个对话框是用于设定最终结果的文件名的,输入你想要的文件名并保存这个Excel文件。第二个对话框的目的是用来选定要处理的abc文件的,浏览到一个abc文件,并且打开。这里的abc代指你要处理的文件的后缀名。请把所有的abc文件都放到同一个文件夹下。

Sub ShowFileList()
Set Newbook = Workbooks.Add
Application.Dialogs(xlDialogSaveWorkbook).Show
With Newbook
A = Newbook.Name
End With
B = Application.GetOpenFilename("Text Files (*.abc), *.abc") '将这里的abc文件改为你要处理的后缀名。
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(B)
C = f.ParentFolder
Set f = fs.GetFolder(C)
Set fc = f.Files
For Each f1 In fc
D = fs.GetExtensionName(f1)
E = fs.GetfileName(f1)
If D = "abc" Then '改成你指定的后缀名
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(f1, ForReading, TristateFalse)
G = f.ReadAll
f.Close
Windows(A).Activate
If Range("A1") = "" Then
Range("A1").Select
Else
Range("A65536").End(xlUp).Offset(1, 0).Select '本行代码目的是从A1单元格依次向下填写,
'如果依次向右代码改写为Range("IV1").End(xltoLeft).Offset(0, 1).Select
End If
ActiveCell = G
End If
Next
Newbook.Save
End Sub
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2012-06-05
展开全部
导入时,文件里面的非打印字符会有一点点问题;另外,文件长度也有问题,超过某个长度(具体版本有差异)就会出错。如果确定不含非打印字符或其他隐含字符,也确定文件字节长度不大(几百个或千把个估计还行),就可以用VBA试。先逐个打开文件,再将全部字节赋值给某个变量或逐个字节写入单元格。
更多追问追答
追问
每个文件均有字母组成,不超过1500个,确定不含其它字符。能不能给出VBA的具体语句?谢谢!!
追答
你不会VBA啊?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
独行天下_狼
2015-11-28 · TA获得超过939个赞
知道小有建树答主
回答量:577
采纳率:0%
帮助的人:190万
展开全部
知道的漏洞,要先回答才能看到问题的详细内容
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式