عضویت العربیة English
امام صادق علیه‌السلام: صله رحم و نیکى، حساب (قیامت) را آسان و از گناهان جلوگیرى مى‌کند. کافى، ج2، ص157

آموزش برنامه نویسی پایگاه داده در ویژوال بیسیک 6 قسمت 12

آموزش برنامه نویسی پایگاه داده در ویژوال بیسیک 6 قسمت 12
جمعه 29 بهمن 1389  04:36 ق.ظ

کار با فایل هایی از نوع Excel و Word

» به دلیل این که برنامه Excel و Word یکی از ساده ترین و پرکاربردترین برنامه های مورد استفاده بوده و ساخت شرکت مایکروسافت است و ویژوال بیسیک به راحتی قادر به برقراری ارتباط با آن است ، امروز می خواهم به صورت خلاصه روش ایجاد یک فایل از نوع Excel و Word و برقراری ارتباط با آنها را به شما عزیزان توضیح دهم .

» برای این که شما از امکانات کار با Excel و Word در ویژوال بیسیک 6 برخوردار باشید باید از رابطی که مخصوص خود Excel و Word است استفاده نمایید . برای این کار شما باید از دیالوگ References گزینه های زیر را تیک بزنید :

Microsoft Excel 9.0 Object Library

Microsoft Word 9.0 Object Library

البته بسته به نسخه آفیسی که شما بر روی سیستم خود نصب می کنید شماره یا ورژن این گزینه ها تغییر خواهد کرد .

@ کار با Excel : در ابتدا شما باید تعریفات زیر را در قسمت General برنامه خود انجام دهید :

Dim X_Excel As Excel.Application

Dim X_WorkBook As Excel.Workbook

Dim X_WorkSheet As Excel.Worksheet

_ حال برای ایجاد یک فایل از نوع Excel از دستور زیر باید استفاده کنید :

Set X_Excel = New Excel.Application

_ سپس یک صفحه کاری ایجاد می کنیم که باید از دستور زیر استفاده کنیم :

Set X_WorkBook = X_Excel.Workbooks.Add

_ پس از این کار شیت ( Sheet ) مورد نظر را باید انتخاب کنیم :

(Set X_WorkSheet = X_WorkBook.Worksheets(1

_ که در این مثال Sheet1 را انتخاب کردیم .

» همانطور که می دانید صفحه Excel به صورت گسترده بوده و کار با آن بر اساس خانه های موجود در آن است که هر کدام آدرس مخصوصی دارد . برای مثال خانه شماره یک دارای آدرس ( 1 , 1 ) می باشد . ما هم از این آدرسها برای دسترسی به این خانه ها استفاده می کنیم :

 داده مورد نظر = ( ستون ,  سطر ) X_WorkSheet.Cells

  "X_WorkSheet.Cells( 1 , 1 ) = "Ali

"X_WorkSheet.Cells( 1 , 2 ) = "Hassan

_ در مثال بالا رشته Ali در اولین خانه و رشته Hassan در خانه دوم ردیف اول صفحه یا جدول ذخیره می شود و محدوتی برای وارد کردن انواع داده وجود ندارد و شما می توانید هر نوع داده ای را در خانه ها قرار دهید .

» پس از ایجاد یک صفحه کاری و قرار دادن داده در خانه های آن نوبت به ذخیره کردن آن به عنوان یک فایل Excel می رسد که باید از دستور زیر برای این کار استفاده کنیم :

"X_WorkBook.SaveAs FileName:= "C:\Smple.xls

_ همچنین شما میتوانید برای نمایش صفحه کاری خود توسط برنامه اکسل به صورت زیر عمل کنید :

X_Excel.Visible = True

_ و برای خروج از صفحه کاری از دستور زیر استفاده کنید :

X_Excel.Quit

_ این دستور زمانی کاربرد دارد که از دستور قبلی آن استفاده نمایید .

@ کار با Word : کار با این برنامه هم مانند کار با Excel است و تفاوت آنها بیشتر در قسمت وارد کردن داده ها و اطلاعات می باشد . مانند قبل تعریفات زیر را در قسمت General قرار دهید :

Dim X_Word As Word.Application

Dim X_Doc As Word.Document

_ حال برای ایجاد یا باز کردن یک فایل از نوع Word دستور زیر را به کار ببرید :

Set X_Word = New Word.Application

_ سپس شما باید یک پرونده ) Document ) جدید ایجاد کنید :

Set X_Doc = X_Word.Documents.Add

_ پس از انجا این کارها نوبت به وارد کردن داده ها و اطلاعات است که برای این کار شما بیشتر باید از متد Selection مربوط به X_Word استفاده نمایید :

X_Word.Selection.Borders.OutsideLineStyle = wdLineStyleInset

X_Word.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

X_Word.Selection.Font.Bold = True

X_Word.Selection.Font.Size = 20

"X_Word.Selection.Text = "Media Soft Is For All

در این مثال پس از تنظیمات دلخواه در صفحه پرونده نوشته ای را در آن قرار می دهیم . البته این متدها فقط تعداد اندکی از امکانات کار با فایل های پرئنده ای است و شما باید خودتان آنها را بررسی کنید .

_ حال مانند مثال قبل نوبت به ذخیره کردن پرونده کاری می رسد که روش آن مانند مثال قبل است :

"X_Doc.SaveAs FileName:="C:\Sample.Doc

_ برای نمایش پرونده کاری خود توسط برنامه Word دستور زیر استفاده کنید :

X_Word.Visible = True

------------------------------------------------------------------------------------

---> برنامه نمونه برای آموزشهای داده شده : دانلود

---> برنامه نمونه برای کپی کردن اطلاعات از Excel به یک پایگاه داده Access : دانلود ---> برنامه نمونه برای کپی کردن اطلاعات از یک پایگاه داده Access به Word : دانلود

 

کریمی که جهان پاینده دارد               تواند حجتی را زنده دارد

 

دانلود پروژه و کارآموزی و کارافرینی

mohamadaminsh

mohamadaminsh
کاربر طلایی1
تاریخ عضویت : دی 1389 
تعداد پست ها : 25772
محل سکونت : خوزستان
دسترسی سریع به انجمن ها