VBA文本型数字变成数值

最新推荐文章于 2024-07-26 11:52:23 发布

weixin_30318645

最新推荐文章于 2024-07-26 11:52:23 发布

阅读量2.8k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/z5337/p/3941601.html

sub test()
with activesheet
.usedrange.numberformatlocal=""
.usedrange=.usedrange.value
end with
end sub
一般运行一次就可以将全部文本型数字变成数值型了

 1             Excel.Application excel = new Excel.Application();
 2             //excel.Visible = true;
 3             Excel.Workbook book = excel.Workbooks.Open(path + "\\" + fileName
 4                                 , Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value);
 5             Excel.Workbook book1 = excel.Workbooks.Open(path + "\\Convert"
 6                 , Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value);
 7             string macroname = "Convert!Convert";
 8             excel.Run(macroname
 9                 , Missing.Value
10                 , Missing.Value
11                 , Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value
12                 , Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value
13                 , Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value);
14             book1.Close(false
15                 , Missing.Value, Missing.Value);
16             Marshal.ReleaseComObject(book1);
17             book.Close(true
18                 , Missing.Value, Missing.Value);
19             Marshal.ReleaseComObject(book);
20             excel.Quit();
21             Marshal.ReleaseComObject(excel);