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!
  • 相关阅读:
    syslog远程日志存储/514端口【转】
    干掉僵尸进程
    以太网,IP,TCP,UDP数据包分析【转】
    suricata 的安装编译
    libpcap详解【转】
    蛋疼的经历--wireshark不能启动的问题
    Ubuntu中root用户和user用户的相互切换[转载自93度的饼干]
    OSI七层与TCP/IP五层网络架构详解
    __cplusplus的用法(转)
    IPsec ISAKMP(转)
  • 原文地址:https://www.cnblogs.com/Farseer1215/p/559830.html
Copyright © 2011-2022 走看看