请问如何使用VB控制EXCEL单元格格式？

例如：  
  当向EXCEL文件写入数据时，如果   某一单元格是   000000001   时，EXCEL会自动将其变为1。但是我现在需要单元格内容为   00000001     。请问用VB控制EXCEL时，哪个对象的哪个属性是控制这个的？最好能给个参考代码！谢谢 问题点数：20、回复次数：2Top

1 楼happy_sea（开心海(数据读取中，请稍候......)）回复于 2005-04-19 18:15:49 得分 2

在000000001前面加个'就行了，无需设置什么属性。Top

2 楼pcwak（）回复于 2005-04-19 18:23:32 得分 18

只要把单元格的格式设置为文本就行了  
   
  Option   Explicit  
   
  Private   Sub   Command1_Click()  
   
          Dim   ExcelBook   As   Excel.Workbook  
          Dim   Esheets   As   Sheets  
          Dim   Esheet   As   Excel.Worksheet  
   
          Dim   strFilePath   As   String  
          strFilePath   =   "D:\1.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  
           
          '设置单元格的格式为文本  
          Esheet.Range("A1").NumberFormatLocal   =   "@"  
          Esheet.Cells(1,   1)   =   "00001"  
          ExcelBook.Save  
           
          ExcelBook.Close  
          Set   ExcelBook   =   Nothing  
          Set   Esheets   =   Nothing  
          Set   Esheet   =   Nothing  
   
  End   SubTop

相关问题

• 控制
• excel
• esheet
• 单元格
• excelbook
• 格式
• strfilepath
• 设置
• dim
• sub

• 帖主：microsoft_huyee
• happy_sea
• pcwak

• Visual Basic类图书
• Visual Basic类源码下载