Tweet
من چند روز پیش توی این سایت یا جای دیگه یه دستور در مورد خواندن و نوشتن یک فایل اکسل پیدا کردم دستورات رو زدم اجرا شد و 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باز میشه و فقط یکبار میشه توش ذخیره کرد بعد ایراد میگیره
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باز میشه و فقط یکبار میشه توش ذخیره کرد بعد ایراد میگیره