怎么把TXT文本的文字复制到EXCEL表格里-excel文档复制到excel,文本文档怎么复制到excel

Sub 导入txt文件()
Dim TextObj
Application.ScreenUpdating = False
Set fs = CreateObject("Scripting.FileSystemObject")
Set f2 = fs.getfolder("\\server3\DailyDump")
If Dir(f2 & "\" & "123.txt") <> "" Then
Set TextObj = fs.OpenTextFile(f2 & "\" & "123.txt")
Do While Not TextObj.AtEndOfLine
txtLine = Trim(TextObj.ReadLine)
i = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(i, 1) = txtLine
Loop
Set fs = Nothing
MsgBox "已按要求成功导入TXT文件!"
Else
MsgBox "需要导入的文件不存在，请确定是否已经上传！"
End If
Application.ScreenUpdating = True
End Sub

这里把123.txt改为你要导入的文件名就可以了636f7079e79fa5e98193330

在Excel中通过链接外部数据自文本文档，实现批量一次性插入。

你的数据之间肯有将数据分开的符号，你要记住zd此符号。如果这个分隔符号不一样，你要更改为一样，方便转换。
选择数据，进入表格菜单——转换——文本转换为表格，要对话内框中选择你的分隔号，如没有你选择的，选其它符号，在后面的格中输入。列的数容量你根据你需要来填写

1、从桌面选择PDF，用系统自带的PDF阅读器软件打开。百

2、新建Excel文件并打开。

3、选择单元格度，单击右键，选择粘贴。

4、粘贴后，单击单元格下方的“Ctrl”，选择“使用文本内导入向导”。

5、这时候就可以看到复制过来的数据已经完成了分列。就可以实现TXT文档 到EXCEL表格上容的复制了。