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

ariel

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编辑过]

Joe5525601

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


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

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

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

ariel

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

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

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

Joe5525601

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


文件上传

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

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

方漠

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

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

ariel

文件上传

Joe5525601

把你的文件上传吧。过二个小时就有结果了。因为现在是晚饭时间。

ariel

谢谢大家2006年的最后一天还能抽出时间帮助我！

但是运行那个代码系统会提示如下：

运行时错误'3125':

'sheet1$'不是一个有效的名称。请确认它不包含无效的字符或标点，且名称不太长。

请问是什么原因呢？

还有论坛上的示例文件到哪里去找呢？

beenet

论坛上有示例：“导入excel全部表用API实现打开文件窗体”

如找不到找我吧！我不知道如何加附件

xushuiqing＠kerryeas.com