Question

用vba将txt导入excel

如何用vba实现将txt中文字粘贴入某个sheet中，并且将txt中文字按照空格分布在不同表格中？
比如，文本文档为1.txt，excel在同一路径下，1.txt中第一行内容为“编号 1 2 3” 第二行内容为“成绩 1 2 3”。导入后实现在excel中，a1到a4分别为“编号 1 2 3”. b1到b4分别为“成绩 1 2 3”。

Answer 1

直接打开，粘贴数据即可，代码如下：

Sub xx()
    Dim wb As Workbook
    Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\1.txt", Format:=6, delimiter:=" ")  '打开1.txt
    Sheet1.[a1:b4] = WorksheetFunction.Transpose(wb.Sheets(1).[a1:d2].Value)  '粘贴数据
    wb.Close False  '关闭1.txt
End Sub

追问

如果我的txt文档很大，我不知道表格的范围该怎么办呢？

追答

你一点VBA都不会吗？
这个可以用循环，当然，用数组肯定会提升飞一般的速度。

追问

只懂得一点点皮毛。transpose不是将数列导入单元格的函数吗？这个函数可以将文本按照空格分隔成字符串，然后分别存入单元格吗？

追答

Tanspose是行列转置函数，是将行列互换，你可以将我上面代码的wb.close false这一句删除掉，然后查看用Excel表打开的1.txt文件中的数据的样子。

追问

我试了下，真心厉害，小弟佩服。
还有两个问题没弄懂，一个是“Format:=6”是什么意思，
另一个问题是用文本导入，可以将多个分隔符当做一个，也就是说，如果两个数字中间有两个空格的话，导入后，两个数字在相邻单元格中。如果按照上面的命令的话，严格将一个空格当做分隔符，导入后两个数字间就会出现一个空单元格，这该如何处理呢？

追答

先直接将1.txt文本文件双击后打开，然后利用替换，将双空格替换成单空格，多替换几次，等双空格替换完了之后，然后再用上面的VBA代码。
如果不想再写多余的VBA代码，通过复制，粘贴时选择性粘贴-转置，就可以得到你要的数据。

Answer 2

不用vba 也可以，直接把文本复制到 excel 中，然后用分列功能就可以了

追问

恩，谢谢。只是用vba方便一些，我还编制了其他宏命令，一起调用可以更方便一些