سایت ایران صنعت
بستن
لوگوی سایت ایران صنعت

کــاربر مهمان گـــرامی خوش آمـــدید ورود


كد خروچي (اتصال) ويژوال بيسيك به اكسل


Dim excel_app As Excel.Application
Dim excel_wbk As Excel.Workbook
Dim excel_wsh As Excel.Worksheet
Set excel_app = New Excel.Application
Set excel_wbk = excel_app.Workbooks.Add
Set excel_wsh = excel_wbk.Worksheets.Add
excel_wsh.Name = "ٌWorkSheetName"
excel_wsh.Columns("A").Font.Bold = True
excel_wsh.Columns("A").HorizontalAlignment = 3
excel_wsh.Columns("A").VerticalAlignment = 2
excel_wsh.Columns("A").Borders.Color = black
excel_wsh.Rows(1).Font.Bold = True
excel_wsh.Rows(1).HorizontalAlignment = 3
excel_wsh.Rows(1).VerticalAlignment = 2
excel_wsh.Rows(1).Borders.Color = black
excel_wsh.Cells(1, 1) = "salam"
excel_wsh.Cells(2, 1) = "bye"

سپس با حلقه ها تک تک خانه ها را پر کن همان طور که من دو تایش را برای نمونه پر کرده ام.


روش دوم كه يك فايل اكسل در درايو f  ذخيره مي كنيم 


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("F:Book1.xls")
Set oWS = oWB.Worksheets("Sheet1")

oWS.Range("B1").Value = 23.5
oWS.Range("B2").Value = 17.6
oWS.Range("B3").Formula = "=B1+B2"

oWB.Save

oXL.Quit
End Sub

منبع : ايران صنعت : WWW.IRSANAT.COM

برچسپ ها : كد خروچي (اتصال) ويژوال بيسيك به اكسل ، خروجي اكسل ، كد خروجي اكسل 

تاریخ ارسال :  1395/8/06     
تعداد مشاهده :871

همان گونه که مي دانيد، يکي از امکانات خوب هر برنامه اي آن است که بتواند داده ها را با فرمت هاي گوناگون خروجي دهد. همچنين احتمالا ديده ايد که توليد کنندگان يک نرم افزار، هنگام شمردنِ امکانات نرم افزار خود، اين مورد را با آب و تاب فراوان ياد مي کنند؛ که البته حق هم دارند چرا که اکسل يک استاندارد عمومي است و امکانات زيادي دارد.

در اين مقاله قصد دارم نشان دهم که چگونه مي توان داده ها را (به طور مثال داده هاي يک جدول بانک اطلاعات) را به اکسل فرستاد.

براي انجام اين پروژه نياز به Visual Studio.Net 2005 و SQL Server 2005 (نگارش Express يا کامل) خواهيد داشت.

در اين پروژه همچنين از يک بانک اطلاعات (با نام Students) استفاده شده که داراي جدول ذيل (با نام Names) است:


نام فيلدتوضيح
StudentID(INT IDENTITY)

کد دانشجويي

FName (NVARCHAR(15))نام
LName(NVARCHAR(20))نام خانوادگي

اکنون مراحل ذيل را انجام دهيد:

۱.       در ويژوال استوديو يک پروژة جديد از نوع Widows Application ايجاد کنيد.

برچسپ ها : خروجي سريع اكسل  ربان هاي vb6  و c

با عرض پوزش ، این بخش سایت محدود به کاربران عضومی باشد .       

عضئیت

تاریخ ارسال :  1395/5/19     
تعداد مشاهده :211
دیگر مطالب مرتبط با موضوع : (VBA)آموزش ويژوال بيسيك


آخرین مقالات ارسالی

دستگاه تی دی اس متر(TDS)

دستگاه پی اچ متر دیجیتال

دستگاه الکترولیز

هدایت سنج آب,EC متر

محافط برق ساختمان

دستگاه تصفیه آب

فیلتر های دستگاه تصفیه آب

رسوب گیر پکیج، آبگرمکن

فتومتر پرتابل دیجیتال

دماسنج دیجیتال

تصفیه آب آکوا لایف

تی دی اس متر مدل HM

مولتی متر دیجیتال

فیلتر این لاین تصفیه آب

ph متر خاک

ph متر، ph سنج

تعمیر یخچال،تعمیرات یخچال

ابزارآلات صنعتی

تصفیه آب،تصفیه آب RO

قطعات برق و الکترونیک

Tds متر


فروشگاه اینترنتی ایران صنعت ،بررسی انتخاب و خرید آنلاین

آمار بازدید ها


وبگو | نمایش آمار بازدیدها بدون دیتابیس
» بازدید امروز: 5927
» بازدید دیروز: 8243
» افراد آنلاین این بخش: 40
» ورودی امروز موتور های جستجو: 2081
» ورودی دیروز موتور های جستجو: 3114
» بازدید کل: 2502119

مجوز تجارت الکترونیک


مجوز تجارت الکترونیک

مجوز رسانه بر خط


logo-samandehi

ایران صنعت در شبکه های اجتماعی


پرداخت آنلاین شبکه اجتماعی یوتیوبشبکه اجتماعی تویترشبکه اجتماعی فیس بوک

ایران صنعت: 09106978820


تاریخ :1398/1/31  ساعت:  19:37:24

تمامي كالاها و خدمات اين سایت، داراي مجوزهاي لازم از مراجع مربوطه مي‌باشند و فعاليت‌هاي اين سايت تابع قوانين و مقررات جمهوري اسلامي ايران است
تمامی حقوق مادی و معنوی این وبسایت متعلق به ایران صنعت میباشد.