Question

VB使用变量调用EXCEl某个位置的函数如何处理。

Set xlapp1 = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook1 = xlapp.Workbooks.Open("D:\程序开发\打印记录.xlsx")
Set xlsheet1 = xlbook1.Worksheets("sheet1") '设置活动工作表
xlapp1.Visible = False '设置EXCEL对象可见（或不可见）
s = 0: i = 1
While i = 0
s = s + 1
i = xlapp1.xlbook1.Sheets("sheet1").Cells(s, 1).Value
Wend'筛选出第一列不为0的那一行填充数据
xlsheet1.Cells(s, 1)= PN & s 报错1004
xlsheet1.Cells(s, 2) = WO & s
xlsheet1.Cells(s, 3) = Qty & s
xlsheet1.Cells(s, 4) = MS & s
xlsheet1.Cells(s, 5) = Now & s

Answer 1

前面的 i 已经赋了初始值 1,

而程序进入 While 循环的条件是 i = 0, 所以这个时候是不会进入循环体的。

s = 0: i = 1

' /* 当 i = 0 时进入循环. */
While i = 0
    s = s + 1
    ...
Wend

' 此处 s = 0, 
' 表示给 xlSheet1 这个工作表对象的第 0 行第 1 列这个单元格区域赋值,
' 而在任意一张工作表中，这样的单元格是不存在的，因此会报错.
xlsheet1.Cells(s, 1)= PN & s