[已解决]如何编写以固定单元格的内容作为另存为文件的文件名

zhangh9000

KyNCfWAx.rar (9.93 KB, 下载次数: 118)

2010-5-31 10:52 上传

点击文件名下载附件
如何编写以固定单元格的内容作为另存为文件的文件名
已固定单元格的内容作为另存为文件的文件名，如何编写宏？详细见附件

最佳答案

月排行榜 / 总排行榜

qinqh_yl

2010-5-31 17:58

改为如下试试：

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False        '关闭屏幕刷新
PH = "D:\" & Application.Text([C2], "yyyymmdd") & ".xls"
If Dir(PH) = "" Then
   ActiveWorkbook.SaveAs Filename:=PH
ElseIf MsgBox(Chr(34) & "文件：" & Application.Text([C2], "yyyymmdd") & Chr(34) & "已经存在是否重新保存?", vbYesNo, "提示!") = vbYes Then
   Application.Dialogs(xlDialogSaveAs).Show
End If
Application.ScreenUpdating = True          '打开屏幕刷新
End Sub

[此贴子已经被作者于2010-5-31 18:02:18编辑过]

跳转到最佳答案楼层

木文

用V会比较好一点吧.

BAIXINGR

不会。看下别人的做法

过江龙

看看是不是你所想要的效果？ Dm2AWDYG.rar (13.08 KB, 下载次数: 148)

2010-5-31 12:08 上传

点击文件名下载附件
如何编写以固定单元格的内容作为另存为文件的文件名

zhangh9000

楼上的我 运行显示

运行时错误”91“对象变量或WITH块变量未设置

调试后显示   Wb.SaveAs Filename:=PH    这个语句显示黄色，高手们能解释一下吗

qinqh_yl

改为如下试试：

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False        '关闭屏幕刷新
PH = "D:\" & Application.Text([C2], "yyyymmdd") & ".xls"
If Dir(PH) = "" Then
   ActiveWorkbook.SaveAs Filename:=PH
ElseIf MsgBox(Chr(34) & "文件：" & Application.Text([C2], "yyyymmdd") & Chr(34) & "已经存在是否重新保存?", vbYesNo, "提示!") = vbYes Then
   Application.Dialogs(xlDialogSaveAs).Show
End If
Application.ScreenUpdating = True          '打开屏幕刷新
End Sub

[此贴子已经被作者于2010-5-31 18:02:18编辑过]

红豆1988

这个下载看了，里面没有相应的函数来操作啊，我看不懂，高手指点