如何控制excel单元格的数据类型
来源:互联网 发布:哈工大深圳知乎 编辑:程序博客网 时间:2024/05/01 13:54
只要把单元格的格式设置为文本就行了
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 Sub
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 Sub
- 如何控制excel单元格的数据类型
- 如何设置excel单元格的数据类型
- Python如何读取excel单元格的缩进
- 【一步一步学习VBA】Excel VBA 获取当前单元格的数据类型
- C#控制EXCEL单元格的一些命令收集
- OfficeTeam-Excel 2007单元格内容的编辑与控制
- C#控制EXCEL单元格的一些命令收集
- excel单元格内如何换行 ?
- Excel单元格的合并
- Excel单元格的合并
- excel的单元格合并
- 如何设置excel中重复的单元格颜色
- 如何把图片插入Excel的一个单元格中
- Apache POI如何获取Excel合并单元格的值
- Excel操作之如何连接多个单元格的内容
- c#如何获取excel单元格的RGB颜色
- Excel——如何使用VBA操作单元格的格式
- 如何在Excel表的同一个单元格中换行?
- 从Table 表中取出第 m 条到第 n 条的记录:(Not In 版本)
- 常用日期解决方案
- 远程抓取页面信息并解析XML
- AJAX 中文支持模板(jsp)
- (转)怎样建立全文索引
- 如何控制excel单元格的数据类型
- html表格滚动条的实现代码
- 删除重复记录
- C#正则学习杂谈(一)
- DotNet ajax frame
- delphi中弹出(ADO)数据库连接字符串对话框的函数
- 在2005中如何用CSS控制gridview?
- 21世纪如何正确思考及开创个人事业(转)
- GDI+ 在Delphi程序的应用 -- ColorMatrix与图像亮度