帮忙修改下 另存为工作表 到 指定文件下的路径问题

kxlong3134

详见附件 附件有说明哈

kxlong3134

{:soso_e154:}

grf1973

Sub 领款打印()

If Sheets("领款单").[b1] = "" Then MsgBox "金额 不能为空": Exit Sub
If Sheets("领款单").[e5] = "" Then MsgBox "申请人 不能为空": Exit Sub

        
    Dim rng As Range
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set rng = Range("a1:e8")
    With ActiveSheet.Copy
'   ChDir "D:\kankan\"
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\记录保存\" & Cells(5, 5) & Cells(7, 5) & ".xls"
    ActiveWorkbook.Close
   
    End With
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "ok"

   
End Sub

grf1973

Sub 领款打印()

If Sheets("领款单").[b1] = "" Then MsgBox "金额 不能为空": Exit Sub
If Sheets("领款单").[e5] = "" Then MsgBox "申请人 不能为空": Exit Sub

        
    Dim rng As Range
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    folder = ThisWorkbook.Path & "\记录保存"
    If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder    Set rng = Range("a1:e8")
    With ActiveSheet.Copy
    ActiveWorkbook.SaveAs folder & "\" & Cells(5, 5) & Cells(7, 5) & ".xls"    ActiveWorkbook.Close
   
    End With
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "ok"

   
End Sub

kxlong3134

grf1973 发表于 2013-5-10 11:30
Sub 领款打印()

If Sheets("领款单"). = "" Then MsgBox "金额 不能为空": Exit Sub

非常感谢哈  不知道能不能加我Q呢  以后不会可以咨询下哈