vb60编译错误

1. VB6.0“编译错误，要求常量表达式”

把Dim a(i,j) As Integer 改成 Dim a(6, 6) As Integer 就可以了

2. vb6.0编译错误——过程声明与同名事件或过程描述不匹配——在线等待您的解答！追加分哦！

SSTabbuy 应该是个控件

但声明： Private Sub SSTabbuy_Click(PreviousTab As Integer) 不是控件事件的声明。

纠正办法，把当前过程内的代码拷贝出来，然后删除过程SSTabbuy_Click的全部内容，
在窗口上双击SSTabbuy控件，然后在代码窗口中选择click事件
最后把前面拷贝出的代码复制到过程里

3. vb6.0添加excel的问题 一下代码提示编译错误 “用户定义类型未定义”

1：读取。

1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序：

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub

Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB关闭EXCEL
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub

2、在D盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为"bb.xls"的EXCEL文件。

3、在"bb.xls"中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：

Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '写标志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '删除标志文件
End Sub

4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。

2：写入。
Excel导入sql:

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command2_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=123;Initial Catalog=dataBase001;Data Source=mySERVICE"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute "select * into table4 from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=Yes;database=d:\temp\bb.xls;','select * from [Sheet1$]')"
cn.Close
Set cn=Nothing
End Sub

4. vb60编译好的exe中如何定位错误发生在哪条语句中

首先生成debug版的exe程序，然后调试状态下运行exe，出错后调试器会捕捉到错误，然后自动停到源码位置，或者你可以查看调用堆栈，一直找到你源码那一层为止。

5. VB6 中函数声明错误编译不通过，如何解决

这句话是错误的，只有定义在调用之后的函数才需要声明，如果定义在调用之前的函数，无需声明，例子1，定义在调用之后，必须声明：main(){int f();//这个声明是必须的printf("%d",f());}int f(){return 1;}例子2，定义在调用之前，无需声明：int f(){return 1;}main(){/*int f();//这个声明不需要*/printf("%d",f());}最后，这个其实是历史遗留问题，以前的效率较低，编译器多次扫描源程序麻烦，现代编译器为了实现优化，都会反复多次扫描源程序。

6. VB6.0编译错误：未找到方法或数据成员

如果你的单选按钮Option1是控件数组,则只需将如下代码：

PrivateSubOption1_Click(IndexAsInteger)
IfOption1.ValueThen
Text4.Text=Option1.Caption
EndIf
EndSub

PrivateSubOption2_Click()
IfOption2.ValueThen
Text4.Text=Option2.Caption
EndIf
EndSub

PrivateSubOption3_Click()
IfOption3.ValueThen
Text5.Text=Option3.Caption
EndSub

PrivateSubOption4_Click()
IfOption4.ValueThen
Text5.Text=Option4.Caption
EndSub

改为：

PrivateSubOption1_Click(IndexAsInteger)
IfOption1(Index).ValueThen
Text4.Text=Option1(Index).Caption
EndIf
EndSub

7. VB 编译错误：无效外部过程

是把代码写在子过程、函数过程或属性过程外而发生的错误。

在过程外无效：

该语句必须发生在子过程、函数过程或属性过程（Property Get、Property Let 和
Property Set）内部。这个错误的起因与解决方法如下所示：

*一个可执行的语句，如 Static 或 ReDim，出现在模块级别中。

在模块级中 Static 是不需要的，因为所有的模块级变量都是静态的。在模块级中用 Dim 来代替
ReDim。想要在模块级中创建动态数组，请用
Dim 加空括号来声明它。

注意 在模块级只能使用注释与声明性语句，例如
Const、Declare、Deftype、Dim、Option Base、Option
Compare、Option Explicit、Option
Private、Private、Public 和
Type。子过程、函数过程和属性过程语句发生在它们的过程体之外，但在过程内声明。

8. vb6.0 编译错误：不能给只读属性赋值

控件的有些属性是可以在程序中更改，有些是不能更改的，不能改的属性称之为只读属性，需要在form界面设定好
Text1.MultiLine
Text1.ScrollBars
都是这样的问题，应该在form界面的控件属性表中调整

9. VB 中找不到工程或库（提示编译错误）怎么回事

打开EXCEL VB 时弹出编译错误的需要给EXCEL VB设定一个值，即可解决。

具体步骤：

1、首先我们打开一个工作样表作为例子。