[حل شده] محل ذخیره فایل

[kazem1359]

سلام
در کدزیر محل ذحیره در درایو D هست (متن قرمز رنگ) حالا چطور می تونم محل ذخیره از یکی از سلولهای شیت فایل گرفته بشه .
مثلا اگر در سلول a2 شیت 1 متن E:\namha نوشته شده بود محل ذخیره فایل همین بشه نه درایو D.

ممنون

 Sub CommandButton11_Click()
Dim WB As Workbook
Dim wbs As Workbook
Dim sht As Object
Dim strSavePath As String
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
[SIZE=4][COLOR=#ff0000]strSavePath = "d:\"[/COLOR][/SIZE]
Set wbs = ActiveWorkbook
For Each sht In wbs.Sheets
qekha.Copy
Set WB = ActiveWorkbook
WB.SaveAs strSavePath & sht.Name
WB.Close
MsgBox ChrW(68) & ChrW(1582) & ChrW(1585) & ChrW(1608) & ChrW(1580) & ChrW(1740) & ChrW(32) & ChrW(1587) & ChrW(1575) & ChrW(1582) & ChrW(1578) & ChrW(1607) & ChrW(32) & ChrW(1588) & ChrW(1583) & ChrW(32) & ChrW(1583) & ChrW(1585) & ChrW(32) & ChrW(1583) & ChrW(1585) & ChrW(1575) & ChrW(1740) & ChrW(1608)
Exit Sub
Next
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "Failed. Error number=" & Err.Number & ". Error description=" & Err.Description & "."
End Sub

[majid_mx4]

با سلام
میتوانید از سه راه زیر استفاده نمایید
توضیح : دستور اول نام اصلی شیت است نه نام تغییر یافته ولی در دو دستور دیگر از نام تغییر یافته شیت استفاده شده است.مثلا SheetM

strSavePath = Sheet1.Range("A2")
 
 يا
 
 strSavePath = Sheets("SheetM").Range("A2")
 
 يا
 
 strSavePath = ThisWorkbook.Sheets("SheetM").Range("A2")

موفق باشید میر