| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 551 人关注过本帖
标题:VB复制EXCEL表格求助,代码不成功,第一次复制对的,以后都是照片模式
取消只看楼主 加入收藏
sun19821124
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-11-5
结帖率:0
收藏
已结贴  问题点数:20 回复次数:0 
VB复制EXCEL表格求助,代码不成功,第一次复制对的,以后都是照片模式
Private Sub CmdExtrOk_Click()
    Dim excel1 As Excel.Application
    Dim excel1book As Excel.Workbook
    Dim excel1sheet As Excel.Worksheet
  

    If CombClass.Text = "" Then MsgBox "请选择起始班组!": Exit Sub
    If ComMonth.Text = "" Then MsgBox "请选择月份!": Exit Sub
   
   
    isFileExist = False
    Set fs = CreateObject("Scripting.FileSystemObject")
   
        For i = 1 To 4
        isFileExist = fs.FileExists(App.Path & "\模块\" & CombClass.Text & "特殊模块\" & ComMonth.Text & ".xls")
    Set excel1 = CreateObject("Excel.Application")
           excel1.Visible = False
      Set excel1book = excel1.Workbooks.Open(App.Path & "\模块\" & CombClass.Text & "特殊模块\" & ComMonth.Text & ".xls")
    Set excel1sheet = excel1book.Worksheets("信号")
    excel1book.ActiveSheet.UsedRange.Copy
      
        '如果模块i.xls存在,则打开它,打开位置指定获取的是班组按钮的值和月份的值
            Set excel1book = Excel.Workbooks.Open(App.Path & "\" & ComMonth.Text & "月份\" & i & "-" & CombClass.Text & ".xls")     '打开2.xls
            excel1book.Sheets.Add Before:=Worksheets(1)                    '新建表格
            Set excel1sheet = excel1book.Worksheets(1)
            excel1sheet.Range("A1").PasteSpecial (xlPasteAll)  '粘贴列宽
            excel1book.Save
           
        '重新生成excel
        '利用mod 4,实现班组名+1,四班循环
         CombClass.ListIndex = (CombClass.ListIndex + 1) Mod 4
          Next i
    excel1.Quit
    Set excel1book = Nothing
    Set excel1sheet = Nothing
    Set excel1 = Nothing
    MsgBox ComMonth.Text + "年表工单生成!"
End Sub
搜索更多相关主题的帖子: 模块 表格 EXCEL False 
2012-11-05 23:46
快速回复:VB复制EXCEL表格求助,代码不成功,第一次复制对的,以后都是照片模式
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015730 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved