excel vba按读取打开的excel文件数据并按条件写入未打开的excel文件

xuersweety · 发表于 2012-1-11 16:52

zhaogang1960 发表于 2012-1-11 00:11
excel2003最大行号是65536行，不会超出excel vba 的能力范围

可是我用for循环从4到52563，他就报错说超出了范围。我是2007

zhaogang1960 · 发表于 2012-1-11 17:09

xuersweety 发表于 2012-1-11 16:52
可是我用for循环从4到52563，他就报错说超出了范围。我是2007

2007行数就更多了，请上传附件分析一下

xuersweety · 发表于 2012-1-11 17:31

zhaogang1960 发表于 2012-1-11 17:09
2007行数就更多了，请上传附件分析一下

哦，不是那有错，是数据类型错了。
selectTable1 = "SELECT name FROM sysobjects where name like '%" & Name & " - Actif injecte (P-)'"
rs.Open selectTable1, cn
If rs.RecordCount = 0 Then
MsgBox ("il n'y pas le tableau" & Name & " - Actif injecte (P-) dans le BDD")
rs.Close
Set rs = Nothing
Exit Sub
'pour résoudre le bug de Delphi5, si vous utilisez le vision supérieur qu'il n'a pas besoin du code
End If

Table1 = rs.Fields(0)MsgBox Table1
rs.Close

一运行，红色的地方就报错“BoF 或Eof有一个是真，或当前记录已被删除的错误”，
我那个if语句就是按网上说的改的，可是还是不行，请问怎么办呀？

xuersweety · 发表于 2012-1-11 17:42

解决了，用cn.CursorLocation = adUseClient

xuersweety · 发表于 2012-3-8 16:32

高手，又有一个问题。那个write文档里有的列的数据类型是百分数型的。当从qq文档里读取此列数据时就会报错，说类型不匹配。请问这个怎么办呀？

xuersweety · 发表于 2012-3-8 17:17

貌似不是百分数的原因。不知道是什么原因。是制表过程中有问题可能。等待高手帮助~~

xuersweety · 发表于 2012-3-8 18:37

是由于中间有一行是空行。所以到这一行就报错。请问怎么办呀？

xuersweety · 发表于 2012-3-8 22:14

是有的行的数据类型不匹配，不知道为什么。我的数据都是通过公式得到的。所以不能改。把数据类型都改了，还是不行。考到了另一个工作表。复制粘贴的可以的行的数据。就可以读取写入了。请高手指导原因

接近敏锐的锐 · 发表于 2012-11-19 23:10

"select * from [Feuil1$A3:M4] where f1='F1 '"

为什么是f1
不是A么

还有"update [Feuil1$A3:M4] set f2=66 ,f3=66 ,f4=66 ,f5=66 ,f6=66 ,f7=66 ,f8=66 ,f9=66 ,f10=66 ,f11=66 ,f12=66 ,f13=66 where f1='F2 '"

怎么是f2、f3

mazeboy · 发表于 2014-11-4 19:37

拜读了这个帖子，觉得对我很有用，但是我对代码不懂，只能恳求老师帮我修改一下代码。附件为我的文件。

		自动登录	找回密码
密码			免费注册

[求助] excel vba按读取打开的excel文件数据并按条件写入未打开的excel文件