VBScript를 절약 원래 이름

Question

새로운 형식으로 파일을 엑셀 I가이 코드는, 모두 잘 작동하지만 난 원래 파일 이름을 유지하는 얻을 방법을 알아낼 수 없습니다 :

Set app = CreateObject("Excel.Application") 
app.Visible = False 
app.DisplayAlerts = False 

Set fso = CreateObject("Scripting.FileSystemObject") 

For Each f In fso.GetFolder("F:\Billing_Common\autoemail").Files 
    If LCase(fso.GetExtensionName(f)) = "xlsx" Then 
    Set wb = app.Workbooks.Open(f.Path) 
filename = f 
wb.SaveAs "F:\Billing_Common\autoemail\filename.xls", -4143 
wb.Close SaveChanges=True 

    End if 
Next 

app.Quit 
Set app = Nothing 
Set fso = Nothing 

것은 어떤 도움이 많이 될 것을 고맙다!

감사

당신은 기본 이름을 유지하고 단지 확장자를 변경하고자하는 의미

Answer 1

? 즉 다음과 같이 얻을 수있다 : 당신이 나중에 이전 파일을 삭제하려면

newname = fso.BuildPath(wb.Path, fso.GetBaseName(wb.Name) & ".xls") 
wb.SaveAs newname, -4143 

, 당신은 이런 식으로 작업을 수행 할 수 있습니다

f.Delete True 

난 단지에 통합 문서를 닫은 후이 작업을 수행 할 것 안전한쪽에 있으십시오.

---

BTW, 난 이미

wb.Close SaveChanges=True 

당신이 그것을 수행 생각하는 것 무엇을하지 않는 당신을 말했다.

wb.Close True 

을 매개 변수 이름없이 사용하십시오.