ایجاد یک سطر جدید در فایل اکسل با استفاده از VB6

[mohammadgsp]

سلام دوستان...
می خواستم یه برنامه بنویسم که در اون چهار مقدار اطلاعات (مثلا.نام .نام خانوادگی.تلفن.ایمیل)از فرم دریافت بشه و در چهار ستون از یک فایل exel ذخیره بشه.(نام فایل user)
اما هر چی فکر می کنم چیزی به ذهنم نمی رسه..آموززشم پیدا نگردم..ممنون می شم اگه کمکم کنید.

[meys34]

سلام

با استفاده از CreateObject("Excel.Application") میشه به برنامه Excel (اگر روی سیستم نصب باشه) دسترسی کامل داشت...


این دستور هم AppExcel.Workbooks.Open("C:\User.xls") برای باز کردن یه فایل excel هست...

اگر بخواهید میشه با AppExcel.Workbooks.Add فایل excel جدید هم ساخت...

و در نهایت با xlwbook.Range("A1").Value میشه متن هر سلولی رو تغییر داد...

برای ایجاد سطر جدید هم از دستور xlwbook.Rows(1).Insert shift:=&HFFFFEFE7 استفاده کنید...

Dim AppExcel As Object

On Error Resume Next
Set AppExcel = CreateObject("Excel.Application")
On Error GoTo 0

If Not AppExcel Is Nothing Then

Dim xlwbook As Object

AppExcel.Visible = True
Set xlwbook = AppExcel.Workbooks.Open("C:\User.xls")

xlwbook.Range( "A1" ).Value = "نام"
xlwbook.Range( "A2" ).Value = "نام خانوادگی"
xlwbook.Range( "A3" ).Value = "تلفن"
xlwbook.Range( "A4" ).Value = "ایمیل"

xlwbook.Close False
AppExcel.Application.Quit

Set xlwbook = Nothing
Set AppExcel = Nothing

Else
MsgBox "cannot Open Excel!!!"
End If