Question

excel vba ，编程方面的问题，如何将txt文本文档的内容复制到Excel的工作表里，并且能够自动的copy过去

如果我是要把共享里的东西copy过来要怎么弄啊
\\server3\DailyDump这个是共享的路径，
点开始菜单，点运行，输入\\server3\DailyDump，
里面有个txt的记事本，txt里面的内容会每天自动的更新，我的目的就是：：：要把里面的东西，每天自动的copy到我的excel的工作表sheet1上，并且能一行一行的顺序的往下复制，这些代码是写在一个按钮上面的，要怎么写啊，
希望有高手帮忙啦
在线等 非常感谢

Answer 1

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改为你要导入的文件名就可以了

追问

你好，你能不能帮我再写一下啊，我想把共享的那个地址，改一下，改成桌面上有一个叫 daily-item-release.txt 的文本文档，
只把需要改的几句话改一下发过来就好啦excel的还是sheet1不变的，但是是从sheet1的第二行开始粘贴的，并且是有从A列copy到H列的，因为那个txt的东西是一行一行的，每行都有有7列东西，一行是从A2到H2的单元格的

只要能弄好，我会加分的哦

追答

Sub 导入txt文件()
Dim wb As Workbook
Application.ScreenUpdating = False
Set fs = CreateObject("Scripting.FileSystemObject")
Set f2 = fs.getfolder("C:\Documents and Settings\Administrator\桌面\")
If Dir(f2 & "\" & "daily-item-release.txt") "" Then
i = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Set wb = Workbooks.Open(f2 & "\" & "daily-item-release.txt")
wb.Activate
j = wb.ActiveSheet.Cells.Find("*", , , , 1, 2).Row
Rows("1:" & j & "").Copy ThisWorkbook.Sheets(1).Rows(i)
wb.Saved = True
ActiveWindow.Close
MsgBox "已按要求成功导入TXT文件!"
Else
MsgBox "需要导入的文件不存在，请确定是否已经上传！"
End If
Application.ScreenUpdating = True
End Sub

追问

Set f2 = fs.getfolder("C:\Documents and Settings\Administrator\桌面\")

这句话报错啊，不知道为什么啊

追答

Set f2 = fs.getfolder("C:\Documents and Settings\Administrator\桌面\")
改为
Set f2 = fs.getfolder("C:\Documents and Settings\Administrator\桌面")
你打开你桌面的一个文件夹，看看你的桌面的路径是什么？
可能你不是用Administrator这个用户登录的

追问

O(∩_∩)O谢谢你啊，我不是不给你分，我只是怕给了以后，就不能继续问了，我的这个还没有全部结束，上周五你给我的那个取txt的文档的内容的那个已经好了，但是我把它放在按钮里以后，调用它以后，就一直在出现问题的啊，我今天都改了一上午了呢，我想着把它全部结束了就给分的啊
还是非常感谢你的，非常感谢

Answer 2

用下面代码就可以了，第二行中的T后面改成你实际的路径就行。
Sub 导入文件文件()
t = "d:\abc\工作.txt" '文本文件的路径
j = [a65536].End(xlUp).Row + 1
Set f = CreateObject("Scripting.FileSystemObject") _
.OpenTextFile(t)
Do While Not f.AtEndOfStream
Cells(j, 1) = f.readline
j = j + 1
Loop
f.Close
Set f = Nothing
End Sub

Answer 3

这个不需要编程。点击菜单“数据”——〉“导入外部数据”——〉“导入数据”——〉选择你需要导入的文本文件（包括网络上的，前提是你有权限随时访问网络），并在随后的步骤设定好列及相应的列格式。
确定后。如果需要更新，右键点击数据区，选择刷新就可以。也可以右键点击选择“数据区域属性”，设置为打开即刷新

追问

那样是可以的，但是我要自动的去导入那个txt 的内容的啊，写程序直接一按按钮就可以了啊
这样比较方便的啊，如果有时间，帮我写一下程序吧

追答

第一次设置导入后，可以实现自动导入，都不用你按按钮了

Answer 4

Sub copy()
Workbooks.OpenText Filename:= _
"\\server3\DailyDump\新建 文本文档.txt", Origin:=936, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
TrailingMinusNumbers:=True
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\桌面\1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub
将新建文本文档改为txt的名称
C:\Documents and Settings\Administrator\桌面\1.xls是保存的路径及名称
按钮中输入下面的代码：
Application.Run "copy"

Answer 5

学习