VB运行出现了424错误要求给对象的留言，小白，不知道问题出在哪了，求大神帮助

来源：蜘蛛抓取(WebSpider) 时间：2018-07-31 03:32 标签： 发展对象思想汇报
求VB大神帮忙，显示实时错误424要求对象，错在哪里了啊？_百度知道
求VB大神帮忙，显示实时错误424要求对象，错在哪里了啊？
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
网海1书生知道合伙人
来自电脑网络类芝麻团
采纳数：10457
获赞数：15950
参与团队：
你应该在窗体上放入一个“Microsoft Common Dialog Control 6.0”控件，即“公共对话框”控件，名字为CommonDialog1
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。15:39 提问
在win7中运行VB程序产生实时错误76，求大神指导
在VB程序运行时，存储数据提示“实时错误76”，并指向Open Left(App.Path, Len(App.Path) - 0) + "\data\" + Format(Now, "yy/mm/dd/hh/mm/ss") + ".txt" For Binary As #1这句话，请问怎么解决？运行环境是win7，求大神指导啊！！！急急急 ！！！
按赞数排序
ANSI String文件名不能被正确识别的问题。
其实2000以后，系统就开始全面支持Unicode了，而VB6比较老，为兼容95，一直是强制将本身的Unicode转成ANSI，这对于win2000以上的系统，实际上是极低效的做法，VB把Unicode转成ANSI，系统需把这ANSI再次转成Unicode才能使用，碰到上面情况还会出错。 用API操作
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileW" (ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
文件名参数，传递时，要用Byval Strptr(Filename)的方式。
楼主，你的“Open Left(App.Path, Len(App.Path) - 0) + "\data\" + Format(Now, "yy/mm/dd/hh/mm/ss") + ".txt" For Binary As #1”错误问题解决了吗？求解啊！！！
准确详细的回答，更有利于被提问者采纳，从而获得C币。复制、灌水、广告等回答会被删除，是时候展现真正的技术了！
其他相关推荐VB 求最大公约数 错误424 新手求大神改下_百度知道
VB 求最大公约数 错误424 新手求大神改下
PrivateSubcmdCommand1_Click()DimaAsIntegerDimbAsIntegera=Val(Text1.Text)b=Val(Text2.Text)Ifa&bThenc=aa=bb=cEndIfDoc=aModba=bb=cLoopUntilc=0MsgBox(&最大公约数=&&a)EndSub...
Private Sub cmdCommand1_Click()Dim a As IntegerDim b As Integera = Val(Text1.Text)b = Val(Text2.Text)If a & b Thenc = aa = bb = cEnd IfDoc = a Mod ba = bb = cLoop Until c = 0MsgBox (&最大公约数=& & a)End Sub
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
听不清啊知道合伙人
采纳数：23122
获赞数：41429
擅长：暂未定制
Private Sub Command1_Click()Dim a As IntegerDim b As Integera = Val(Text1.Text)b = Val(Text2.Text)c = a Mod bDoa = bb = cc = a Mod bLoop Until c = 0MsgBox (&最大公约数=& & b)End Sub
没弹出那个MSGBOX
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vba 运行错误代码 424 要求对象_百度知道
vba 运行错误代码 424 要求对象
Subtt()Application.ScreenUpdating=FalseWorkbooks.Open&C:\新建文件夹\131.xls&ActiveWorkbook.Worksheets(1).Cells(10,11).Value=ActiveWorkbook.Worksheets(1).Cells(3,6).Value....
Sub tt()Application.ScreenUpdating = FalseWorkbooks.Open &C:\新建文件夹\131.xls&ActiveWorkbook.Worksheets(1).Cells(10, 11).Value = ActiveWorkbook.Worksheets(1).Cells(3, 6).Value.Find(&足球&)End Sub
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
寥若_晨星2013知道合伙人
寥若_晨星2013
采纳数：1297
获赞数：2270
ActiveWorkbook.Worksheets(1).Cells(3, 6).Value.Find(&足球&) 不知道你这个是什么意思。。.value是cells对象的属性，属性后面不能跟find方法，只有对象才能跟方法，你是想在cells(3,6)里面找足球的位置么？？？改成如下：with ActiveWorkbook.Worksheets(1)
.cells(10,11)=instr(.cells(3,6),&足球&）end with
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。用VB对EXCEL操作时出现“运行时错误：‘424’要求对象”_百度知道
用VB对EXCEL操作时出现“运行时错误：‘424’要求对象”
代码如下：DimaAsSinglePrivateSubform_load()a=0DimxlAsExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsheetAsExcel.WorksheetEndSubPrivateSubCommand1_Click()Ifa&&0ThenGoTono...
代码如下：Dim a As SinglePrivate Sub form_load()a = 0Dim xl As Excel.ApplicationDim xlbook As Excel.WorkbookDim xlsheet As Excel.WorksheetEnd SubPrivate Sub Command1_Click()If a && 0 Then GoTo nonowbookSet xl = New Excel.ApplicationWith xl
.Workbooks.Add
Set xlbook = .ActiveWorkbook
Set xlsheet = .ActiveSheetEnd Witha = a + 1nonowbook:With xlsheet'''这里将我对表格进行些操作End Withxl.Visible = TrueEnd Sub第一次Command1_Click时没问题；第二次按Command1时，“With xlsheet
'''这里将我对表格进行些操作
中的操作能顺利完成，但“xl.Visible = True”处出现“运行时错误：‘424’要求对象”
请问问题出在哪里？
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
huxiaohaih知道合伙人
huxiaohaih
采纳数：21
获赞数：42
擅长：暂未定制
当你第2次点击 Command1_Click a=1 所以并没有执行 Set xl = New Excel.Application 所以才会出错你可以改为
:Dim a As SinglePrivate Sub form_load()a = 0Dim xl As Excel.ApplicationDim xlbook As Excel.WorkbookDim xlsheet As Excel.WorksheetEnd SubPrivate Sub Command1_Click()Set xl = New Excel.ApplicationIf a && 0 Then GoTo nonowbookWith xl.Workbooks.AddSet xlbook = .ActiveWorkbookSet xlsheet = .ActiveSheetEnd Witha = a + 1nonowbook:With xlsheet'''这里将我对表格进行些操作End WithIf xl.Visible = True ThenExit SubEnd Ifxl.Visible = TrueEnd Sub
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 发展对象思想汇报 的文章

 

随机推荐