有哪位大神帮我解决vb问题,代码在IDE环境下能正常调试运行,但运行它生成的.exe文件就会报Run-time error '70':Permission denied,有大神帮我看下吗?很急,好像是这段代码的原因:GetExelDate = Trim(gobjWorkSheet.Cell(Row,HeaderSeq))这句不能执行
3条回答 默认 最新
- lz行走天下 2016-08-11 11:21关注
哪位大神看到帮我下好不,拜托了,代码是这样 lRow = 0
Call gWrite("123")
For i = 1 To gcstMaxRows
Call gWrite("234")
If GetExelData(CLng(i), 1) = "[EQPCAPABILITY]" Then//这行不能执行
Call gWrite("345")
lRow = i + 2
Exit For
End If
Next i
函数里面是:
Public Function GetExelData(Row As Long, HeaderSeq As Integer) As Variant
Call gWrite("GetExcelData Start")
GetExelData = Trim(gobjWorkSheet.Cells(4, HeaderSeq))//这行不能执行
Call gWrite("567")
End Function解决 无用评论 打赏 举报