当前位置:编程学习 > VB >>

vb 如何操作excel 进行高级筛选

 
在visual studio里面操作excel,对工作簿表“sheet1”的“A”列 进行高级筛选,选择不重复的记录到“B”列!
代码如下:
       Dim xlsApp As Excel.Application
        Dim kbBook As Excel.Workbook
        xlsApp = New Excel.Application
        xlsApp.Visible = False
          kbBook = xlsApp.Workbooks.Add 
'''填充空白工作簿信息已经省略

以下语句请帮忙修正!(其中xlFilterCopy 调试已经提示错误)kbBook.Worksheets("sheet1").Range("A1:A300").AdvancedFilter(Action:=xlFilterCopy, CopyToRange:=kbBook.Worksheets("sheet1").Columns("B:B"), Unique:=True) vb 如何操作excel 进行高级筛选 先录制宏再修改...... 录制的宏,复制到visual studio 里面报错呀!
引用 2 楼 hwbdabao12345 的回复:
录制的宏,复制到visual studio 里面报错呀!

录制的宏基本上都不可以直接使用的!!!!需要根据需要进行修改的,它只是提供了一些属性和方法的使用情况..... 这么久都没人能解决么?  
以下是excel 录制的宏 放到 visual studio 2010 里面怎么改啊?
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Columns("A:A").Select
    Range("A1:A292").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("B:B"), Unique:=True
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
AdvancedFilter 这个用法有没有呀?请高手指点!谢谢! 把xlFilterCopy改为2后试试.....
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,