بازكردن فایل اكسل دیگر از طریق vba با چند شرط

**mrhartsclube** · 2020/10/05, 20:36

سلام دوست عزیز

امیدوارم این کد براتون کارساز باشه:

کد PHP:


Dim fileName As String

Dim fileExists As String

    fileName = ThisWorkbook.Path & "Folder1\Folder2\" & TextBox1.Text & ".xlsx"

    fileExists = Dir(fileName)


   If fileExists = "" Then

        MsgBox "فايل مورد نظر موجود نيست"

    Else

        Workbooks.Open fileName

    End If

**ظهور 313** · 2020/10/06, 09:12

بابت وقتی كه گذاشتید ممنونم
اما متاسفانه جواب نمیده، یعنی مدام میره روی پیغام و میگه فایل موجود نیست

**ظهور 313** · 2020/10/06, 13:23

ممنون
درست شد، یك اسلش اول Folder1 كم داشت

**mrhartsclube** · 2020/10/06, 19:34

نوشته اصلی توسط ظهور 313

ممنون
درست شد، یك اسلش اول Folder1 كم داشت

واقعا عذر میخوام بابت این اشتباه
من کد رو خودم تست میکنم بعد میذارم
ولی متاسفانه انقدر با TextBox ای که اینجا توی سایت متن ریپلایم رو توش مینویسم مشکل دارم که هر از گاهی ازین اتفاقا میفته [emoji120]

Sent from my iPhone using Tapatalk