excel 中,怎么利用vba把文件另存为另一个文件名?

要求:另存位置在C:\DocumentsandSettings\Administrator\桌面,文件名为“财务部20110604至0610.xls”,其中2011060... 要求:另存位置在C:\Documents and Settings\Administrator\桌面,文件名为“财务部20110604至0610.xls”,其中20110604取的是当前日期-6 ,0610取自当前日期。
回答正确,追加分!谢谢!
展开
 我来答
做一个快乐的茶农
高粉答主

2019-07-03 · 每个回答都超有意思的
知道答主
回答量:1396
采纳率:100%
帮助的人:33.3万
展开全部

1、桌面上第一章中的每个工作簿名称放置到工作表中。

2、新建一个工作簿,将其命名为“第一章目录”,按alt+f11组合键,打开宏界面。

3、在VBA中,单击插入按钮,点击插入菜单下的模块,即可新建模块,系统默认为模块。

4、使用do~~loop循环语句,在VBA中输入。

5、返回名为“第一章目录”的工作簿中,按alt+f8组合键,弹出宏对话框。

6、点击宏对话框中的执行按钮,宏对话框自动关闭,代码自动执行,即第一章中的每个文件夹名称全部显示在工作表sheet1中。最后根据自己的需要调整格式即可。

59分粑粑分享生活
高粉答主

2020-04-13 · 专注生活好物分享,解答日常方方面面的问题
59分粑粑分享生活
采纳数:326 获赞数:119806

向TA提问 私信TA
展开全部

实现的方法和详细的操作步骤如下:

1、首先,在桌面第一章中,每个工作簿的名称都放在工作表中,如下图所示,然后进入下一步。

2、其次,完成上述步骤后,创建一个新的工作簿,将其命名为“第一章目录”,然后按“alt  + f11”组合键打开“宏”界面,如下图所示,然后进入下一步。

3、接着,完成上述步骤后,在VBA中,单击“插入”按钮,然后选择“模块”选项以创建新模块,如下图所示,然后进入下一步。

4、然后,完成上述步骤后,输入如下红框中的代码,如下图所示,然后进入下一步。

5、随后,完成上述步骤后,返回到名为“第一章目录”的工作簿,然后按“alt  + f8”组合键调出“宏”对话框,如下图所示,然后进入下一步。

6、最后,完成上述步骤后,单击“宏”对话框中的“执行”按钮,“宏”对话框自动关闭,代码自动执行,即第一页中的每个文件夹名称都显示在sheet1中,可以根据需要调整格式,如下图所示。这样,问题就解决了。

本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
cnbubble
2011-06-11 · TA获得超过2606个赞
知道大有可为答主
回答量:1990
采纳率:83%
帮助的人:749万
展开全部
实际我也不太了 解你要做什么,“财务部20110604”这个文件是固定的吗?只是要另存的文件是变化的?(和当前日期有关?)
参照下面的 代码。希望能给你提示

ub Macro1()
'
' Macro1 Macro
' 宏由 cnbubble 录制,时间: 2011-6-11
'

'
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\桌面\财务部20110604.xls"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\桌面\" & Format(Date, "MMDD") & ".xls"
ActiveWorkbook.Close
End Sub
追问
谢谢,我要的就是这个,又改了改,最终是这样写的:
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\桌面\" & "财务部" & Format(Date, "yyyyMMDD") - 6 & "至" & Format(Date, "MMDD") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hyu3170
2015-07-22 · TA获得超过3.6万个赞
知道大有可为答主
回答量:5495
采纳率:85%
帮助的人:492万
展开全部
代码如下:
Sub lqxs()
Dim NowWorkbook As Workbook
Dim FileName$, nm$
On Error GoTo line
Sheet1.Activate
nm = [a1].Value
[a1].CurrentRegion = [a1].CurrentRegion.Value
FileName = Application.GetSaveAsFilename _
(InitialFileName:="D:\" & nm, _
fileFilter:="Excel files(*.xls),*.xls,All files (*.*),*.*")
If FileName <> "False" Then
ThisWorkbook.SaveAs FileName
GoTo line
End If
Exit Sub
line:
ThisWorkbook.Close False
End Sub

注:nm为新的文件名,该段代码是将文件名放于A1单元格内的,保存在D盘根目录下,可根据实际情况作出修改。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
tfdgumqrhk
2011-06-10 · 超过14用户采纳过TA的回答
知道答主
回答量:47
采纳率:0%
帮助的人:32.4万
展开全部
你最后一段话是什么意思? 是不是指的是自动判断当前日期,取其日期来生成文件名?还是说文件名就叫做:财务部20110604至0610.xls
追问
肯定是取当前日期喽~~能帮帮我吗?
追答
哦,不好意思,这点我还不会弄,呵
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式