پرسش save as نمودن فایل

[kazem1359]

سلام در کد داده شده فایل اکسلم در درایو E هستش موقع سیو از در درایو d ذخیره میشه حالا می خواهم فایلم در درایوی ذخیرهبشه که فایل اکسلم قرارداره یعنی درایو E

Sub Macro2()
'
' Macro2 Macro
'

'
    
FileName1 = Sheet2.Range("p3")
    ActiveWorkbook.SaveAs FileName:="d:\save as varize group.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        If (FileName <> "") Then
   Kill pathfile & "\" & FileName
End If
         MsgBox ChrW(68) & ChrW(1601) & ChrW(1575) & ChrW(1740) & ChrW(1604) & ChrW(32) & ChrW(32) & ChrW(1584) & ChrW(1582) & ChrW(1740) & ChrW(1585) & ChrW(1607) & ChrW(32) & ChrW(1588) & ChrW(1583) & ChrW(32) & ChrW(1583) & ChrW(1585) & ChrW(32) & ChrW(1605) & ChrW(1587) & ChrW(1740) & ChrW(1585) & ChrW(32) & ChrW(1583) & ChrW(1585) & ChrW(1575) & ChrW(1740) & ChrW(1608) & ChrW(32)


    Application.DisplayAlerts = False
End Sub 

[حسام بحرانی]

ChrW

سلام دوست عزیز
ابتدا مانند تصویر d را به e و سپس عدد 68 را به 69 تغییر بدید تا مشکلتون حل بشه.

Sub Macro2()
'
' Macro2 Macro
'

'
    
FileName1 = Sheet2.Range("p3")
    ActiveWorkbook.SaveAs Filename:="e:\save as varize group.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        If (Filename <> "") Then
   Kill pathfile & "\" & Filename
End If
         MsgBox ChrW(69) & ChrW(1601) & ChrW(1575) & ChrW(1740) & ChrW(1604) & ChrW(32) & ChrW(32) & ChrW(1584) & ChrW(1582) & ChrW(1740) & ChrW(1585) & ChrW(1607) & ChrW(32) & ChrW(1588) & ChrW(1583) & ChrW(32) & ChrW(1583) & ChrW(1585) & ChrW(32) & ChrW(1605) & ChrW(1587) & ChrW(1740) & ChrW(1585) & ChrW(32) & ChrW(1583) & ChrW(1585) & ChrW(1575) & ChrW(1740) & ChrW(1608) & ChrW(32)


    Application.DisplayAlerts = False
End Sub 

موفق باشید.

[kazem1359]

سلام منظور بنده این بود که ممکن است فایل بیان شده در درایو دیگری باشه و ما می خواهیم در هر درایوی فایل قرارداشت فایل سیواز ان هم در ان درایو باشه چون فایل در چندین سیستم کپی میشه و ممکن است هر کدام در درایو مختلفی کپی شوند

[kazem1359]

سلام اساتید محترم لطفا راهنمایی کنید؟

[hasa2]

به جای آدرس دادن مستقیم، از کد زیر استفاده کنید تا فایلتون دقیقا جایی ذخیره بشه که فایل اکسل تون قرار داره:

ThisWorkbook.Path

[kazem1359]

سلام منظورتان متوجه نشدم کد ی که دادین را باید کجای فرمول داده شده خودم قرار بدم؟.