导入合并多表

hgj_xd

在EXCEL的一个工作簿中有30张工作表,且每一张工作都有800条记录,在这里能不能把这张工作簿中的所有的表都导入到ACCESS中的一张表中呢?

[此贴子已经被作者于2007-7-16 13:47:28编辑过]

LangQueS

可以先在Excel中合并数据，以下是本论坛下载的宏：

Sub 合并各工作表内容()
sp = InputBox("各表内容之间，间隔几行？不输则默认为0")
If sp = "" Then
  sp = 0
End If

st = InputBox("各表从第几行开始合并？不输则默认为2")
If st = "" Then
   st = 2
End If

Sheets(1).Select
Sheets.Add
 
  If st > 1 Then
    Sheets(2).Select
    Rows("1:" & CStr(st - 1)).Select
    Selection.Copy
    Sheets(1).Select
    Range("A1").Select
    ActiveSheet.Paste
  y = st - 1
  End If
 
For i = 2 To Sheets.Count

  Sheets(i).Select
     For v = 1 To 256
        zd = Cells(65535, v).End(xlUp).Row
        If zd > x Then
           x = zd
        End If
     Next v

  If y + x - st + 1 + sp > 65536 Then
  MsgBox "内容太多，仅合并前" & i - 2 & "个表的内容，请把其它表复制到新工作薄里再用此程序合并！"
  Else:
 
  Rows(st & ":" & x).Select
  Selection.Copy
  Sheets(1).Select
  Range("A" & CStr(y + 1)).Select
  ActiveSheet.Paste
 
  Sheets(i).Select
  Range("A1").Select                        '取消单元格被全选状态。
  Application.CutCopyMode = False           '忘掉复制的内容。
  End If
 
  y = y + x - st + 1 + sp
  x = 0
Next i

Sheets(1).Select
Range("A1").Select                          '光标移至A1。
MsgBox "这就是合并后的表，请命名！"

End Sub

hgj_xd

谢谢版主:但是我这里有半年6张这样的表,如果我把这么多的表全部都弄到一个工作表的话,是做不到的!因为800*30*6已远远的大于了一张工作表的最大记录数!

LangQueS

用2007吧，100多万行。

hgj_xd

呵呵~~~一直以来都以为EXCEL2003已经能完成所有的工作了,没有想到EXCEL2007却更厉害!这次也帮了大忙了!

blacksteedmq

太好了!