如何变量传递

erfu

请教 大神,  X, y,z 是从单元格里得到的值, 我想把这个excel文件以变量内容保存到文件夹里,
  运行后 变量的内容没有传递, 保存的文件就是  "x-y-z-2016-01-11-test-Parameter_V2.0 - Copy.xls"

帮忙那里出问题?


Sub save()
    Dim x
    Dim y
    Dim z
    x = Left(Range("I3"), 6)
    y = Right(Range("I3"), 3)
    z = Range("R3")
       ChDir _
        "C:\test"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Jacky\x-y-z-2016-01-11-test-Parameter_V2.0 - Copy.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

山菊花

Sub save()
    Dim x
    Dim y
    Dim z
    x = Left(Range("I3"), 6)
    y = Right(Range("I3"), 3)
    z = Range("R3")
       'ChDir _
        "C:\test"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Jacky\" & x & "-" & y & "-" & z & "-2016-01-11-test-Parameter_V2.0 - Copy.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

erfu

本人菜鸟，非常感谢指点！！！！！！！！，