六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

VBA设置单元格的格式之代码

Admin | 2010-4-18 20:56:54 | ReadNums | 19154 | 标签 六合开奖结果现场直播 | 打印本页
     

  以下代码功能是,通过VBA设置单元格的格式,以下示例为设置单元格格式为普通文本。

  希望本文对您有所帮助。

  Dim   ExcelBook   As   Excel.Workbook  
  Dim   Esheets   As   Sheets  
  Dim   Esheet   As   Excel.Worksheet   
   
  Dim   strFilePath   As   String  
  strFilePath   =   "E:\我的工作薄.xls"  
  If   Dir(strFilePath,   vbNormal)   =   ""   Then  
                  Exit   Sub  
  End   If   
           
  Set   ExcelBook   =   GetObject(strFilePath)  
  Set   Esheets   =   ExcelBook.Sheets  
  If   Esheets.Count   =   0   Then   Exit   Sub  
  ExcelBook.Activate  
  Set   Esheet   =   Esheets(1)  
  Esheet.Activate   
           
  '设置B列的单元格的格式为文本  
  Esheet.Range("B:B").NumberFormatLocal   =   "@"  
  Esheet.Cells(1,   1)   =   "00001"  
  ExcelBook.Save   
           
  ExcelBook.Close  
  Set   ExcelBook   =   Nothing  
  Set   Esheets   =   Nothing  
  Set   Esheet   =   Nothing


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日