چگونگی خواندن و نوشتن در اکسل

[nasim702]

چطور میتونیم در ماکرو اکسل یک فایل اکسل رو که در جای دیگری است باز کنیم بعد درآن تغییرات بدیم بعد ذخیره کنیم من دستورات زیر را می زنم درست کار نمیکنه
Private Sub CommandButton1_Click()
Dim oxl As Excel.Application
Dim owb As Excel.Workbook
Dim ows As Excel.Worksheet
Set oxl = New Excel.Application
Set owb = oxl.Workbooks.Open("i:\book10.xls")
Set ows = owb.Worksheets(1)
دستورات
ows.save
oxl.quit
End Sub
تغییرات در شیت فعال میزنه بجای اینکه درbook10 ذخیره بشه چرا؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[tosco3652]

چطور میتونیم در ماکرو اکسل یک فایل اکسل رو که در جای دیگری است باز کنیم بعد درآن تغییرات بدیم بعد ذخیره کنیم

سلام دوست عزیز
کدی را که شما نوشتی رو تست کردم دیدم مشکل داره.
یک کدی را آماده کردم که میتونی از آن استفاده کنی.
ضمنا یک مثال هم برای شما آماده کردم که می توانی دانلودش کنی.
امیدوام که به کارشما بیاید.

Dim Text As String
Workbooks.Open (ActiveWorkbook.Path & "\Firozjaii.xlsx")

Text = InputBox("input name:", "FIROZJAII", "firozjaii 09111161996")
ActiveWorkbook.Sheets("Sheet1").Range("a5") = Text
ActiveWorkbook.Save
ActiveWorkbook.Close

[tosco3652]

لازم بذکر می باشد، برای اینکه بخواهیم هر فایل اکسل را در هر جای سیستم فراخوان کنیم و اطلاعات آن را تغییر دهیم کافیست بجای کد زیر در پاسخ قبلی :

Workbooks.Open (ActiveWorkbook.Path & "\Firozjaii.xlsx")

از کد زیر استفاده نمایید:

Workbooks.Open Application.GetOpenFilename

موفق باشید.