مشاهده نسخه کامل
: ali708
07-10-2007, 11:10
من توی یک ماکرو اکسس 2007 یک کد نوشتم برای باز کردن یک فایل اکسل و بعد ش سیو کردن اون . اما ارور میده .از دوستان کسی می تونه کمک کنه . کد برنامه اینه:
Dim Excelsheet As Object
Set Excelsheet = CreateObject("Excel.sheet
Set Excelsheet = Excel.workbooks.Open("g:\excel\a.xlsx
Excelsheet.SaveAs "g:\excel\a.xlsx
Excelsheet.Application.Quit
Set Excelsheet = Nothing
End Sub
Dim Excelsheet As Object
Set Excelsheet = CreateObject("Excel.sheet
Set Excelsheet = Excel.workbooks.Open("g:\excel\a.xlsx
Excelsheet.SaveAs "g:\excel\a.xlsx
Excelsheet.Application.Quit
Set Excelsheet = Nothing
End Sub