收录日期:2021/03/03 01:09:18 时间:2016/07/21 16:19:47 标签:非技术类

Private Sub Cdload_Click()
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 
      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
      
      xl.Range("A1:P999").Sort Key1:=Range("H1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlPinYin
End Sub

我想改进一下不用A1:P999,因为之前已经计算出有多少行,并将行数赋予变量i,我想改成排序时候的区域为“A1到P的第i行”(A1:Pi),请问这个怎么实现,应该添加什么,没法直接改成("A1:Pi")
xl.Range(.Cells(1, 1), .Cells(16, i)).……
Sub a()
i = 9
Sheet1.Range("a1:d" & i).Font.Color = vbRed
End Sub

第二次问这个问题,为什么没人答复,是不是因为这个问题太菜啦 如何实现企业内部邮箱系统 怎样编绎delhpi? 我想学java,请问都有什么好的编译环境。 怎么才能得到richtextbox中光标所在的位置? 如何在vba中用datagrid阿?? about JB9 里面使用PreparedStatement的问题——在线等待!! 控件重叠问题。 各位大哥帮帮忙? 点击某一个超链,弹出一个页面,怎么样把超链的值传递给新弹出的页面? 如何实现在MFC中CScrollView类下的文档视图的放大与缩小 请教各位大侠,想设定一个横坐标为20-50,纵坐标为70-135的坐标系,坐标原点在屏幕左下角,在Ondraw里面应该怎样设置非常感谢 急啊,希望大家帮帮我! 关于文件关联的问题? 关于获取鼠标事件的问题? jsp中怎样获取客户端浏览器和操作系统的类型? 请教:如何从一个编译好的EXE文件中判断出程序是由DELPHI还是BCB编的? so简单的问题~~~~~ coderusn的配置如何保存,以便重新安装时立即恢复 求助 c程序中调用c++库函数的问题,请赐教!谢谢 Pocketpc 下用EVB调用AT指令发送短信 关于鼠标操作的ui设计 如何HOOK到winlogon.exe进程?? 泪求ASP.NET网上考试系统源代码! 关于ASP的画图组件的使用 请教:XP环境下NTFS格式磁盘访问权限的如何设置 怎样在editmask输入中文? 有没有办法禁止print screen键? 想实现这样的功能,不知应该怎么做呢?