یافتن نام فایل باز شده در vba

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • kayba

    • 2017/10/28
    • 19
    • 42.00
    #1

    پرسش یافتن نام فایل باز شده در vba

    با سلام
    با استفاده از vba میخوام چند فایل اکسل باز کنم، روی اون ها کاری انجام بدم.
    اینجا میخوام به جای دستور open و مسیر و اسم ثابت از getopenfilename() استفاده کنم تا کاربر خودش فایل انتخاب کنه.
    اسم فایل انتخابی با چه دستوری داخل یه متغیر بریزم که بتونم جلوتر به این فایل اشاره کنم؟
    برچسب ها: هیچ‌کدام
    • Amir Ghasemiyan

      • 2013/09/20
      • 4598
      • 100.00
      #2
      سلام دوست عزیز
      اگر منظورتون رو درست متوجه شده باشم با این کد نام و آدرس فایل در یک متغیر ذخیره میشه.(Filename ) و بعد میتونید نام فایل رو ازش استخراج کنید (Name)

      کد:
      Filename = Application.GetOpenFilename
arr = Split(Filename, "\")
Name = arr(UBound(arr))

        کامنت

        • kayba

          • 2017/10/28
          • 19
          • 42.00
          #3
          با تشکر از شما، ولی به خاطر ضعف من، به مشکل دیگه ای خوردم.
          به عنوان مثال همین کد خیلی ساده ارور out of range میگیرم.
          کد:
          Dim name As StringFilename = Application.GetOpenFilename
arr = Split(Filename, "\")
name = arr(UBound(arr))
MsgBox Workbooks(name).Worksheets("Sheet1").Range("a1").Value
          Last edited by kayba; 2021/04/04, 17:54.

            کامنت

            • Amir Ghasemiyan

              • 2013/09/20
              • 4598
              • 100.00
              #4
              دوست عزیز کدی که شما نوشتین فایل رو باز نمیکنه. فقط پنجره باز کردن رو فعال میکنه.
              کل کدی که شما نیاز دارید به این صورت هست:

              کد:
              Dim name As String
Filename = Application.GetOpenFilename
arr = Split(Filename, "\")
name = arr(UBound(arr))
Workbooks.Open (Filename)
MsgBox Workbooks(name).Worksheets("sheet1").Range("a1").Value

                کامنت

                قبلی template بعدی
                چند لحظه..