امروز :1396/1/09      ساعت :00:07:14




لطفا جهت مشاهده بهتر سایت از مرورگرهای گوگل کرم و فایرفاکس ابدیت شده استفاده نمائید

 



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


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     نویسنده :   پیمان محمدرضایی
تعداد بار مشاهده :  69


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

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

براي انجام اين پروژه نياز به 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     نویسنده :   پیمان محمدرضایی
تعداد بار مشاهده :  40


کاربران جدید

حسین13
mozafaripo
پژوهی
ahmadrazav
rezvanelc
rmilad
Karami
کاظم
basij
Mojtaba72
aminreza
abbas mohe
صالحی
acsacs

کاربران آنلاین

حسین13
mozafaripo
کاظم
ahmadrazav
rezvanelc
rmilad
Karami
alireza75
basij
Mojtaba72
aminreza
sinaitg
aaas
abbas mohe
صالحی

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

وبگو | نمایش آمار بازدیدها بدون دیتابیس
» بازدید امروز: 42
» بازدید دیروز: 6749
» افراد آنلاین این بخش: 20
» ورودی امروزازموتورهای جستجو: 9
» ورودی دیروزازموتورهای جستجو: 1554
» بازدید کل: 2477749

پیوند ها

  • وب مستر گوگل
  • بورس تهران
  • دانشگاه صنعتی شریف
  • دانشگاه علوم پزشکی شیراز
  • دانشگاه فردوسی مشهد
  • دانشگاه تربیت مدرس
  • دانشگاه صنعتی امیر کبیر
  • دانشگاه صنعتی اصفهان
  • دانشگاه علوم پزشکی تهران
  • دانشگاه تهران
  • mrah
  • سايت سنجش
  • نویسندگان

  • دنیا رحیمی
  • باروج
  • حسن صالحي
  • اصغر شفیع خانی
  • رزیتا
  • عباس زارعی
  • علی قادری
  • علی واشقانی
  • محمدرضایی
  • مرتضی نظرپور
  • کیوان حسن پور
  • نادر محمدی
  • ولی براتلو
  • پارسا یزدان
  • پوریا بیدقی
  • پیمان محمدرضایی
  • فرشید دارابی
  • راهای ارتباط باما

  • همراه : 09359850361
  • : 09106978820
  • تلفن : 02632719757
  • ایمیل: info@irsanat.com
  • : irsanat.com@gmail.com
  • کانال سایت: @irsanat
  • نلگرام پشتیبان: @digisanat
  • کانال فروشگاه: @irdigikala
  • فرم تمــاس با ما