Excel批量导入指定文件夹中的数据

魔尊双鱼

在工作中经常遇到要批量导入数据的情况，以及对文件夹的操作。本文主要解决了两个方面的问题，一是如何操作文件夹，获取其路径，并传递给设定的变量，以便于后续的操作；二是如何自动导入数据到一张worksheet中，希望能够有所帮助。 文件夹操作-批量导入数据-Arthur.rar (347.94 KB, 下载次数: 1507)

2013-10-17 15:15 上传

点击文件名下载附件
VBA工程密码：arthur

旭日云海

求公开宏代码

yytax2010

有好东西大家分享，一般不要设密码，有缺陷可以共同探讨。

1. Sub 获取数据()
   
2. Dim myf, spath, fs, f, fc, myname, myrow, mycolumn
   
3. 
   
4. spath = ""
   
5. Application.FileDialog(msoFileDialogFolderPicker).InitialFileName = spath
   
6. With Application.FileDialog(msoFileDialogFolderPicker)
   
7.     .ButtonName = "Yes"
   
8.     If .Show = True Then
   
9.         spath = .SelectedItems(1)
   
10.     Else: Exit Sub
    
11.     End If
    
12. End With
    
13. 
    
14. Set fs = CreateObject("Scripting.FileSystemObject")
    
15. Set f = fs.GetFolder(spath)
    
16. Set fc = f.Files
    
17. 
    
18. For Each myf In fc
    
19.    
    
20.     Workbooks.Open (myf)
    
21.         With myf
    
22.             myname = myf.Name
    
23.             Application.Workbooks(myname).Worksheets("产品销售明细表").Activate
    
24.             With Sheets("产品销售明细表")
    
25.                 myrow = Range("A65536").End(xlUp).Row
    
26.                 mycolumn = Range("XFD1").End(xlToLeft).Column
    
27.                 Range(Cells(1, 6), Cells(myrow, mycolumn)).Select
    
28.                 Selection.Copy
    
29.             End With
    
30.             Application.Windows("利润分析.xlsm").Activate
    
31.             With Workbooks("利润分析.xlsm")
    
32.                 .Worksheets("销售明细表").Range("A" & Range("A65536").End(xlUp).Row).Select
    
33.                 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
34.             End With
    
35.         End With
    
36.     Application.Windows(myname).Activate
    
37.     Application.CutCopyMode = False
    
38.     ActiveWindow.Close False
    
39. 
    
40. Next
    
41. 
    
42. End Sub
    
43. 
    

复制代码

thq618

正需要，好{:soso_e100:}

gzzcl

求代码…………………………………………………………

103984308

看看用的着吗？我看不懂代码