بدست آوردن نام فایل فعال

[mfr]

سلام ... آیا تابعی وجود داره که بشه اسم فایل اکسلی که بازه رو ازش استخراج کرد و اونو مثلا در فرمان زیر بکار برد ؟
Windows("varizi.xlsm").Activate

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

کد ذیل مسیر کامل ورک بوک اکتیو را نمایش میدهد

Private Sub CommandButton1_Click()

MsgBox ActiveWorkbook.FullName

End Sub 

[mfr]

با سلام

کد ذیل مسیر کامل ورک بوک اکتیو را نمایش میدهد

Private Sub CommandButton1_Click()

MsgBox ActiveWorkbook.FullName

End Sub 

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

[iranweld]

با سلام

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

Sub test()
Dim text As String
filetoopen = Application.GetOpenFilename(FileFilter:="Excel Workbooks (*.xls*),*.xls*", Title:="Open Database File")
text = filetoopen
MsgBox  text
End Sub 

[abootorab]

سلام ... آیا تابعی وجود داره که بشه اسم فایل اکسلی که بازه رو ازش استخراج کرد و اونو مثلا در فرمان زیر بکار برد ؟
Windows("varizi.xlsm").Activate

با درود
ضمن تشکر از جناب iranweld، تابع زیر لیست اسامی و مسیرهای فایل هایی که باز هستند به جز فایل فعال (ActiveWorkbook) به شما میدهد.
نکته: خروجی تابع بصورت آرایه می باشد

Function OpenWorkbooksName() As String()
    Dim wb As Workbook
    Dim wbN() As String
    ReDim wbN(Workbooks.Count - 1)
    
    i = 1
    For Each wb In Workbooks
        If wb.Name <> ActiveWorkbook.Name Then
            wbN(i) = wb.FullName
            i = i + 1
        End If
    Next
    
    OpenWorkbooksName = wbN
End Function