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

[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