VB排版excel错误
Set xl = New Excel.Application
xl.Visible = True '设置EXCEL可见
xl.Workbooks.Add
xl.Workbooks.Open ("C:\Documents and Settings\Administrator\桌面\exportExcel.xls") '打开网页保存的EXCLE文档
Rows("1:1").Select '选择并删除第一列
Selection.Delete Shift:=xlUp
Dim rng As Range '赋予rng变量Range(单元格)属性
Dim i As Integer, j As Integer '计算exportExcel文件中的行、列数
Set rng = xl.ActiveSheet.UsedRange
i = rng.Rows.Count
j = rng.Columns.Count
Debug.Print i
Debug.Print j
EXCELAPP.ActiveSheet.Range("A1:P99").Sort Key1:=Range("H1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
执行后能完成排序，但是弹出窗口提示“实时错误424，要求对象”，请问这个怎么改
Private Sub Cdload_Click()
Set xl = New excel.Application
xl.Visible = True '设置EXCEL可见
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
