# EXCEL VBA批量获取excel标题内容并填写到当前文件中

EXCEL VBA批量获取excel标题内容并填写到当前文件中

python 复制代码
Sub test()
  Dim r&, i&
  Dim arr, brr
  Dim wba As Workbook
  Dim wsa As Worksheet
  Set wba = ThisWorkbook
  Set wsa = wba.Worksheets(1)
  'wsa.Range("b1:GY21").Clear
  wsa.Range("A2:GY21").Clear
  Dim namenum As Integer
  namenum = 2 '从第二行开始
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim mypath$, myname$
  Dim csvcount
  Dim sumproduct
  Dim unull
  Dim zhushicishu
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  mypath = ThisWorkbook.Path & "\原始数据存放\"
  myname = Dir(mypath & "*.*")
  Randomize Timer
  csvcount = 0
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  j = 65
  Do While myname <> ""
    Set wb = GetObject(mypath & myname)
    Windows(wb.Name).Visible = True
    sumproduct = 0
    
    With wb
      With .Worksheets(1)
      wsa.Cells(namenum, 1) = myname

      
      For i = 1 To 200
      
        If wb.Worksheets(1).Cells(1, i) <> "" Then
            If (i + 64) <= 90 Then
             wsa.Cells(1, i + 1) = Chr(i + 64)
            Else
                wsa.Cells(1, i + 1) = Chr(65) & Chr(j)
                j = j + 1
            End If
            wsa.Cells(namenum, i + 1) = Trim(wb.Worksheets(1).Cells(1, i))
        Else
            Exit For
        End If
        
      
      Next i
            namenum = namenum + 1
       
      End With
      .Close True
    End With
    myname = Dir
  Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "数据写入完毕!"
End Sub
相关推荐
CodeCraft Studio21 小时前
Excel处理控件Aspose.Cells教程:使用 Python 将 Pandas DataFrame 转换为 Excel
python·json·excel·pandas·csv·aspose·dataframe
星空的资源小屋1 天前
PPTist,一个完全免费的 AI 生成 PPT 在线网站
人工智能·python·电脑·excel
开开心心_Every1 天前
免费语音合成工具:66种音色随心选
人工智能·面试·java-ee·计算机外设·电脑·maven·excel
偷心伊普西隆2 天前
EXCEL VBA 清空Excel工作表(Sheet)的方法
microsoft·excel
Coding_Doggy2 天前
苍穹外卖Day12 | Apache POI、导出Excel报表、HttpServletResponse、工作台
excel
l1t3 天前
张泽鹏先生手搓的纯ANSI处理UTF-8与美团龙猫调用expat库读取Excel xml对比测试
xml·人工智能·excel·utf8·expat
Source.Liu3 天前
【Python自动化】 21 Pandas Excel 操作完整指南
python·excel·pandas
会飞的小菠菜3 天前
如何根据Excel数据表生成多个合同、工作证、录取通知书等word文件?
word·excel·模板·数据表·生成文件
Access开发易登软件4 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表4 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量