vbs编写读写excel数据

vbs编写读写excel文件

' 创建 Excel 应用程序对象
Dim xlApp
Set xlApp = CreateObject("Excel.Application")

' 打开 Excel 文件
Dim xlWorkbook, xlWorksheet
Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\your\file.xlsx")
Set xlWorksheet = xlWorkbook.Sheets("Sheet1")

' 获取数据范围
Dim usedRange
Set usedRange = xlWorksheet.UsedRange

' 遍历每一行数据
Dim row
For row = 2 To usedRange.Rows.Count
    Dim value
    value = usedRange.Cells(row, 1).Value ' 获取第一列数据

    ' TODO: 处理数据，去除重复项等操作

Next

' 关闭文件
xlWorkbook.Close False
Set xlWorksheet = Nothing
Set xlWorkbook = Nothing

' 退出 Excel 应用程序对象
xlApp.Quit
Set xlApp = Nothing

要操作多个 Excel 文件，可以使用循环语句遍历文件列表，并在每次迭代中打开一个文件进行读取和处理。示例代码如下：

Dim fso, folder, files
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\path\to\your\folder")

' 遍历文件夹中的所有 Excel 文件
For Each file In folder.Files
    If fso.GetExtensionName(file.Name) = "xlsx" Then
        ' 打开 Excel 文件
        Dim xlWorkbook, xlWorksheet
        Set xlWorkbook = xlApp.Workbooks.Open(file.Path)
        Set xlWorksheet = xlWorkbook.Sheets("Sheet1")

        ' 获取数据范围
        Dim usedRange
        Set usedRange = xlWorksheet.UsedRange

        ' 遍历每一行数据，并进行处理
        Dim row
        For row = 2 To usedRange.Rows.Count
            Dim value
            value = usedRange.Cells(row, 1).Value ' 获取第一列数据

            ' TODO: 处理数据，去除重复项等操作

        Next

        ' 关闭文件
        xlWorkbook.Close False
        Set xlWorksheet = Nothing
        Set xlWorkbook = Nothing
    End If
Next

' 退出 Excel 应用程序对象
xlApp.Quit
Set xlApp = Nothing

要将处理后的数据输出到一个新的 Excel 文件中，可以使用 Excel.Workbook 和 Excel.Worksheet 对象来创建和写入新文件。示例代码如下：

 创建新的 Excel 文件和工作表
Dim newXlWorkbook, newXlWorksheet
Set newXlWorkbook = xlApp.Workbooks.Add
Set newXlWorksheet = newXlWorkbook.Sheets("Sheet1")

' 写入数据到新文件中
newXlWorksheet.Cells(1, 1).Value = "列1"
newXlWorksheet.Cells(1, 2).Value = "列2"
newXlWorksheet.Cells(2, 1).Value = "值1"
newXlWorksheet.Cells(2, 2).Value = "值2"

' 保存并关闭 Excel 文件
newXlWorkbook.SaveAs "C:\path\to\your\newfile.xlsx"
newXlWorkbook.Close False
Set newXlWorksheet = Nothing
Set newXlWorkbook = Nothing