Question

vb中如何将text数组的内容添加到指定路径excel表的指定行？

比如将 text3（0—10）.text 添加到（D:\资料.xls ）的第35行3到13列，运行是 Set exb = ex.Workbooks.Open(D:\资料.xls ")会出现下标越界的错误，是什么情况？

Dim ex As New Excel.Application
Dim exb As Excel.Workbook
Dim exs As Excel.Worksheet
Set exb = ex.Workbooks.Open("D:\资料.xls ")
ex.Visible = True
Set exb = ex.Workbooks.Add
Set exs = exb.Worksheets(1)
exs.Select

Dim I As Integer
For I = 1 To 11
exs.Cells(35, I + 2) = Text3(I - 1).Text
Next I

exb.Close
ex.Quit
Set exs = Nothing
Set exb = Nothing
Set ex = Nothing

Answer 1

下标越界说明找不到这个文件，你检查下路径和文件名包括后缀名是否正确。

你这代码，前面是打开一个工作簿，后面又新建一个。这样前一个打开的根本没用。把
Set exb = ex.Workbooks.Add 去掉、
后面关闭时候这样
exb.Close true ’关闭并保存

追问

Set exs = exb.Worksheets(1)

变成它下标越界了

追答

这个不应该越界啊，是你exb 这个变量没有设置为工作簿。重新运行下程序看看。
或者直接企鹅看看，这里不方便。 九八七一二二八一七

Answer 2

将为条语句删除，就没有新建的空白excel
Set exb = ex.Workbooks.Add

追问

嗯，它去掉是没有新建空白excel了，不过还是会出现Set exs = exb.Worksheets(1)实时错误9：下标越界。

追答

Set exs = exb.Worksheets(“工作表名”)

Answer 3

D:\资料.xls ")前少了个"号

追问

这个。。。输入错误不好意思，不是这个问题，而且，运行之后出现错误但发现有一个新建的空白excel，怎么回事？

追答

Set exb = ex.Workbooks.Add就是新建一个工作簿
你是不是要：
Set exs = exb.Worksheets.add

追问

改成Set exs = exb.Worksheets.add就变成类型不匹配了

追答

孜了以后，后面的
Set exs = exb.Worksheets(1)

要删除

追问

不好意思，不是要新建，而是在已有的数据后边加一行数据