VBA文本型數字變成數值

本文轉載自查看原文 2014-08-28 14:57 3209

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);

本文來自 http://club.excelhome.net/thread-648740-1-1.html

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。

猜您在找 mysql—將字符型數字轉成數值型數字 js將數字變成數組 RabbitMQ消息為什么變成數字了呢？解決Excel中日期轉換文本后變成數字解決excel日期變成數字的問題 python將科學計數法表示的數值的字符串轉換成數值型數據 python將科學計數法表示的數值的字符串轉換成數值型數據 excel VBA 將文本數值轉換為數字格式（單元格中數據左上角是綠三角，鼠標點上有嘆號標示） Vlookup中對文本型數字的查找 JS字符串數字前面加加號會變成數字類型