2024年4月15日发(作者：)
wps 宏合并excel 代码
以下是一个使用WPS的宏代码，用于合并多个Excel文件：
```vba
Sub MergeExcelFiles()
Dim FolderPath As String
Dim FileName As String
Dim Sheet As Worksheet
Dim DestinationSheet As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
' 设置合并后的目标工作表
Set DestinationSheet =
(After:=(ThisWor
))
= "合并后的数据"
(1, 1).Value = "文件名"
' 选择包含要合并的Excel文件的文件夹
With alog(msoFileDialogFolderPicker)
.Title = "请选择包含要合并的Excel文件的文件夹"
.Show
If . = 0 Then
Exit Sub
End If
FolderPath = .SelectedItems(1) & ""
End With
' 确定文件夹中的所有Excel文件
FileName = Dir(FolderPath & "*.xls*")
' 遍历每个Excel文件并合并数据
Do While FileName <> ""
' 打开Excel文件
FolderPath & FileName
Set Sheet = (1)
' 确定源工作表中的最后一行和最后一列
LastRow = (, 1).End(xlUp).Row
LastColumn = (1,
).End(xlToLeft).Column
' 将文件名添加到目标工作表
((,
1).End(xlUp).Row + 1, 1).Value = FileName
' 将源工作表的数据复制到目标工作表
((1, 1), (LastRow,
LastColumn)).Copy _
((,
2).End(xlUp).Row + 1, 2)
' 关闭源工作簿
False
' 获取下一个文件名
FileName = Dir
Loop
' 删除空白的第一列
s(1).Delete
' 格式化合并后的数据
t
t
("A1").Select
End Sub
```
请注意，此代码是用于WPS的VBA宏环境，需要在WPS中
打开Visual Basic编辑器并将代码粘贴到该编辑器中。要运行
此宏，请按下Alt + F8，选择“MergeExcelFiles”并单击“运行”。
发布者：admin，转转请注明出处：http://www.yc00.com/news/1713120844a2187062.html
评论列表（0条）