主题：[求助] excel 单元格格式 如何用代码设置？

 客户突然要求 EXCEL 单元格格式 指定用 文本 的格式！没找到设置的方法！
手动设置是：

选中你要设置的单元格，点右键---设置单元格格式----数字选项卡里默认选中的是常规，你把它选成文本，点确定

狐表如何用代码设置？

sheet.Cols(i).。。

• 单元格格式是通过NumberFormat或NumberFormatLocal属性来完成的。例如：
  
  Dim App As New MSExcel.Application
  Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
  Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
  Ws.Range("A1").NumberFormat = "G/通用格式" '通用格式
  Ws.Range("B1").NumberFormat = "0_ "   '数值
  Ws.Range("C1").NumberFormat = "#,##0.00_);[红色](#,##0.00)" '货币
  Ws.Range("D1").NumberFormat = "_ * #,##0.00_;_ * -#,##0.00_ ;_ * ""-""??_ ;_ @_ " '会计专用
  Ws.Range("E1").NumberFormat = "yyyy-m-d" '日期
  Ws.Range("F1").NumberFormat = "h:mm:ss"  '时间
  Ws.Range("G1").NumberFormat = "0.00%"    '百分比
  Ws.Range("H1").NumberFormat = "# ?/?"    '分数
  Ws.Range("I1").NumberFormat = "0.00E+00" '科学记数
  Ws.Range("J1").NumberFormat = "@"   '文本
  App.Visible = True
  
  可在上述代码执行完毕后，在相应的单元格中输入数据以查看格式效果。
  

 谢谢，已解决