Excel中怎样利用vba实现-全选-复制-新建Excel文件-选择性数值粘贴到新文件-保存,保存文件名为某一单元格

2024-12-03 14:51:51
推荐回答(5个)
回答1:

既然都可以说得那么清楚,我就把说明与注意点,直接备注在代码中了,完整代码如下

Sub admin()
Dim xWk As Workbook, xSh As Worksheet, xRan As Range
Dim nWk As Workbook

'要复制内容为当天工作表
Set xWk = ActiveWorkbook
Set xSh = ActiveSheet
'保存的文件名为A1单元格里的内容,如果是其它单元格,修改这里
Set xRan = xSh.Range("A1")

Set nWk = Workbooks.Add
xSh.Cells.Copy
nWk.Worksheets(1).Range("A1").PasteSpecial xlPasteValues
'保存在与复制内容同一目录下
nWk.SaveAs xWk.Path & "\" & xRan.Value

End Sub

回答2:

又不是什么复杂的操作,直接通过录制宏即可实现

回答3:

录制宏最简单易懂

回答4:

你这个需要用vba写代码的,请提供一下原表格,我可以帮你写。发我邮箱吧。

回答5:

不会重名吧 , 1052974911@qq.com