vbscript写xls文件里面数据导入到数据库中

最新推荐文章于 2025-07-18 09:36:13 发布

喜哥2022

最新推荐文章于 2025-07-18 09:36:13 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏：接口数据管理文章标签： vbscript 数据库 excel function 活动工作

本文链接：https://blog.youkuaiyun.com/wjx85840948/article/details/5175771

接口数据管理专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一种使用VBA批量读取多个Excel文件的方法，并处理数据以形成统一的数据集。该过程涉及创建Excel应用程序对象，打开指定的工作簿，读取选定工作表的数据，并通过特定格式整合所有文件的数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function DoXlsRead(byval sFile,ByVal dDate)
    dim alldata
    allData = ""
    for intJ = 0 to ielistFile.listCount -1
  if ielistFile.selected(intJ) then
          sFiletemp = sFile & ielistFile.list(intJ)
          data = AutoreadExcel(sFiletemp,dDate,ielistFile.list(intJ))
          If data<>"" Then
             allData = typestr & vbtab & dDate & vbtab & data
             if intJ < ielistFile.listCount -1 then
                allData = allData & vbcrlf
             end if
         end if
    end if
    next
End Function

function AutoreadExcel(filename,dDate,xlsfilename)
    dim xlApp
    dim xlBook
    dim PointSheet
    dim c
    dim r
    dim zh
    dim ye
dim lhh
dim Str
dim data
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
    Set xlBook = xlApp.Workbooks.Open(filename) '打开已经存在的EXCEL工件簿文件
    xlApp.Visible = False '设置EXCEL对象不可见
    Set PointSheet = xlBook.Worksheets.Item(1) '设置活动工作表

    xlApp.DisplayAlerts = false
    xlApp.Application.EnableEvents = False'禁用事件
    Dim i
    dim j
      c = "" '列数
      r = "" '行数
   Str=PointSheet.Cells(5,14).value& "#" & dDate & "#"
      For i = 15 To PointSheet.UsedRange.Rows.Count '有效行个数
        For j = 1 To 17 '有效列个数         ' PointSheet.UsedRange.Columns.Count
         if trim(PointSheet.Cells(i,j).value)="" then
            Str=Str & "0.00"&"_"
         else
     Str=Str&PointSheet.Cells(i,j).value&"_"
            end if
   if j = 17 then
    Str=Str&"/r"
    Exit For
   end if
        next
      if PointSheet.Cells(i,1).value = "总计" then
              Exit For
            end if
      next
    window.parent.frames.gotop.waitingForResponse=true
    data=psub.sendStringToServer(str,appRoot & "/QFServer?cmd=readQFChkData" & "&flag=readArgData" ,,sdata)
window.parent.frames.gotop.waitingForResponse=false
     If trim(sdata)<>"" And sdata<>"Error" Then
            msgbox xlsfilename+"帐户余额文件上传成功,可进行核对!"
     else
       msgbox xlsfilename+"文件上传失败"
           end if
   xlApp.Quit
   Set xlApp = Nothing '交还控制给Excel
   Set xlBook = Nothing
   Set PointSheet = Nothing
End function