VB6编译器执行正常但运行错误

㈠ VB6.0 运行错误 急急急！

用vb自带的打包工具 制作一个安装包 一般就可以解决你上述问题 有问题的电脑一般都是缺少文件和注册，安装包可以解决这些问题

㈡ VB6.0编写的应用程序运行时错误'339'

从程序上来解决是不太可能的,因为你写的程序后,它要引用很多的文件,那么目标机器上少一个文件也不可以的还是要打包.可以用setup Factory,有汉化版的,可以专门针对Vb生成安装程序,可以把你所用到的所有文件都打包成安装程序

㈢ vb 调试运行正常,编译成exe后运行错误

你看看你各窗体的日志文件，看看是哪个窗体的调用过程或参数无效

㈣ VB6运行第一次正常，运行第二次报错

这种现象是因为 在子程序结尾处 变量xlBook 未清空。

应将Set excel_App = Nothing 改成 Set xlBook = Nothing

我试验了，是可以通过的。

-----------------------

你将如下 代码 拷至 VBE，试一试：

Dim xlApp As New Excel.Application '定义并创建EXCEL对象

Dim xlBook As Excel.Workbook '创建工作簿

'xlapp.DisplayAlerts =False

xlApp.Visible = True '让Excel可见

Set xlBook = xlApp.Workbooks.Open(App.Path & "/dot.xls") '打开Excel模板

With xlBook.ActiveSheet

.Range("b4") = Text1.Text '填充第一行第一列的值

.Range("i4") = Text2.Text ' 填充其他行列的值，具体的填充位置得根据模板来做

End With

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=1234 '表格设定密Set excel_Book = excel_App.Workbooks.Open(App.Path & "dot.XLS")

ChDir "D:评定表牧牛科技"

Dim a As Long

ActiveWorkbook.SaveAs Filename:="D:评定表牧牛科技" & Text1.Text & Text2.Text & ".xlsx", FileFormat:= _

xlOpenXMLWorkbook, CreateBackup:=False

Excel.ActiveWorkbook.Close

Set xlBook = Nothing ' 只变这一行 代码即可。

End Sub

㈤ VB程序 为什么直接运行可以运行而全编译执行或者生成exe文件报错

编译器里运行只是运行到哪里就临时编译到哪里
可能你程序中有错误，所以编译会出错，但是却不影响直接运行。
因为编译EXE是全部编译，同时编译器会检查语法等操作，所以会发现一些你没发现的问题。

㈥ vb6.0 做的程序运行出现使用源错误提示

这个可能是系统里某个部件用到OFFICE的控件，而OFFICE没有安装好。建议把这台电脑的OFFICE删了，重新安装一个完全版即可。

㈦ 为什么VB环境下调试正常，生成EXE后运行则发生错误

你应该是把这个程序放到了没有安装vb6的电脑上运行了，这样你必须要将这个程序用到的dll也一起附带过去，程序里面有个自带的打包可以实现。

㈧ 编写的vb6的程序，，点击运行后，出现vb已停止运行的问题

一个C0000005错误是在Windows系统错误。这是一个异常发生的错误，当一个进程（应用程序，驱动程序等）试图执行处理器指令引用的内存空间由操作系统分配给该进程之外。有许多可能的原因，从损坏的数据表，一个糟糕的网络连接，ActiveX控件，或打印机或视频驱动程序错误。不知道你看到的是什么类型的错误，这是不可能猜测原因可能是什么。

㈨ 为什么windows7 安装了vb6.0后 运行时总出现Vb6.exe-系统错误

VB6.0、VC6.0是专门为 Windows 95 和 Windows 98 设计的。
Win7 无法兼容非.NET系列的编译器，如VB6.0、VC6.0等等，建议用VS2005、VS2008、VS2010。如果一定要用VB6.0建议安装Windows XP或更低版本的操作系统。可以在Win7中安装 Windows XP 虚拟机。

㈩ 我用VB6.0编了一个计算器程序，运行时显示运行时错误424需要对象

测试了下，代码应该是没问题的。估计是编译器的问题。还有 其实你这个窗体加载里面这部分代码完全可以在对象的属性窗口设置的，没必要在程序里面设置吧。

测试代码：
Private Sub Command1_Click()
x = Val(Text1.Text)
x = Val〔Text1.Text〕
End Sub
两条代码是一样的 但是第一条代码可以执行 第二条出错。

我也不知道什么原因、