passion884 发表于 2005-5-25 22:18:00

高手们教教我！！

代码如下：


Dim inblock As String<BR>Dim layer As String<BR>Dim direc As String<BR>Dim blockname As String<BR>Dim xsca As Integer<BR>Dim ysca As Integer<BR>Dim zsca As Integer<BR>Dim xlas As Integer<BR>Dim ylas As Integer<BR>Dim zlas As Integer


Dim excelapp As New Excel.Application<BR>excelapp.Workbooks.Open "d:\cad.xls", , ReadOnly<BR>With excelapp.ActiveWorkbook.Worksheets("Sheet1")<BR>layer = .Range("f2")<BR>direc = .Range("g2")<BR>blockname = .Range("a2")<BR>xsca = .Rang("h2")<BR>ysca = .Range("i2")<BR>zsca = .Range("j2")<BR>xlas = .Range("k2")<BR>ylas = .Range("l2")<BR>zlas = .Range("m2")


TextBox1.Text = blockname<BR>TextBox3.Text = layer<BR>TextBox4.Text = direc<BR>TextBox5.Text = xsca<BR>TextBox6.Text = ysca<BR>TextBox7.Text = zsca<BR>TextBox8.Text = xlas<BR>TextBox9.Text = ylas<BR>TextBox10.Text = zlas


End With<BR>


调试时说 “With excelapp.ActiveWorkbook.Worksheets("Sheet1")” 运行时错误9       下标越界


不解~~~~~教教！！

linyiwq 发表于 2005-5-26 16:41:00

xsca = .Rang("h2")应该是xsca = .Range("h2")吧?


而且这段代码我试了,最有可能的原因是


With excelapp.ActiveWorkbook.Worksheets("Sheet1")语句中你指定的"Sheet1"工作表在"cad.xls"工作薄中是不存在的,如果该工作表不存在,就会产生"运行时错误9"

passion884 发表于 2005-5-26 20:07:00

跪谢！！！！！
页: [1]
查看完整版本: 高手们教教我！！