如何给多个excel表按文件名插入标题?

来源：百度知道 编辑：UC知道 时间：2024/05/25 02:39:08
c:\excel 目录下 有900excel多个文件，都没有标题

现在有个标题文本bt.txt
H1_1_1,住户数量表,
H1_1_2,人口数量表,
H1_1_3,户籍数量表，......

如何按照文件名把标题插入到excel中去。

就是在H_1_1_1.xls的第一行 插入"住户数量表"
就是在H_1_1_2.xls的第一行 插入"人口数量表"
就是在H_1_1_3.xls的第一行 插入"户籍数量表"

等等如此......

请问如何实现，谢谢。

我建议你的做法是，新建一个工作本，然后打下那个BT.TXT,选择用逗号分隔，这样会得到一个名为BT的工作表，A列是H1_1_1这些信息，B列是住户数量表这些信息，然后把下面的代码COPY该工作本的VBA代码页

Sub Macro1()

Dim count As Integer, i As Integer
Dim str As String
Dim wb As Workbook

Set wb = ActiveWorkbook

count = Range("A65536").End(xlUp).Row

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = 1 To count
str = Range("A" & i).Value & ".xls"
Workbooks.Open "C:\excel\" & str
Workbooks(str).Worksheets("sheet1").Rows("1:1").Insert xlDown 'SHEET1是该工作表的名，由于你没有提供，我假设是SHEET1
Workbooks(str).Worksheets("sheet1").Range("A1").Value = wb.Worksheets("BT").Range("B" & i).Value
Workbooks(str).Close True
wb.Activate
Next

End Sub