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

**Amir Ghasemiyan** · 2016/07/15, 22:59

نوشته اصلی توسط 2009tv

با سلام و احترام
ممنون میشوم مثل همیشه سوالات من را پاسخ دهید:
سوال اول:
در vb به دستوری نیاز دارم تا فایلی ورود را از مسیری مثلاً درایو D و پوشه DATA باز نماید؟ (آیا اگر پوشه به زبان فارسی نام گذاری شده باشد در استفاده از دستور دچار مشکل می شوم؟)
سوال دوم:
در اکسل دکمه ای برای اجراء یک ماکرو گذاشته ام و بروی دکمه هم متنی نوشته ام. آیا می توان از طریق دستوری در VB این متن (متن روی دکمه) را مطابق با یک شرط تغییر داد؟
با سپاس

سلام دوست عزیز
اگر این آدرس رو دستی در محیط vba بنویسید بله به مشکل میخورید اما اگر در سلولی بنویسید و ارجاع بدین خیر مشکلی پیش نمیاد
متن دکمه رو هم میشه تغییر داد

**amir_ts** · 2016/07/15, 23:10

با سلام
جواب سوال 2 با توجه به شرایط

a1=10	excel
a1=15	iran
a1=20	exceliran

کد:

[LEFT]
Sub test()

If Range("a1").Value = 10 Then
        Sheet1.CommandButton1.Caption = "excel"
             ElseIf Range("a1").Value = 15 Then
        Sheet1.CommandButton1.Caption = "iran"
        Else
            Range("a1").Value = 20
        Sheet1.CommandButton1.Caption = "exceliran"
End If
End Sub
[/LEFT]

**2009tv** · 2016/07/16, 19:48

سلام ممنون از پاسخگویی سوال دوم
در مورد سوال اول لطف می نمایید نمونه یک دستور که می توان در vb فایل word را باز نماییم (یعنی خیلی عادی فقط فایل ورد توسط برنامه ورد باز گردد) را برایم مثال بزنید!
ممنون

**amir_ts** · 2016/07/17, 00:11

با سلام
کد زیر رو امتحان کنید.فرض بر این است که در داخل درایو D پوشه ای به نام فارسی دیتا و فایل Word ی به نام exceliran دارید.که آدرس رو به این صورت در سلول A1 قرار دادید.

کد PHP:


D:\دیتا\exceliran.docx

کد:

[LEFT]
Sub OpenWordDoc()

Dim WordApp, WordDoc As Object
Dim file As String

file = Range("a1").Value
   
    Set WordApp = CreateObject("Word.Application")
          
    Set WordDoc = WordApp.Documents.Open(file)

     WordApp.Visible = True
     
     
End Sub
[/LEFT]