完整错误代码:
run-time error "429"
activex component cant create object附源码:Private Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Left$(Drive1.Drive, 1) & ":\"
End SubPrivate Sub File1_Click()
Dim i As Integer
Dim j As Integer
Dim k As String
Dim name As String
Dim excelFile As String
Dim tuhao() As String
Dim number() As Integer
excelFile = File1.Path 'App.Path & "\myReport.xls" 'Excel文件名
If Right$(excelFile, 1) <> "\" Then excelFile = excelFile & "\"
excelFile = excelFile & File1.FileName
'建立EXCEL对象
Dim xlApp As Excel.Application '定义Excel的Application对象,Application对象相当于Excel程序
Dim xlbook As Excel.Workbook '定义Excel的Workbook对象,Workbook对象相当于Excel文件
Dim xlsheet As Excel.Worksheet '定义Excel的Worksheet对象,Worksheet对象相当于Excel文件中的一个表
Set xlApp = New Excel.Application '给Application分配内存空间,将其实例化
Set xlApp = CreateObject("Excel.Application") '创建Application对象
xlApp.Visible = False ' True '显示或隐藏被VB打开的Excel程序
Set xlbook = xlApp.Workbooks.Open(excelFile) '打开工作簿,excelFile为一个EXCEL报表文件
Set xlsheet = xlbook.Worksheets(1)
i = 1
j = 1
k = 1
Do While xlsheet.Cells(i, j) <> ""
MsgBox (CStr(xlsheet.Cells(i, j)))
MsgBox (CStr(xlsheet.Cells(i, j + 1)))
k = k + 1
i = i + 1
Loop
End Sub
主要的问题就是出在While xlsheet.Cells(i, j) <> ""这个循环里面
程序的目的:提取excel表格中的某一行的相关数据到一个新的excel表格另外:请教一个问题,在vb里面,怎么单步调试程序,就像c语言里面的单步调试!
run-time error "429"
activex component cant create object附源码:Private Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Left$(Drive1.Drive, 1) & ":\"
End SubPrivate Sub File1_Click()
Dim i As Integer
Dim j As Integer
Dim k As String
Dim name As String
Dim excelFile As String
Dim tuhao() As String
Dim number() As Integer
excelFile = File1.Path 'App.Path & "\myReport.xls" 'Excel文件名
If Right$(excelFile, 1) <> "\" Then excelFile = excelFile & "\"
excelFile = excelFile & File1.FileName
'建立EXCEL对象
Dim xlApp As Excel.Application '定义Excel的Application对象,Application对象相当于Excel程序
Dim xlbook As Excel.Workbook '定义Excel的Workbook对象,Workbook对象相当于Excel文件
Dim xlsheet As Excel.Worksheet '定义Excel的Worksheet对象,Worksheet对象相当于Excel文件中的一个表
Set xlApp = New Excel.Application '给Application分配内存空间,将其实例化
Set xlApp = CreateObject("Excel.Application") '创建Application对象
xlApp.Visible = False ' True '显示或隐藏被VB打开的Excel程序
Set xlbook = xlApp.Workbooks.Open(excelFile) '打开工作簿,excelFile为一个EXCEL报表文件
Set xlsheet = xlbook.Worksheets(1)
i = 1
j = 1
k = 1
Do While xlsheet.Cells(i, j) <> ""
MsgBox (CStr(xlsheet.Cells(i, j)))
MsgBox (CStr(xlsheet.Cells(i, j + 1)))
k = k + 1
i = i + 1
Loop
End Sub
主要的问题就是出在While xlsheet.Cells(i, j) <> ""这个循环里面
程序的目的:提取excel表格中的某一行的相关数据到一个新的excel表格另外:请教一个问题,在vb里面,怎么单步调试程序,就像c语言里面的单步调试!
解决方案 »
- 托盘气泡提示时间问题
- 怎样禁止 richtext中的内容被拷贝
- 我接个单子,大家说说地收多少钱?
- 2000下打开97的Access库时按提示转换格式后,原VB程序的OpenDatabase函数反而提示“不可识别的数据库格式”
- sstab控件的小问题??在线等
- 关于mydatagrid.row属性(100分!!!)
- 请教Viso里头的VBA编程问题!菜鸟在线等待ing
- data控件连文本数据文件(*.txt)时常出现错误提示
- 有哪些api可以用来判断一个目录或文件存在或不存在
- 如何将MsFlexGrid中的数据同From中的Label一并打印
- 关于EXCEL,不知道是不是很简单的问题
- ADO的怎么判断一个字段是否是自增列、主建
MsgBox (CStr(xlsheet.Cells(i, j)))
MsgBox (CStr(xlsheet.Cells(i, j + 1)))
//另外:请教一个问题,在vb里面,怎么单步调试程序,就像c语言里面的单步调试!用F8键
檢查一下XLS文件
Set xlApp = New Excel.Application '给Application分配内存空间,将其实例化
Set xlApp = CreateObject("Excel.Application") '创建Application对象 <-------------------把这句去掉
......记得先引用Excel