如果我是要把共享里的东西copy过来要怎么弄啊
\\server3\DailyDump这个是共享的路径,
点开始菜单,点运行,输入\\server3\DailyDump,
里面有个txt的记事本,txt里面的内容会每天自动的更新,我的目的就是:::要把里面的东西,每天自动的copy到我的excel的工作表sheet1上,并且能一行一行的顺序的往下复制,这些代码是写在一个按钮上面的,要怎么写啊,
希望有高手帮忙啦
在线等 非常感谢
你好,你能不能帮我再写一下啊,我想把共享的那个地址,改一下,改成桌面上有一个叫 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的文档的内容的那个已经好了,但是我把它放在按钮里以后,调用它以后,就一直在出现问题的啊,我今天都改了一上午了呢,我想着把它全部结束了就给分的啊
还是非常感谢你的,非常感谢
那样是可以的,但是我要自动的去导入那个txt 的内容的啊,写程序直接一按按钮就可以了啊
这样比较方便的啊,如果有时间,帮我写一下程序吧
第一次设置导入后,可以实现自动导入,都不用你按按钮了