作者geniusgod (华丽的贪婪 人最美丽本性)
看板Visual_Basic
标题[VB6 ] 关於excel reference的问题
时间Mon Apr 30 19:25:13 2007
请问为什麽我把excel里面的资料放到commmand里面的判别式里
会无法执行或是当掉呢?
我本来以为是excel资料没读入
但是我把它输出到textbox里却可以输出我指定的值啊?
不知是哪边出了问题呢?
还有假设我要抓的exce值设为
Database.Sheets(1).Cells(1,q)
当我要在随q值改变抓excel里的值
我把它放在ㄧ个副程式里 如 (R1、R2有宣告为Public变数了)
Private Sub pig()
R1=Database.Sheets(1).Cells(1,q)
R2=Database.Sheets(1).Cells(2,q)
End Sub
当我在不同的Select Case里招唤它时 用
Private Sub Command1_Click()
.
.
.
Select Case A
Case 0, 1
If q=3
Call pig
If a>=R1 and a<=R2
.
.
.
End If
End If
Case 2, 3
If q=7
Call pig
If a>=R1 and a<=R2
.
.
.
End If
End If
End Select
.
.
.
End Sub
以此类推 我只写出有需要用到excel值的部份
去掉有关excel值的部分没有问题 可能有少写就不用太计较了XD~
总之 我实在看不出哪里有问题
麻烦各位帮我看看有没有什麽逻辑或语法错误好吗?
而且很奇怪的我放在副程式pig的程式
R1=Database.Sheets(1).Cells(1,q)
R2=Database.Sheets(1).Cells(2,q)
放到command里面执行就会当掉
不知道是什麽缘故?
就是excel这部份有很大问题!
麻烦各位不吝赐教!
我被烦好几天都无法解决才来询问的
非常谢谢<(_ _)>
--
◆══════════════════════════════════天══◆
║你曾经看过流星雨吗？ ／▃▃ kyc ／ 险 ║
║那是非常美丽的景象，虚幻的光芒，如人一生。 。 ▂ ／ 。 刀 ║
║神醉梦迷，我很喜欢这个名字... 。~＼▂▂ 。 ／ 藏 ║
║下一刻，我将连自己也遗忘；但这一刻，是属於我的！／◢藏﹥01010。 ／ φby ║
◆═══════════════════════。 ／ ||＼════。═kyc01010
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.126.130.146