View Full Version : سوال: ایجاد یک سطر جدید در فایل اکسل با استفاده از VB6
mohammadgsp
یک شنبه 27 اردیبهشت 1394, 17:53 عصر
سلام دوستان...
می خواستم یه برنامه بنویسم که در اون چهار مقدار اطلاعات (مثلا.نام .نام خانوادگی.تلفن.ایمیل)از فرم دریافت بشه و در چهار ستون از یک فایل exel ذخیره بشه.(نام فایل user)
اما هر چی فکر می کنم چیزی به ذهنم نمی رسه..آموززشم پیدا نگردم..ممنون می شم اگه کمکم کنید.
meys34
سه شنبه 29 اردیبهشت 1394, 13:52 عصر
سلام
با استفاده از 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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.