[حل شده] سوال چگونگی کار با فایل اکسل دوم که بسته است

[sajjadstr]

با عرض سلام
فرض کنید ستون A1=1 باشد و فایل اکسل اول با نام test1 می باشد و این فایل بسته است

حالا می خواهم در فایلی دیگر مثلا با نام test 2 دکمه ای بگذارم که با کلیک کردن روی آن مقدار A1 +1 شود و در نتیجه مقدار A2=2 شود و به ازای هر بار کلیک کردن یک واحد به سط آخر ستون A فایل اکسل test1 اضافه شود و علاوه بر اینکه فایل بسته test1 را تغییر می دهد lمقدار آخرین ستون A را در سلولی از فایل باز test2 نمایش دهد
اگر ابهامی در طرح سوالم بود بفرمایید تا بهتر توضیح بدهم

[sajjadstr]

https://forum.exceliran.com/showthread.php/14509-%D8%A8%D9%86-%D8%A8%D8%B3%D8%AA-%D8%AF%D8%B1-%D9%BE%D8%B1%D9%88%DA%98%D9%87-%D8%A7%DA%A9%D8%B3%D9%84%DB%8C-%D9%85%D9%86-(%D9%85%DB%8C%DA%AF%D9%86-%D9%86%D8%A7%D8%A7%D9%85%DB%8C%D8%AF%DB%8C-%D8%B4%DA%A9%D8%B3%D8%AA)-%DA%A9%D9%85%DA%A9%D9%85-%DA%A9%D9%86%DB%8C%D8%AF-%D9%86%D8%B4%DA%A9%D9%86%D9%85

به لینک بالا مراجعه کنید مشکلم رو در لینک بالا حل کنید با تشکر

[iranweld]

چشم

- - - Updated - - -

فولدر test در فایل پیوست را در درایو c کپی کنید و سپس فایل همراه را اجرا کنید files-in-a-directory.xls

Private Sub CommandButton1_Click()

Dim directory As String, fileName As String, sheet As Worksheet, xx As String, z1 As Integer


Application.ScreenUpdating = False

Application.DisplayAlerts = False

directory = "C:\test\"

fileName = Dir(directory & "test.xl??")

        
    Workbooks.Open (directory & fileName)
    
    For Each sheet In Workbooks(fileName).Worksheets
    
    If sheet.Name = "Sheet1" Then
    
    z1 = sheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
               
    sheet.Cells(z1, 1).Value = z1

    
    End If
    
        
    Next
    
    Workbooks(fileName).Save
    
    Workbooks(fileName).Close
    
    Range("A3") = z1
    
Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub