zoukankan      html  css  js  c++  java
  • 处理Excel的值

    在以前弄Asp.Net的时候就遇到一个Excel的问题,如果用ODBC等数据库驱动去读Excel的值时,在做类型判断的时候的行为蛮奇怪,当时写了一篇blog来记录的,翻了下找不到了,大体意思还是记得的.
    这个时候可能会用到下面的VBScript来强行加一个"'"来处理一下."'"的作用是强行转换为文本.
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        Dim workSheetsCount As Integer
        Dim workSheetRowsCount As Integer
        Dim workSheetColumnCount As Integer
        Dim strValue As String
        Dim Worksheet As Worksheet
        Dim Workbook As Workbook
        

        Set Workbook 
    = Workbooks(1)
        
       For workSheetsCount 
    = 1 To Workbook.Worksheets.Count
            Set Worksheet 
    = Workbook.Worksheets(workSheetsCount)
            For workSheetRowsCount 
    = 1 To Worksheet.UsedRange.Cells.Rows.Count
                For workSheetColumnCount 
    = 1 To Worksheet.UsedRange.Cells.Columns.Count
                    strValue 
    = Worksheet.Cells(workSheetRowsCount, workSheetColumnCount)
                    Worksheet.Cells(workSheetRowsCount, workSheetColumnCount) 
    = "'" + strValue
                Next
            Next
       Next

    End Sub
    用惯了C/C++的语法习惯,用VBScript还真不习惯,写个For循环都用了半天,ft!
  • 相关阅读:
    剑指offer-序列化二叉树
    剑指offer-把字符串转换成整数
    CentOS终端账户切换
    bootstrap3 modal居中
    海洋地理信息系统的应用现状及其发展趋势
    智慧城市八大应用,助力城市更加智慧
    zTree触发节点click,check事件
    Linux Centos下软件的安装与卸载方法
    MongoDB系列教程大全
    openlayers加载切片错位解决方案
  • 原文地址:https://www.cnblogs.com/Farseer1215/p/559830.html
Copyright © 2011-2022 走看看