复制内容到新建文件，但是保存到根目录下面去了

bavinfeather

求助 我想保存在旧文件相同的文件夹里面。。。但是保存到根目录下面去了

代码如下。。。



Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim wb As Workbook
Dim sh As Worksheet
    Dim iFile As String
    iFile = "Daily Pending Sample Backlog_" & Format(Date, "yyyymmdd") & ".xlsx"
Set wb = Workbooks.Add
ThisWorkbook.Worksheets("SummarySheet").Copy wb.Sheets(Sheets.Count)
    ActiveSheet.Name = "IC"
     ThisWorkbook.Worksheets("EVBlist").Copy wb.Sheets(Sheets.Count)
    ActiveSheet.Name = "EVB"
    For Each sh In wb.Sheets
    If sh.[a2] = "" Then
    sh.Delete
    End If
    Next
    wb.SaveAs Filename:=iFile
wb.Close
    MsgBox "ok"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Yalishanda30

iFile =ThisWorkbook.Path & "\" &  "Daily Pending Sample Backlog_" & Format(Date, "yyyymmdd") & ".xlsx"

bavinfeather

我增加了 拷贝时只复制数值
ThisWorkbook.Worksheets("SummarySheet").Copy wb.Sheets(Sheets.Count).PasteSpecial Paste:=xlPasteValues

但是无法运行。。怎么办