注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

用VB6操纵Excel文档执行操作  

2007-07-05 10:48:47|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
用VB6操纵Excel文档执行操作

通过VBA操纵Excel很容易,其实可以实现任何Excel里的操作。



Dim ex As Object
 Dim exwbook As Object
 
 'Create file
 Set ex = CreateObject("Excel.Application")
 Set exwbook = ex.Workbooks().Add
 
 'Open file
 'ex.Workbooks.Open filename:="G:\My Documents\bank.xls"


 'show
 ex.Visible = True

 'Value
 ex.Worksheets("Sheet1").range("a1").Cells(1, 1) = "'Sheet1"
 ex.Worksheets("Sheet2").range("a1").Cells(1, 1) = "'Sheet2"
 ex.Worksheets("Sheet3").range("a1").Cells(1, 1) = "'Sheet3"
 
 'Rename Sheet
 ex.Sheets("Sheet1").Name = "PCA"

 'Add a new Sheet
 ex.Sheets.Add

 'Delete someone Sheet you want
 'ex.Sheets("Sheet2").Select
 'ActiveWindow.SelectedSheets.Delete

 'Save File
 exwbook.saveas App.Path & "\test.xls"
 
 'quit excel
 ex.Quit 

 


我自己的程序


Public mysum, mycity, myregion, mygroup, myshop, mypromotion As Long


Private Sub Form_Load()
'mysum        所有问卷总数
'mycity       城市名称    所在的列
'myregion     战区标志    所在的列



 myregion = 4   '分区标志列在第4列  region
 mycity = 3        '城市名称标志列在第3列    cityname
 mysales = 7        '促销员类型标志列在第7列   sales
 mypromotion = 26  '促销员多久长出现    C5
 
 'mysum=705   'GSM Q3 调查问卷总数
 'mysum = 164  '补充调查问卷总数

 
    a1 = 1  'Gsm FF
    a2 = 2  'Gsm PP
    a3 = 4  'Gsm 国美
 
 
 

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet




End Sub


Private Sub Command1_Click()

Command1.Enabled = False

Label2.Caption = Time




Label7.Caption = CommonDialog1.FileName
a = Label7.Caption

'Workbooks.Open FileName:=a

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open(a)
xlApp.Visible = True
xlApp.DisplayAlerts = True

'xlApp.Visible = False
'xlApp.DisplayAlerts = False
Set xlSheet = xlBook.Worksheets("national")
xlSheet.Activate


Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="d:\City.xls"

'*****************中间过程开始
'******************中间过程结束

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="d:\City.xls"
Workbooks.Close
Set xlApp = CreateObject("Excel.Application")
xlApp.Quit

Set xlApp = Nothing '释放EXCEL对象

Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing

Label4.Caption = Time
Command1.Enabled = True

MsgBox ("结束了")

End Sub






'*****************  GM 开始



'*************    1
 If Then
   Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="<>北京", Operator:=xlAnd
  
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=9
    Selection.Delete Shift:=xlUp
   Range("A1").Select
    If Cells(1, 1) = "" Then
   Else
      Selection.AutoFilter
     Selection.AutoFilter
     End If

End If

 
  评论这张
 
阅读(1657)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017