Foxtable(狐表) → 用户栏目 → 专家坐堂 → 计算


  共有7042人关注过本帖树形打印复制链接

主题：计算
帅哥哟，离线，有人找我吗？
有点甜
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/21 16:49:00 [只看该作者]

1、你看任务管理器，杀死所有 Excel.exe 的进程；

 

2、如果excel之前被打开了，肯定是不能保存的。
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/11/21 16:50:00 [只看该作者]

如果不用book0.save(f0)，又不起作用。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/21 16:52:00 [只看该作者]

 看21楼

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/11/24 14:45:00 [只看该作者]

    Dim Book0 As New XLS.Book(f0)
    book0.sheets.SelectedIndex = 1
    book0.save(f0)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.open(f0)
    For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
        ws.cells(2,2) = cj2.text
        ws.UsedRange.Formula = ws.UsedRange.Formula
        app.ActiveWindow.DisplayZeros = False
        With Ws.PageSetup '设置打印区域
            If ws.name = "资产负债表" Then
                .PrintArea = "A1:I57"   '打印工作表的指定区域
            Else If ws.name = "利润及分配表" Then
                .PrintArea = "A1:I38"   '打印工作表的指定区域
            Else If ws.name = "费用表" Then
                .PrintArea = "A1:G40"   '打印工作表的指定区域
            Else If ws.name = "分单位表" Then
                .PrintArea = "A1:H36"   '打印工作表的指定区域
            End If
        End With
    Next
    wb.save
    wb.close
    App.Quit
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/24 14:46:00 [只看该作者]

 代码没有问题

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/11/24 15:12:00 [只看该作者]

上述代码只能对指定的工作表1进行清零，如何加入代码对整套工作表进行清零。

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/11/24 15:19:00 [只看该作者]

有对每个工作表进行清零的代码吗？在If ws.name = "资产负债表" Then里加入清零的代码，这样每个表就可以清零了吧？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/11/24 15:23:00 [只看该作者]

为什么对逐个工作表进行清零，会这么难的？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/24 15:26:00 [只看该作者]

以下是引用发财在2014-11-24 15:23:00的发言：
为什么对逐个工作表进行清零，会这么难的？

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test001.xls")
Dim Ws As MSExcel.WorkSheet
For Each ws In Wb.WorkSheets
    ws.Activate
    app.ActiveWindow.DisplayZeros = False
Next
app.visible = True
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/11/25 9:26:00 [只看该作者]

 Dim y,m,d As Integer
Dim dt2 As Date
dt2 = vars("cc")
Dim dt1 As Date = #1/01/0001#
DateYMD(dt1,dt2, y, m, d)
y=y+1
m=m+1
   Dim Book1Dim f1 As String ="E:\快盘\fyyw\fydb" & y & Format(m-1,"00") & ".xls" '快盘上月单表
    Dim Book1 As New XLS.Book(f1)
    Dim Sheet1 As XLS.Sheet = Book1.Sheets("利润及分配表") '上月单表
    Dim Sheet2 As XLS.Sheet = Book1.Sheets("费用表")
上述代码中当m = 1,即是1月份时，不存在上月时，应如何加条件限制？
改成这样不行？
If m <> 1 Then
    Dim Book1 As New XLS.Book(f1)
    Dim Sheet1 As XLS.Sheet = Book1.Sheets("利润及分配表") '上月单表
    Dim Sheet2 As XLS.Sheet = Book1.Sheets("费用表")
end if
 回到顶部
总数 67 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询