批量改为数值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量改为数值

共有5782人关注过本帖树形打印复制链接主题：批量改为数值

发财

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2014/7/23 15:14:00 [只看该作者]

Dim aa As String

aa=vars("aa")

For Each file As String In filesys .GetFiles(ProjectPath & aa)

If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then

Dim Book1 As New XLS.Book(file)

Dim Sheet1 As XLS.Sheet = Book1.Sheets("资产负债表")

For n As Integer = 0 To 200

Sheet1(n,n).Formula = ""

Dim temp As Object = Sheet1(n,n).Value

Sheet1(n,n).Value = temp

Book1.Save(file)

End If

上述代码可以了，但代码Dim temp As Object = Sheet1(n,n).Value

Sheet1(n,n).Value = temp已经将报表的格式全部改变了，有没其他办法，不要改变报表原格式？

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/23 15:25:00 [只看该作者]

回复11楼，不会改变原格式啊，它只是去除公式和修改值啊。

发财

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2014/7/23 22:20:00 [只看该作者]

报表的边框没有了，合并的单元格撤消合并，做不到ExceL粘贴数值的效果？

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/23 22:24:00 [只看该作者]

回复13楼，绕了一大圈。你如果要做粘贴数值的效果，就直接用vba去做，几句代码的事。

请上传excel表格，说明哪些单元格要转换。

发财

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2014/7/23 22:35:00 [只看该作者]

整个表粘贴回数值。

有点甜

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/23 22:40:00 [只看该作者]

代码，(mark ExceL粘贴)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Copy
rg.PasteSpecial(Paste:=MSExcel.XlPasteType.xlPasteValues, Operation:=MSExcel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False)
Wb.Save
App.Quit