求教：如何一次导入多张Excel 表？

Henry D. Sy

原帖由 themagic007 于 2008-11-11 21:07 发表
大佬，我错了，盗用你的代码，还骂你小样~小弟有眼不识泰山，得罪之处 敬请原谅[:24]

这还差不多，别忘了带我向你女朋友问候问候哦。

1. Private Sub Command0_Click()
   
2.     Dim DiaFs As FileDialog
   
3.     Dim fs As New FileSystemObject
   
4.     Dim fd As Folder
   
5.     Dim f As File
   
6.     Dim i As Integer
   
7.     On Error GoTo Command0_Click_Error
   
8. 
   
9.     Set DiaFs = Application.FileDialog(msoFileDialogFolderPicker)
   
10.     DiaFs.AllowMultiSelect = False
    
11.     DiaFs.Show
    
12.     Me.Text1 = DiaFs.SelectedItems(1)
    
13.     If DiaFs.SelectedItems.Count > 0 Then
    
14.         Me.Text1 = DiaFs.SelectedItems(1)
    
15.     Else
    
16.         MsgBox "请选择要导入excel所在的文件夹"
    
17.         Me.Command0.SetFocus
    
18.         Exit Sub
    
19.     End If
    
20. 
    
21.     Set fd = fs.GetFolder(Me.Text1)
    
22.     For Each f In fd.Files
    
23. 
    
24.         If Right(f.Name, 3) = "xls" Then
    
25.             i = i + 1
    
26.             DoCmd.TransferSpreadsheet acImport, , "XL" & i & "_" & Format(Date, "mmm"), _
    
27.                                       Left(f.Name, Len(f.Name) - 4)
    
28.         End If
    
29.     Next
    
30. 
    
31.     On Error GoTo 0
    
32.     Exit Sub
    
33. 
    
34. Command0_Click_Error:
    
35. 
    
36.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
37. End Sub

复制代码

themagic007

大哥，小弟又碰上新问题：由于数据表太多，做的查询跑不起来~~

你看这个咋办阿？ 能不能直接用VBA 而不用查询？...我想做的样子参见附件2

themagic007

附件3 是我要做的最终生成的报告格式~

Henry D. Sy

原帖由 themagic007 于 2008-11-13 11:40 发表
附件3 是我要做的最终生成的报告格式~

兄弟，你竟然将24个没有关系的表放在一下查询

themagic007

。。。太多了，这么做查询肯定行不通~   还请大哥帮忙。[:50]

Henry D. Sy

多表查询，表之间要有关系，否则会出现卡迪尔积

themagic007

如果 CP表我设了 主键字段 "code" ， 还需要做关系吗？

干脆帮我做一个得了~

Henry D. Sy

因为你的库，是英文的，好多都不知道什么意思。

themagic007

哈哈，你写的语句难道不是英文的嘛~

晚上我再联系你把，家里有中文的。

themagic007

我明白怎么做拉~[:50]     

大哥，最后一个问题，就是在用你的工具 导入Excel的时候，能不能自动将表名添加为第一列的默认值？
比如导入 XL_Oct , 就把XL_Oct 作为第一列的值？