Question

VBA代码调试出错，请高手指教

Sub 换名存盘()
Dim zhuanye As String, xldate As String, zybh As Integer
Dim xlname As String
With ActiveWorkbook
'取出专业单元格中的文本
zhuanye = Trim(Worksheets(1).Range("c2").Value)
'取出日期单元格中的文本
xldate = Trim(Worksheets(1).Range("j2").Value) ‘日期单元格中是today（）函数
End With
xlname = zhuanye & xldate
ChDir "C:\Users\simba\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\simba\Desktop\" & xlname & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

运行时错误“1004”
Microsoft Office Excel 不能访问文件“C:\Users\simba\Desktop\信号2010\1”。

zhuanye=信号；xldate=2010年1月5日
msgbox xldate '加入这句检查一下xldate的值
结果为 2010\1\5
不知道有啥不对的？

Answer 1

你检查你另存文件时的路径是否有错！其它代码没错，我换路径测试通过了。

Answer 2

兄弟，文件名不能含有\之类的特殊字符，你可以用这种文件名自己手动创建文件看看。
xldate为2010\1\5，需要先转换格式为20100105或2010_1_5之类的，再作为文件名的一部分使用。

Answer 3

xldate = Trim(Worksheets(1).Range("j2").Value) ‘日期单元格中是today（）函数
msgbox xldate '加入这句检查一下xldate的值
End With