آموزش برنامه نویسی ویژوال بیسیک 6 همراه با سورس کد

درس دوازدهم

» به دلیل این که برنامه 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

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

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

X_Excel.Visible = True

@ کار با 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.Font.Bold = True

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

X_Word.Visible = True

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

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