access只能导出6万+的数据到excel

wgx711

有2个问题
1、当access从excel读取数据时（链接表），如果excel某列又有数值又有文本，access会根据哪类格式的数量多少来决定导入成什么格式，当数值格式的量较多时，那些文本是导不进去的，我知道可以先在excel里面用vba将该列强制转换成文本格式，然后再导，当做完数据处理导出到excel后，再用vba将格式转换成数值，这样挺麻烦，有没有其他方法

2、用access导出数据到excel时，如果数据多于6万多，就提示不能导出成功。说建议分成几个文件，这是为什么，有没有解决办法。

zez

请问，楼主用的ACCESS和EXCEL是哪个版本的？

cbtaja

问题1：
在EXCEL中，如果要把文本型数字转换成数值，操作很简单，通常并不需要用VBA就可以做到。
方法有两种：①、用“分列”的方法，默认就是转换为数值；②复制空白单元格、并定位常量数字型单元格、再选择性粘贴（选择相加的运算）

问题2：
EXCEL2003只有66536（即256*256）行，超过了就会有提示。解决的办法是使用EXCEL2007或更新版本，可以支持100万行以上（1024*1024行）

wgx711

cbtaja 发表于 2014-4-3 07:50
问题1：
在EXCEL中，如果要把文本型数字转换成数值，操作很简单，通常并不需要用VBA就可以做到。
方法有两 ...

问题1：
实际工作中的要求是从好几个表（a/b/c/d）中匹配字段进总表（表1），我的做法是通过vba整理a/b/c/d的数据进入一张表e，vba继续整理e表字段，将日期字段强制转换成文本，继续整理表1字段，将日期字段强制转换成文本。（因为日期字段有部分数据不是日期，所以做这个操作）
然后将表e和表1导入access，通过查询匹配，再导出成excel，再通过vba将文本强制转换成日期，工作完成
不知道，有没有更好的方法。

wgx711

zez 发表于 2014-4-3 07:42
请问，楼主用的ACCESS和EXCEL是哪个版本的？

我用的都是07的版本啊。应该有100万+的容量啊

cbtaja

wgx711 发表于 2014-4-3 10:34
我用的都是07的版本啊。应该有100万+的容量啊

总行数有多少？内存足够吗？
实在不行，那就分成几批次导出吧——当然，可以用VBA来连接EXCEL和ACCESS，自动分批导出，然后合并。

zhaogang1960

VBA+ADO查询请参考：

1. Sub Access20072010查询()
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim rst As New ADODB.Recordset
   
5.     Dim myPath As String
   
6.     Dim SQL As String
   
7.     Dim i As Integer
   
8.     myPath = ThisWorkbook.Path & "\数据库.accdb"
   
9.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myPath
   
10.     SQL = "SELECT * FROM 数据表"
    
11.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
12.     Cells.ClearContents
    
13.     For i = 0 To rst.Fields.Count - 1
    
14.         Cells(1, i + 1) = rst.Fields(i).Name
    
15.     Next
    
16.     Range("A2").CopyFromRecordset rst
    
17.     rst.Close
    
18.     cnn.Close
    
19.     Set rst = Nothing
    
20.     Set cnn = Nothing
    
21. End Sub
    

复制代码