من چند روز پیش توی این سایت یا جای دیگه یه دستور در مورد خواندن و نوشتن یک فایل اکسل پیدا کردم دستورات رو زدم اجرا شد و ok بود ام مجبور شدم ویندوز عوض کنم اطلاعات پرید مغز من هم که کلا در پرشه خواهش میکنم کمکم کنید:

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)
If ows.Cells(1, 1) <> "" Then
ows.Cells(5, 5) = miladitoshamsi(Cells(1, 1))
[/align]

End If
ows.save

End Sub

یک فایل رو میخونه با نام book10 اگه سل اول خالی نبود (محتوی تاریخ میلادی هست)تبدیل به شمسی میکنه.اما نمیدونم کجا اشتباه مینویسم که فایل بعد از ذخیره شدن به صورت read onlyباز میشه و فقط یکبار میشه توش ذخیره کرد بعد ایراد میگیره
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.