Question

用VB宏 批量处理文件夹内多个excel表格文件 在文件夹内所有excel文件的固定位置 插入 相同的内容

Answer 1

sub 多文件写入
Dim XLS
Xls = Dir(excel文件夹路径 & "\*.xls")　 '指定要遍历excel文件的路径及文件类型
Do While Xls <> ""
Set Xls = Workbooks.Open(excel文件夹路径 & "\" & Xls) 　'打开excel文件
Sheets(1).Select
Sheets(1).Cells(1, 1).Value = "AAAA" '在A1单元格输入AAAA　（行序号，列序号）
Xls.Close True
Xls = Dir '下一个excel文件
Loop
Set Xls = Nothing '释放变量内存
end sub

Answer 2

你要求VB是什么版本的？以及EXCEL是什么版本的？