# 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
相关推荐
QQ3596773456 小时前
ArcGIS Pro实现基于 Excel 表格批量创建标准地理数据库(GDB)——高效数据库建库解决方案
数据库·arcgis·excel
星空的资源小屋2 天前
Digital Clock 4,一款免费的个性化桌面数字时钟
stm32·单片机·嵌入式硬件·电脑·excel
揭老师高效办公2 天前
在Excel和WPS表格中批量删除数据区域的批注
excel·wps表格
我是zxb2 天前
EasyExcel:快速读写Excel的工具类
数据库·oracle·excel
辣香牛肉面2 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
ljf88382 天前
Java导出复杂excel,自定义excel导出
java·开发语言·excel
tebukaopu1482 天前
json文件转excel
json·excel
shizidushu2 天前
How to work with merged cells in Excel with `openpyxl` in Python?
python·microsoft·excel·openpyxl
Eiceblue3 天前
使用 C# 设置 Excel 单元格格式
开发语言·后端·c#·.net·excel
acaad3 天前
Apache Poi 实现导出excel表格 合并区域边框未完全显示的问题
spring·apache·excel