我的赋值语句是这样的
For i = 0 To 5
With txtFields(i)
If IsNull(.Text) = False Then
xlsheet.Cells(3, i) = .Text
End If
End With
Next
可是运行到这里的时候总错误提示:实时错误‘1004’:应用程序定义或对象定义错误第二个问题:
怎么样让执行调出excel打印的时候中止本程序的其他操作呢?因为当打印的时候执行其他操作就会弹出什么挂起提示!3q
For i = 0 To 5
With txtFields(i)
If IsNull(.Text) = False Then
xlsheet.Cells(3, i) = .Text
End If
End With
Next
可是运行到这里的时候总错误提示:实时错误‘1004’:应用程序定义或对象定义错误第二个问题:
怎么样让执行调出excel打印的时候中止本程序的其他操作呢?因为当打印的时候执行其他操作就会弹出什么挂起提示!3q
xlsheet定义有问题吧,有new吗?
原来给excel赋值的时候,excel的单元格最小是cell(1,1),没有cell(0,0)