zoukankan      html  css  js  c++  java
  • Simple VBScript program to extract data from all worksheets in an Excel spreadsheet

    Simple VBScript program to extract data from all worksheets in an Excel spreadsheet

    by Greg Thatcher, MCSD, MCDBA, MCSE

    The script below demonstrates how to extract all of the data from a Microsoft Excel spreadsheet. The script will extract data from all worksheets in a given Excel file. The script currently outputs all the data to a console window, though it can be easily modified to write the data to a file or database. In addition, this script can be converted to C++ by using the "VB-to-VC Automation Code Converter".

    To run the script, save it to a file (e.g. excel.vbs). Modify the line that sets the excelPath variable, and change it to specify the location of your Excel file. For example, if your excel file was in the directory c:/StockData, and it's name was Cisco.xls, you would change the line to look like this:

    excelPath = "C:/StockData/Cisco.xls"
    You would then run the program from a DOS prompt (Start->Programs->Command Prompt) like this:
    cscript excel.vbs

    Here is the script:

    Option Explicit
    REM We use "Option Explicit" to help us check for coding mistakes

    REM the Excel Application
    Dim objExcel
    REM the path to the excel file
    Dim excelPath
    REM how many worksheets are in the current excel file
    Dim worksheetCount
    Dim counter
    REM the worksheet we are currently getting data from
    Dim currentWorkSheet
    REM the number of columns in the current worksheet that have data in them
    Dim usedColumnsCount
    REM the number of rows in the current worksheet that have data in them
    Dim usedRowsCount
    Dim row
    Dim column
    REM the topmost row in the current worksheet that has data in it
    Dim top
    REM the leftmost row in the current worksheet that has data in it
    Dim left
    Dim Cells
    REM the current row and column of the current worksheet we are reading
    Dim curCol
    Dim curRow
    REM the value of the current row and column of the current worksheet we are reading
    Dim word

    WScript.Echo "Reading Data from " & excelPath

    REM where is the Excel file located?
    excelPath = "C:/ExcelFiles/Book2.xls"

    REM Create an invisible version of Excel
    Set objExcel = CreateObject("Excel.Application")

    REM don't display any messages about documents needing to be converted
    REM from old Excel file formats
    objExcel.DisplayAlerts = 0

    REM open the excel document as read-only
    REM open (path, confirmconversions, readonly)
    objExcel.Workbooks.open excelPath, false, true


    REM How many worksheets are in this Excel documents
    workSheetCount = objExcel.Worksheets.Count

    WScript.Echo "We have " & workSheetCount & " worksheets"

    REM Loop through each worksheet
    For counter = 1 to workSheetCount
    WScript.Echo "-----------------------------------------------"
    WScript.Echo "Reading data from worksheet " & counter & vbCRLF

    Set currentWorkSheet = objExcel.ActiveWorkbook.Worksheets(counter)
    REM how many columns are used in the current worksheet
    usedColumnsCount = currentWorkSheet.UsedRange.Columns.Count
    REM how many rows are used in the current worksheet
    usedRowsCount = currentWorkSheet.UsedRange.Rows.Count

    REM What is the topmost row in the spreadsheet that has data in it
    top = currentWorksheet.UsedRange.Row
    REM What is the leftmost column in the spreadsheet that has data in it
    left = currentWorksheet.UsedRange.Column


    Set Cells = currentWorksheet.Cells
    REM Loop through each row in the worksheet
    For row = 0 to (usedRowsCount-1)

    REM Loop through each column in the worksheet
    For column = 0 to usedColumnsCount-1
    REM only look at rows that are in the "used" range
    curRow = row+top
    REM only look at columns that are in the "used" range
    curCol = column+left
    REM get the value/word that is in the cell
    word = Cells(curRow,curCol).Value
    REM display the column on the screen
    WScript.Echo (word)
    Next
    Next

    REM We are done with the current worksheet, release the memory
    Set currentWorkSheet = Nothing
    Next

    objExcel.Workbooks(1).Close
    objExcel.Quit

    Set currentWorkSheet = Nothing
    REM We are done with the Excel object, release it from memory
    Set objExcel = Nothing

  • 相关阅读:
    libxml2 解析文档的例子
    FreeRTOS之任务优先级的分配
    idea中快速重写父类方法
    组件里面调用组建的方法
    sproot 注解学习记录 (含给实现类起名字的方法)
    直播技术没有那么神秘,你也可以DIY
    Java服务端API接口统一加密和解密
    把对象交给spring管理的3种方法及经典应用
    Dart空安全的底层原理与适配
    Dart 中 final和const 区别
  • 原文地址:https://www.cnblogs.com/zhangyunlin/p/6167616.html
Copyright © 2011-2022 走看看