（急）如何将1个EXCEL的很多个SHEET批量导入到ACCESS？

ariel

文件上传

方漠

http://www.office-cn.net/forum.php?mod=viewthread&tid=49020&replyID=&skin=1

试试这个工具，新建一工作簿，然后选合并到工作表。

Joe5525601

以下是引用ariel在2007-1-4 8:42:00的发言：


文件上传

运行后检查一下excel进程是否停止，来不及写代码了。

[此贴子已经被作者于2007-1-4 11:04:15编辑过]

ariel

不可以了啦，一个sheet就有1万6千多条，4个合一个，87个sheet要用21、22个，跟没合没什么区别。

我现在就是在想办法把他们都写入到一个文本文件里。

[此贴子已经被作者于2007-1-4 11:15:44编辑过]

Joe5525601

以下是引用ariel在2007-1-4 11:14:00的发言：


不可以了啦，一个sheet就有1万6千多条，4个合一个，87个sheet要用21、22个，跟没合没什么区别。

我现在就是在想办法把他们都写入到一个文本文件里。

什么意思？不是把多个sheet导入到一个表里吗？

ariel

是导入到一个表，但是EXCEL表只可以放65536行，不好处理，才想到用ACCESS的。

我编了个合并txt文件的程序，先导入到txt，再到access，也算曲线救国吧。呵呵：）

Sub aa()

Open "指标.txt" For Append As #1
For i = 1 To 78
j = 1
While Worksheets(i).Cells(j, 1) <> ""

    Print #1, Worksheets(i).Cells(j, 1); "|"; Worksheets(i).Cells(j, 2); "|"; Worksheets(i).Cells(j, 3); "|"; Worksheets(i).Cells(j, 4); "|"; Worksheets(i).Cells(j, 5); "|"; Worksheets(i).Cells(j, 6); "|"; Worksheets(i).Cells(j, 7); "|"; Worksheets(i).Cells(j, 8); "|"; Worksheets(i).Cells(j, 9); "|"; Worksheets(i).Cells(j, 10)
j = j + 1
Wend
Next i
Close #1
End Sub

[此贴子已经被作者于2007-1-4 16:13:44编辑过]