Download Coreldraw Graphics Suite X3 Free

Download Coreldraw Graphics Suite X3 free setup for windows. It is a powerful graphic designing and editing application that allow the users to designs graphics and layouts, edit photos, and create Web sites.

Coreldraw Graphics Suite X3 Overview

Graphics Suite X3 is an excellent graphic designing application with many rich features to fulfill your graphic needs. It has attractive and self explaining interface that provides all the tools just in one click. This tool is specially designed for professional work and creative designers can use it to design graphics and layouts, edit photos, create logos, design brochures, draw web graphics, make social media ads and create Web sites. Graphics Suite is loaded with latest image editing features like cut, divide, and trim objects without the quality lost.

The powerful Corel font manager provides excellent and stylish font designs. The best thing in this graphic suite is that there is complete guide available for learning and any user can learn easily about any feature. All in a nutshell, if you are professional graphic designer and then we recommend you to combine your creativity with the unparalleled power of CorelDraw Graphics Suite to take your graphic to the next level.

Features of Coreldraw Graphics Suite X3

• Rich vector and bitmap tools
• Excellent Font manager and screen-capture utilities
• Enormous collection of quality clip art and fonts
• Supports PDF creation with password protection
• Loaded with latest graphics editing feature (cropping, scalloping, filling, and beveling)
• Supports color correction and lighting
• Large community and excellent developers supports

System Requirements for Coreldraw Graphics Suite X3

• Operating Systems (win XP, win Vista, win 7, win 8 and win 10)
• Installed Memory (RAM): 256 MB Required
• 200 MB HDD
• 024 x 768 Screen Resolutions
• File Name: CorelDRAWGraphicsSuiteX3.exe
• File Size: 246.53 MB

Download Coreldraw Graphics Suite X3 Free

Click on the link given below to download Coreldraw Graphics Suite X3 free setup. This is the complete offline setup of Coreldraw Graphics Suite which is compatible with both 32bit and 64bit operating systems.

Read More

Create,Save,Update,Delete and Search Student Profile Using Visual Basic

How to create ,Save,Update ,Delete and Search Student Profile information using Visual basic and Ms Access-Step By Step
VB6 Control used are Textbox,  OptionBox,Combobox,Picturebox,DatePicker ,Common Dialog controls
Features of Application are:
1.How to design the VB form and add various controls i.e Textbox,  OptionBox,Combobox,Picturebox,DatePicker ,Common Dialog controls onto the form.
2.How to create database object at run time and do the database connectivity.
3.How to load the image onto the form using commondialog control and also  Save /Retrieve  the Image or Picture from the database.
4.How to save the values selected from Optionbox and Combobox into the database and retrieve them when required.
5.How to Use datepicker control and Save the Date into the Database.
6.How to Save ,Delete,Update and Search the Student profiles.
7.How to navigate between the profiles (First/Next/Previous/Last).

if you like my work,Please hit like button and SUBSCRIBE to my channel.

CODE FOR THIS APPLICATION:

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim confirm As Integer

CODE FOR ADD NEW PROFILE
Private Sub addnew_Click()
rs.addnew
clear
End Sub
Sub clear()
Text1.Text = ""
Text2.Text = ""
DTPicker1.Value = "10/05/2005"
Option1.Value = False
Option2.Value = False
Combo1.Text = "Select Department"
Combo2.Text = "Select Course"
Combo3.Text = "Select Semester"
Text3.Text = ""
Text4.Text = ""
Picture1.Picture = LoadPicture("")
End Sub
CODE FOR COMBOBOX SELECT OPTIONS
Private Sub Combo1_Click()
Combo2.clear
If Combo1.Text = "Computer Science" Then
Combo2.AddItem "M.C.A"
Combo2.AddItem "B.C.A"
Combo2.AddItem "B.Sc(IT)"
ElseIf Combo1.Text = "Electrical Engineering" Then
Combo2.AddItem "B.TECH (EE)"
Combo2.AddItem "M.TECH (EE)"
ElseIf Combo1.Text = "Civil Engineering" Then
Combo2.AddItem "B.TECH (CE)"
Combo2.AddItem "M.TECH (CE)"
Else
End If
End Sub
CODE FOR DELETE BUTTON
Private Sub deletebtn_Click()
confirm = MsgBox("Do you want to delete the Student Profile", vbYesNo + vbCritical, "Deletion Confirmation")
If confirm = vbYes Then
rs.Delete adAffectCurrent
MsgBox "Record has been Deleted successfully", vbInformation, "Message"
rs.Update
refreshdata
Else
MsgBox "Profile Not Deleted ..!!", vbInformation, "Message"
End If

End Sub
Sub refreshdata()
rs.Close
rs.Open "Select * from ProfileTBL", con, adOpenStatic, adLockPessimistic
If Not rs.EOF Then
rs.MoveNext
display
Else
MsgBox "No Record Found"
End If
End Sub
CODE FOR SEARCH PROFILE:
Private Sub findbtn_Click()
rs.Close
rs.Open "Select * from ProfileTBL where RollNo='" + Text1.Text + "'", con, adOpenDynamic, adLockPessimistic
If Not rs.EOF Then
display
reload
Else
MsgBox "Record Profile not found ..!!", vbInformation
End If

End Sub
Sub reload()
rs.Close
rs.Open "Select * from ProfileTBL", con, adOpenDynamic, adLockPessimistic
End Sub
Database Connectivity under FORM LOAD
Private Sub Form_Load()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database Folder\ProfileDB.mdb;Persist Security Info=False"
rs.Open "Select * from ProfileTBL", con, adOpenDynamic, adLockPessimistic

Combo1.AddItem "Computer Science"
Combo1.AddItem "Electrical Engineering"
Combo1.AddItem "Civil Engineering"
Combo3.AddItem "SEMESTER-I"
Combo3.AddItem "SEMESTER-II"
Combo3.AddItem "SEMESTER-III"
Combo3.AddItem "SEMESTER-IV"
Combo3.AddItem "SEMESTER-V"
Combo3.AddItem "SEMESTER-VI"
Combo3.AddItem "SEMESTER-VII"
Combo3.AddItem "SEMESTER-VIII"
display
End Sub
Sub display()
Text1.Text = rs!Rollno
Text2.Text = rs!Name
DTPicker1.Value = rs!DOB
If rs!Gender = "MALE" Then
Option1.Value = True
Else
Option2.Value = True
End If
Combo1.Text = rs!Dept
Combo2.Text = rs!Course
Combo3.Text = rs!Semester
Text3.Text = rs!Address
Text4.Text = rs!phone
Picture1.Picture = LoadPicture(rs!photo)
End Sub
CODE FOR RECORD NAVIGATION
Private Sub Firstbtn_Click()
rs.MoveFirst
display
End Sub

Private Sub lastbtn_Click()
rs.MoveLast
display
End Sub

Private Sub nextbtn_Click()
rs.MoveNext
If Not rs.EOF Then
display
Else
rs.MoveFirst
display
End If
End Sub

Private Sub Previousbtn_Click()
rs.MovePrevious
If rs.BOF Then
rs.MoveLast
display
Else
display
End If
End Sub
CODE FOR SAVE PROFILE
Private Sub savebtn_Click()
rs.Fields("RollNo").Value = Text1.Text
rs.Fields("Name").Value = Text2.Text
rs.Fields("DOB").Value = DTPicker1.Value
If Option1.Value = True Then
rs.Fields("Gender") = Option1.Caption
Else
rs.Fields("Gender") = Option2.Caption
End If
rs.Fields("Dept").Value = Combo1.Text
rs.Fields("Course").Value = Combo2.Text
rs.Fields("Semester").Value = Combo3.Text
rs.Fields("Address").Value = Text3.Text
rs.Fields("Phone").Value = Text4.Text
rs.Fields("Photo").Value = str
MsgBox "Data is saved successfully ..!!!", vbInformation
rs.Update
End Sub
CODE FOR UPDATE PROFILE
Private Sub updatebtn_Click()
rs.Fields("RollNo").Value = Text1.Text
rs.Fields("Name").Value = Text2.Text
rs.Fields("DOB").Value = DTPicker1.Value
If Option1.Value = True Then
rs.Fields("Gender") = Option1.Caption
Else
rs.Fields("Gender") = Option2.Caption
End If
rs.Fields("Dept").Value = Combo1.Text
rs.Fields("Course").Value = Combo2.Text
rs.Fields("Semester").Value = Combo3.Text
rs.Fields("Address").Value = Text3.Text
rs.Fields("Phone").Value = Text4.Text
MsgBox "Data is updated successfully ..!!!", vbInformation
rs.Update
End Sub
CODE FOR LOADING PICTURE
Private Sub uploadbtn_Click()
CommonDialog1.ShowOpen
CommonDialog1.Filter = "Jpeg|*.jpg"
str = CommonDialog1.FileName
Picture1.Picture = LoadPicture(str)
End Sub

Read More

Customize Font Dialog Box using ListBox,Checkbox,Frame in (VB6) Visual B...

Customize Font Dialog Box using ListBox,Checkbox,Frame in (VB6) Visual Basic 6.0

Visual Basic Customize Font Dialog Box is Identical to font dialog available with Microsoft Office.You can apply different font faces,Font Sizes,Font Styles and effects like Uppercase,Lowercase,Strike Through,Underline etc to the sample text.
We can design our own font dialog box using standard controls i.e Label,List Box,Checkbox,frame etc available in Visual Basic 6.0 (VB6).



Please subscribe:-)
Source Code:


Private Sub Form_Load()
Dim i As Integer
List1.AddItem "Times new roman"
List1.AddItem "Roman"
List1.AddItem "Stencil"
List1.AddItem "Calibri"
List1.AddItem "Batang"
List1.AddItem "Arial"
For i = 8 To 25 Step 2
List2.AddItem i
Next i
 List3.AddItem "Regular"
 List3.AddItem "Bold"
 List3.AddItem "Italic"
 List3.AddItem "Bold Italic"

 End Sub



Private Sub List1_Click()
Label1.FontName = List1.Text

End Sub

Private Sub List2_Click()
Label1.FontSize = List2.Text
End Sub

Private Sub List3_Click()
If List3.Text = "Bold" Then
Label1.FontBold = True
ElseIf List3.Text = "Italic" Then
Label1.FontItalic = True
ElseIf List3.Text = "Bold Italic" Then
Label1.FontItalic = True
Label1.FontBold = True
ElseIf List3.Text = "Regular" Then
Label1.FontItalic = False
Label1.FontBold = False
Else
Label1.FontItalic = False
Label1.FontBold = False
End If
End Sub

Private Sub LowerCase_Click()
If LowerCase.Value = 1 Then
Label1.Caption = LCase(Label1.Caption)
Else
Label1.Caption = "Sample Text"
End If
End Sub

Private Sub Strike_Click()
If Strike.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub

Private Sub Underline_Click()
If Underline.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub

Private Sub UpperCase_Click()
If UpperCase.Value = 1 Then
Label1.Caption = UCase(Label1.Caption)
Else
Label1.Caption = "Sample Text"

End If
End Sub

Read More

Add,Delete ,Update,Search using VB6 DataGrid- ADODC and Access-Step by Step

Visual Basic Database Application:Add,Delete ,Update,Search Records Using Data Grid -Adodc Control and MS Access 2003-Step by Step
How to add ,delete,Update and Search records in DataGrid control placed on VB form.
How to change the properties to format the Data Grid control.
in this Application,I am using my previous App database (Student Database.mdb).
1.firstly ,Data Grid control and Adodc are not available on toolbox.So add these controls to form for use.
Next make the database connectivity using Adodc.DataGrid Control works only with ADODC control.So you have to use these two control on the form.One Adodc is used for database connectivity and Datagrid is used for display the records in the form of rows and columns.set the datasource property of Data Grid  to name of adodc for displaying the information in the form.
2.Once data is shown on the form,then set the datagrid property for adding ,deleting  and updating the records.
3.Add search capability to the datagrid.You can search the records by entering Name or RollNo in the textbox.if record is not available,it shows message"No Record Found".
4.How to filter the information about the students .
Everything is explained and performed in this application.


If you like my video,Please Hit like button and Subscribe to my channel for latest updates on tutorials.




Source Code:
Delete Record Command Button

Dim confirm As Integer

Private Sub delbtn_Click()
confirm = MsgBox("Do you want to delete the Record", vbYesNo + vbExclamation, "Warning Message")
If confirm = vbYes Then
adogrid.Recordset.Delete
MsgBox "Record Deleted Successfully", vbInformation, "Delete Record Confirmation"
Else
MsgBox "Record Not Deleted", vbInformation, "Record Not Deleted"
End If
End Sub
General Category Command Button
Private Sub GEN_Click()
adogrid.RecordSource = "Select * from Student_Info where Category='GEN'"
adogrid.Refresh
adogrid.Caption = adogrid.RecordSource
End Sub
Search By Roll No or Name :GO command Button

Private Sub gosearch_Click()
adogrid.RecordSource = "Select * from Student_Info where RollNo='" + Text1.Text + "' or Name='" + Text1.Text + "'"
adogrid.Refresh
If adogrid.Recordset.EOF Then
MsgBox "Record Not Found,Enter any other Roll No or Name", vbCritical, "Message"
Else
adogrid.Caption = adogrid.RecordSource
End If
End Sub
OBC Category Command Button
Private Sub obc_Click()
adogrid.RecordSource = "Select * from Student_Info where Category='OBC'"
adogrid.Refresh
adogrid.Caption = adogrid.RecordSource
End Sub
Plus One Class Command Button
Private Sub plusone_Click()
adogrid.RecordSource = "Select * from Student_Info where Class='Plus One'"
adogrid.Refresh
adogrid.Caption = adogrid.RecordSource
End Sub
Plus Two Class Command Button
Private Sub plustwo_Click()
adogrid.RecordSource = "Select * from Student_Info where Class='Plus Two'"
adogrid.Refresh
adogrid.Caption = adogrid.RecordSource
End Sub
SC Category Command Button
Private Sub sc_Click()
adogrid.RecordSource = "Select * from Student_Info where Category='SC'"
adogrid.Refresh
adogrid.Caption = adogrid.RecordSource
End Sub
ST Category Command Button
Private Sub st_Click()
adogrid.RecordSource = "Select * from Student_Info where Category='ST'"
adogrid.Refresh
adogrid.Caption = adogrid.RecordSource
End Sub
View All Records Command Button
Private Sub viewall_Click()
adogrid.RecordSource = "Select * from Student_Info"
adogrid.Refresh
adogrid.Caption = adogrid.RecordSource
End Sub

Please leave  comments and suggestions.

If you like my video,Please Hit like button and Subscribe to my channel for latest updates on tutorials.

Read More

Create Tool Bar,Status Bar and Menu Bar Using Visual Basic 6.0-Step By Step-Complete Tutorial

Create Tool Bar,Status Bar and Menu Bar Using Visual Basic 6.0-Step By Step.
In this tutorial,following features are demonstrated :
1. How to Create a Status Bar at the bottom of form ,Display Date And time,Status of CAPS LOCK/INSERT/NUM LOCK Enabled or Disabled.
2. How to use Image List control ,store images into the control and Use them in toolbar later on.
3. How to Create a Toolbar and place images in the menus using imagelist control,to make your toolbar more interactive.
 4.How to create Menu Bar,as discussed in my earlier tutorials.
 Link for more information.
 If you have any query,please leave comment.
if you found my tutorial more informative and useful then Hit like button and share it with your friends.
 for more Visual Basic tutorials,please visit

Read More

Advanced Login System using Visual Basic 6.0 and MS Access-Quick and easy

Create An Advanced Login System in Visual Basic 6.0 and Ms Access.

Features of this application are

Splash screen with progress bar,Welcome form asking for login or register,Registration form for new users to get register,Multi-User Login form for existing users as well new users registered.As you login successfully,you will be able to use the system.

In this video tutorial,you will able to create a splash screen having a progress bar indicating % complted status,as loading completes,A new form i.2 Welcome form will appeared on screen asking for Login or Register as a User.You can either register as new user or login into the system.For registration,A form Registration is available to create new username and password.Simultaneously,after the registration,you will be able to login with your current username and password.
In the tutorial,There are five VB forms:
1.Splash Screen having Progress Bar.
2.Welcome Form asking for Login (Existing User )or Register (New User).
3.Registration form for creating new users to use the sytem.
4.Multi-User Login form where all the users registered with the system ,can login into the system and Use the system.
5.Application form,As you login with your correct credentials,then you will be able to use the system.
Database connectivity or other programming stuff are explained step by step with written caption.
After watching this video,you wll be create the same login application for your own use.
for more information ,click on the Link:
Please leave a comment for any query.if you like my video,hit like button.
for more informative videos on technologies ,please subscribe to my channel.




Source Code: Splash Screen
_________________________________
Private Sub Form_Load()
Timer1.Enabled = True
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 5
lblstatus.Caption = "Loading..Plz Wait.."
lblstat.Caption = ProgressBar1.Value & "%"
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
Unload Me
welcome.Show
End If
End Sub

Welcome
__________________________________________
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub logbtn_Click()
login.Show
welcome.Hide
register.Hide
End Sub
Private Sub regbtn_Click()
register.Show
login.Hide
welcome.Hide
End Sub
Registration form
________________________________________________


Private Sub Form_Load()
registerado.Recordset.AddNew
End Sub
Private Sub regbtn_Click()
registerado.Recordset.Fields("Rollno") = txtroll.Text
registerado.Recordset.Fields("Name") = txtname.Text
registerado.Recordset.Fields("Class") = txtclass.Text
registerado.Recordset.Fields("Username") = txtuser.Text
registerado.Recordset.Fields("Password") = txtpass.Text
registerado.Recordset.Fields("Address") = txtadd.Text
registerado.Recordset.Fields("Contact") = txtphone.Text
registerado.Recordset.Update
MsgBox "User Registration Successful,Please Login with Username and Password", vbInformation
login.Show
register.Hide
End Sub
Login Form
_________________________________
Private Sub loginbtn_Click()
loginado.RecordSource = "Select * from Log where Username ='" + txtuser.Text + "' and password='" + txtpass.Text + "' "
loginado.Refresh
If loginado.Recordset.EOF Then
MsgBox "Login Failed.. Please login with correct credentials", vbCritical
login.Show
txtuser.Text = ""
txtpass.Text = ""
Else
MsgBox "Well Done..Login Successful", vbInformation
App.Show
login.Hide
End If
End Sub

Thanks for watching..Plese share and subscribe to my channel.

Read More

Data Report using Data Environment (Print and Export)-Visual Basic6

Visual Basic 6.0 Tutorial -Create Data Report using Data Environment (Print and Export data report)-Step by Step-From Scratch
In this Video tutorial,Following Features are discussed
1.First,Create Database ,Store Data in it using MS Access.Also,Display the data in Datagrid Using ADODC and Data Grid Control In Visual Basic 6.0 .
2.Before Creating data report in Vb6,First Create Data Environment Which is used to connect your database with Data Report and tells the data report what is stored in the database..
3.Once,Data Environment  has been created ,Now Create Data Report with Data Environment just by dragging different fields from Data Environment to Data Report..
4.How to display all records in one Page or One Record in One Page.
5.How to print the data report.
6.How to export contents of data report to text files or other format files.
7.Use various Controls and functions in the different Sections of  Data Report in order to make data report more readable and understandable.With functions,You can do the calculations about the records and values.
8.How to make this data report attractive and more effective,with Logos,Text and tabular representation of data using controls.

You can also create the same data report ,just watch this video.

if you like this tutorial,Please Hit Like button and Share -SUBSCRIBE.
for any query,leave a comment in comment section.
Thanks .

Read More

Common dialog control- Font and Color Dialog in Visual Basic 6.0

Visual Basic 6.0 Tutorial:Working with Common Dialog Control and its different Dialogs i.e Open,Save,Color,Font,Print and Help.
Video tutorial is focused on following points:
1.How to add Common Dialog Control 6.0 into VB form.
2.How to use different dialogs (Open,Save,Color,Font,Print and Help) with this control.
3.How to use different methods /Actions to invoke a particular dialog.
4.How to work with Font Dialog  and its different flags in detail.
(How to add specific fonts and Style,effects .colors ,Help to font dialog and how  to make them functional with code.)
5.How to work with Color Dialog and its different flags in detail.
(How to add different color options (Custom colors,Full Colors,Disable custom color)onto the color dialog and use them with text and background etc)





Source Code:
For Color Dialog Button
Private Sub colorbtn_Click()
On Error GoTo errorfix
dialogtest.Flags = &H1
dialogtest.ShowColor
Form1.BackColor = dialogtest.Color
errorfix:
End Sub
For Font Dialog button
Private Sub fontbtn_Click()
On Error GoTo errorfix
dialogtest.Flags = &H3 Or &H100 Or &H4
dialogtest.ShowFont
txtsample.FontName = dialogtest.FontName
txtsample.FontBold = dialogtest.FontBold
txtsample.FontItalic = dialogtest.FontItalic
txtsample.FontSize = dialogtest.FontSize
txtsample.FontStrikethru = dialogtest.FontStrikethru
txtsample.FontUnderline = dialogtest.FontUnderline
txtsample.ForeColor = dialogtest.Color
errorfix:
End Sub

Read More

Microsoft Office 2013 Product Key And Complete Activator Full Version

Microsoft Office 2013 Product Key and Crack full is a software that is used to activate the MS Office 2013. Office 2013 is Microsoft’s desktop and cloud productivity suite. It’s available as a standalone desktop package or through Microsoft’s Office 365 subscription model. First of all you will notice in Microsoft Office 2013 is its clean, refreshing and coherent look across. It supports all platforms including desktop, smartphones and tablets. It has a new way and new look. You will be happy and surprise to use Microsoft Office 2013 Product key to Activate MS Office 2013.

This Activator can Activate all These:

• Windows 8 All Editions
• Windows 8.1 All Edition
• Windows 8.1 Update 1
• Windows Vista Business/Enterprise
• Windows 7 Professional/Enterprise
• Office 2010/ Office 2013
• Windows Server 2008/2008R2
• Windows Server 2012/2012R2 (Server Standard, Data Center, Essentials)

How to Activate Office 2013 with Activator?

• Download and install latest version of MS Office 2013.
• Now disable any virus guards, Firewalls and Windows Smart Screen first.
• Download and install Activator from the given link on this site.
• When the setup finishes it will stuck at the end I don’t know why but don’t worry.
• Forget about setup and go to ‘C:\Program Files\KMSpico\’ folder.
• Now wait till Setup closes itself this will take some time.
• Now open ‘KMSELDI.exe’ from folder.
• Click tokens backup button which is with an arrow facing down icon.
• Click yes in next message box in Microsoft Office 2013 Product Key.
• After that click Red button
• Wait till it says program completed, activator will close itself.
• Check your favorite Office app  Do not Uninstall KMSpico from your system!
• Now you are done! 

Note

You must have the latest build of Office 2013 to use this activator. If you don’t have the latest build of Office 2013 get the free direct links from link below. If you stuck in any problem during installation then you can use contact us.

Download Microsoft Office 2013 Product Key, Activator and Crack Free from this link.

Mirror Link

Read More

Crystal Reports 8.5 Pro Professional Full PATCH with keygen

Quickly transform almost any data into powerful, interactive content. Create compelling reports for viewing and interaction via portals, wireless devices and Microsoft Office documents. Crystal Reports delivers tools for tightly integrating dynamic content from virtually any data source into Web and Windows applications. Crystal Reports 8.5 is a high productivity reporting solution that helps maximize IT efficiency. Crystal Reports is a powerful solution for transforming data from virtually any source into interactive reports and for providing self-service report viewing via the Web. Crystal Reports 8.5 includes tools for faster report development. Key reporting objects can be stored in the Repository for sharing, reuse and single point updating across multiple projects. Redundant coding can be reduced through use of Custom Functions to extract business logic from formulas.

INSTRUCTIONS:

1. Click the download button below and star downloading your file.

2. Extract the highly compressed archive using WinRAR or 7zip.

3. Read the instructions carefully to avoid errors while using this file.

DOWNLOADS: 83301
LAST UPDATE: 14-February-2017
STATUS: WORKING
RATING:    

Software Download

Key Download

free " 64bit Crystal Reports 9 Pro Professional Full PATCH with keygen 2010 with "license key generator" window mac version version "keygen download" license osx software x64 gratuit collection 2014 registration free activation vista 2012 keygen key" edition windows dll telecharger number" 2012 " "full crack" keygen file "license francais ita pc serial "free license key" osx downloadable 2013 windows x86

Read More

Download Tally ERP 9 Crack

Best ERP & Accounting Software | Invoicing | VAT | Tally.ERP 9 Crack

Tally ERP 9 Overview

Tally ERP 9 Free Download CracknPatch for windows. Tally ERP is software for business that helps you to keep record of balance sheets and calculates pay roll.

Tally Erp 9 is a business software for accounting, inventory and payroll. It contained all features for the high performance business management. It enabled the mid-sized businesses to accomplish their daily management tasks.

The software has powerful remote capabilities that boost collaboration, easy to find qualified personnel, easy to customize and low cost of ownership via quick implementation.

Features of Tally ERP 9

• Remote Access
• Tally.NET (to be read as Tally.NET)
• Simplified Installation process
• New Licensing Mechanism
• Control Centre
• Support Centre
• Enhanced Look & Feel
• Enhanced Payroll Compliance
• Excise for Manufacturers
• Auditors’ Edition of Tally ERP 9 (Auditing Capabilities for Auditors’)
• Enhanced Tax Deducted at Source.
• Rest of the features can be seen after Tally ERP 9 Free Download.

How to install Tally ERP 9 Multiuser Gold Edition on your windows machine ?

well you got to download the setup from below and install the setup 

after you finish installing setup download the Cracknpatch from below 

now disconnect from internet then copy and replace the Tally crack file the one you just downloaded with the Tally file in your Tally installation folder usually located in (C:\Tally) fine now you have cracked Tally ERP 9 enjoy n have fun ...

dont forget to Like share subsribe and comment if this helped you out thank you.

Read More

How to Connect Datagrid control with Access database without using adodc

Visual Basic 6 :How to connect  DataGrid control with Access database without using ADODC (ADO data control) and display data in the datagrid control-Visual Basic 6.0 Tutorial -Step by Step

Code:
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database Folder\Student Database.mdb;Persist Security Info=False"
rs.CursorLocation = adUseClient
rs.Open "Select * from Student_Info", con, adOpenKeyset, adLockPessimistic, adcmdtxt
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set rs = Nothing
End Sub

If you like my work ,Please hit LIKE button and Subscribe to my channel

Read More

How to Connect Datagrid control with Access database without using adodc

Visual Basic 6 :How to connect  DataGrid control with Access database without using ADODC (ADO data control) and display data in the datagrid control-Visual Basic 6.0 Tutorial -Step by Step



Code:
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database Folder\Student Database.mdb;Persist Security Info=False"
rs.CursorLocation = adUseClient
rs.Open "Select * from Student_Info", con, adOpenKeyset, adLockPessimistic, adcmdtxt
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set rs = Nothing
End Sub

If you like my work ,Please hit LIKE button and Subscribe to my channel

Read More

Merging Data from Multiple Workbooks into a Summary Workbook in Excel

Office 2007

Summary: Microsoft Office Excel MVP Ron de Bruin provides a number of samples and a handy add-in to merge data from multiple workbooks located in one folder into a summary workbook. (13 printed pages)

Ron de Bruin, Microsoft Office Excel MVP

Frank Rice, Microsoft Corporation

August 2008

Applies to:   Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002, Microsoft Excel 2000

Contents

• Overview
• Finding the Last Cell, Column, or Row in a Range
• Merging a Range from All Workbooks in a Folder
• Merging a Range from Selected Workbooks
• Merging a Range from Multiple Workbooks by Column
• Merging a Range from Multiple Workbooks in a Folder with a Filter
• More Options for Working with Workbooks
• The RDBMerge Utility
• Conclusion
• Additional Resources
• About the Authors

Overview

When working with multiple Microsoft Office Excel workbooks, a common task is to roll-up or merge the data in each workbook into a master workbook. The examples described in this article add the data from multiple workbooks to a summary workbook. The different procedures demonstrate techniques for pasting the data by row or by column. Additionally, you will see how to retrieve data by using a filter. And finally, you will see a utility that pulls all of these techniques together and more in one location.

You can download workbooks containing the code in this article at Ron de Bruin's Web site.

Finding the Last Cell, Column, or Row in a Range

The following code is used in some of the examples in this article.

To find the last cell, column, or row in a range

1. Open a new workbook in Excel.
2. Press Alt+F11 to open the Visual Basic Editor.
3. On the Insert menu, click Module to add a module to the workbook.
4. In the module window, type or paste the following function and then press Alt+Q to close the Visual Basic Editor.

VB

Function RDB_Last(choice As Integer, rng As Range)
' By Ron de Bruin, 5 May 2008
' A choice of 1 = last row.
' A choice of 2 = last column.
' A choice of 3 = last cell.
   Dim lrw As Long
   Dim lcol As Integer

   Select Case choice

   Case 1:
      On Error Resume Next
      RDB_Last = rng.Find(What:="*", _
                          after:=rng.cells(1), _
                          Lookat:=xlPart, _
                          LookIn:=xlFormulas, _
                          SearchOrder:=xlByRows, _
                          SearchDirection:=xlPrevious, _
                          MatchCase:=False).Row
      On Error GoTo 0

   Case 2:
      On Error Resume Next
      RDB_Last = rng.Find(What:="*", _
                          after:=rng.cells(1), _
                          Lookat:=xlPart, _
                          LookIn:=xlFormulas, _
                          SearchOrder:=xlByColumns, _
                          SearchDirection:=xlPrevious, _
                          MatchCase:=False).Column
      On Error GoTo 0

   Case 3:
      On Error Resume Next
      lrw = rng.Find(What:="*", _
                    after:=rng.cells(1), _
                    Lookat:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False).Row
      On Error GoTo 0

      On Error Resume Next
      lcol = rng.Find(What:="*", _
                     after:=rng.cells(1), _
                     Lookat:=xlPart, _
                     LookIn:=xlFormulas, _
                     SearchOrder:=xlByColumns, _
                     SearchDirection:=xlPrevious, _
                     MatchCase:=False).Column
      On Error GoTo 0

      On Error Resume Next
      RDB_Last = rng.Parent.cells(lrw, lcol).Address(False, False)
      If Err.Number > 0 Then
         RDB_Last = rng.cells(1).Address(False, False)
         Err.Clear
      End If
      On Error GoTo 0

   End Select
End Function

This function uses the Range object's Find method to search for the last item in the workbook depending on the value of the choice argument. The choice argument specifies a cell, column, or row.

Merging a Range from All Workbooks in a Folder

To merge data from all workbooks in a folder, type or paste the following code in standard module in the Visual Basic Editor. The ranges are concatenated into the target worksheet, one after another, in rows.

VB

Sub MergeAllWorkbooks()
    Dim MyPath As String, FilesInPath As String
    Dim MyFiles() As String
    Dim SourceRcount As Long, FNum As Long
    Dim mybook As Workbook, BaseWks As Worksheet
    Dim sourceRange As Range, destrange As Range
    Dim rnum As Long, CalcMode As Long

    ' Change this to the path\folder location of your files.
    MyPath = "C:\Users\Ron\test"

    ' Add a slash at the end of the path if needed.
    If Right(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If

    ' If there are no Excel files in the folder, exit.
    FilesInPath = Dir(MyPath & "*.xl*")
    If FilesInPath = "" Then
        MsgBox "No files found"
        Exit Sub
    End If

    ' Fill the myFiles array with the list of Excel files
    ' in the search folder.
    FNum = 0
    Do While FilesInPath <> ""
        FNum = FNum + 1
        ReDim Preserve MyFiles(1 To FNum)
        MyFiles(FNum) = FilesInPath
        FilesInPath = Dir()
    Loop

    ' Set various application properties.
    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    ' Add a new workbook with one sheet.
    Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
    rnum = 1

    ' Loop through all files in the myFiles array.
    If FNum > 0 Then
        For FNum = LBound(MyFiles) To UBound(MyFiles)
            Set mybook = Nothing
            On Error Resume Next
            Set mybook = Workbooks.Open(MyPath & MyFiles(FNum))
            On Error GoTo 0

            If Not mybook Is Nothing Then
                On Error Resume Next

                ' Change this range to fit your own needs.
                With mybook.Worksheets(1)
                    Set sourceRange = .Range("A1:C1")
                End With

                If Err.Number > 0 Then
                    Err.Clear
                    Set sourceRange = Nothing
                Else
                    ' If source range uses all columns then 
                    ' skip this file.
                    If sourceRange.Columns.Count >= BaseWks.Columns.Count Then
                        Set sourceRange = Nothing
                    End If
                End If
                On Error GoTo 0

                If Not sourceRange Is Nothing Then

                    SourceRcount = sourceRange.Rows.Count

                    If rnum + SourceRcount >= BaseWks.Rows.Count Then
                        MsgBox "There are not enough rows in the target worksheet."
                        BaseWks.Columns.AutoFit
                        mybook.Close savechanges:=False
                        GoTo ExitTheSub
                    Else

                        ' Copy the file name in column A.
                        With sourceRange
                            BaseWks.Cells(rnum, "A"). _
                                    Resize(.Rows.Count).Value = MyFiles(FNum)
                        End With

                        ' Set the destination range.
                        Set destrange = BaseWks.Range("B" & rnum)

                        ' Copy the values from the source range
                        ' to the destination range.
                        With sourceRange
                            Set destrange = destrange. _
                                            Resize(.Rows.Count, .Columns.Count)
                        End With
                        destrange.Value = sourceRange.Value

                        rnum = rnum + SourceRcount
                    End If
                End If
                mybook.Close savechanges:=False
            End If

        Next FNum
        BaseWks.Columns.AutoFit
    End If

ExitTheSub:
    ' Restore the application properties.
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

This procedure fills an array with the path and name of each workbook in a folder. It then loops through the array and for each source file, checks the source and target ranges to see if there are more columns used in the source range than are available in the target range. If this is true, then this workbook is skipped and the code moves to the next workbook. The code then does the same test for the rows in the source range.

Next the procedure copies the path and name of the source workbook into column A. Finally, the values in the source range are copied into the corresponding range in the target workbook and the code moves to the next file in the array.

This procedure uses the first worksheet (index 1) of each workbook. To start with a different worksheet to use a specific worksheet, just change the index number or change the index to the name of the worksheet.

VB

With mybook.Worksheets("YourSheetName")

You will also likely want to change the range A1:C1 to your own values.

VB

With mybook.Worksheets(1)
    Set sourceRange = .Range("A1:C1")
End With

If you want to copy from cell A2 until the last cell on the worksheet then replace this code with the following code. You might do this if there are headers in the first row.

Note
If you use this procedure, copy the function RDB_Last into your code module.

First, add this line at the top of the macro.

VB

Dim FirstCell As String

Then add this code.

VB

With mybook.Worksheets(1)
   FirstCell = "A2"
   Set sourceRange = .Range(FirstCell & ":" & RDB_Last(3, .Cells))
   ' Test if the row of the last cell is equal to or greater than the row of the first cell.
   If RDB_Last(1, .Cells) < .Range(FirstCell).Row Then
      Set sourceRange = Nothing
   End If
End With

Merging a Range from Selected Workbooks

To merge data from specific workbooks, type or paste the following code in the module code window.

VB

Private Declare Function SetCurrentDirectoryA Lib _
    "kernel32" (ByVal lpPathName As String) As Long

Sub ChDirNet(szPath As String)
    SetCurrentDirectoryA szPath
End Sub


Sub MergeSpecificWorkbooks()
    Dim MyPath As String
    Dim SourceRcount As Long, FNum As Long
    Dim mybook As Workbook, BaseWks As Worksheet
    Dim sourceRange As Range, destrange As Range
    Dim rnum As Long, CalcMode As Long
    Dim SaveDriveDir As String
    Dim FName As Variant


    ' Set application properties.
    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    SaveDriveDir = CurDir
    ' Change this to the path\folder location of the files.
    ChDirNet "C:\Users\Ron\test"

    FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xl*), *.xl*", _
                                        MultiSelect:=True)
    If IsArray(FName) Then

        ' Add a new workbook with one sheet.
        Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
        rnum = 1


        ' Loop through all files in the myFiles array.
        For FNum = LBound(FName) To UBound(FName)
            Set mybook = Nothing
            On Error Resume Next
            Set mybook = Workbooks.Open(FName(FNum))
            On Error GoTo 0

            If Not mybook Is Nothing Then

                On Error Resume Next
                With mybook.Worksheets(1)
                    Set sourceRange = .Range("A1:C1")
                End With

                If Err.Number > 0 Then
                    Err.Clear
                    Set sourceRange = Nothing
                Else
                    ' If the source range uses all columns then
                    ' skip this file.
                    If sourceRange.Columns.Count >= BaseWks.Columns.Count Then
                        Set sourceRange = Nothing
                    End If
                End If
                On Error GoTo 0

                If Not sourceRange Is Nothing Then

                    SourceRcount = sourceRange.Rows.Count

                    If rnum + SourceRcount >= BaseWks.Rows.Count Then
                        MsgBox "There are not enough rows in the target worksheet."
                        BaseWks.Columns.AutoFit
                        mybook.Close savechanges:=False
                        GoTo ExitTheSub
                    Else

                        ' Copy the file name in column A.
                        With sourceRange
                            BaseWks.Cells(rnum, "A"). _
                                    Resize(.Rows.Count).Value = FName(FNum)
                        End With

                        ' Set the destination range.
                        Set destrange = BaseWks.Range("B" & rnum)

                        ' Copy the values from the source range
                        ' to the destination range.
                        With sourceRange
                            Set destrange = destrange. _
                                            Resize(.Rows.Count, .Columns.Count)
                        End With
                        destrange.Value = sourceRange.Value
                        rnum = rnum + SourceRcount
                    End If
                End If
                mybook.Close savechanges:=False
            End If

        Next FNum
        BaseWks.Columns.AutoFit
    End If

ExitTheSub:
    ' Restore the application properties.
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
    ChDirNet SaveDriveDir
End Sub

This code example will do the same thing as the first example only you are able to select the files you want to merge. The function ChDirNet is used so that you can set the starting path to the network folder of your choice. You can also change the worksheet and range by using the changes described in the first example.

Merging a Range from Multiple Workbooks by Column

To paste data from source workbooks horizontally (in columns) in a target workbook, type or paste the following code in the module code window.

VB

Sub MergeHorizontally()
    Dim MyPath As String, FilesInPath As String
    Dim MyFiles() As String
    Dim SourceCcount As Long, FNum As Long
    Dim mybook As Workbook, BaseWks As Worksheet
    Dim sourceRange As Range, destrange As Range
    Dim Cnum As Long, CalcMode As Long

    ' Change this to the path\folder location of the files.
    MyPath = "C:\Users\Ron\test"

    ' Add a slash at the end of path if needed.
    If Right(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If

    ' If there are no Excel files in the folder, exit.
    FilesInPath = Dir(MyPath & "*.xl*")
    If FilesInPath = "" Then
        MsgBox "No files found"
        Exit Sub
    End If

    ' Fill in the myFiles array with the list of Excel files in 
    ' the search folder.
    FNum = 0
    Do While FilesInPath <> ""
        FNum = FNum + 1
        ReDim Preserve MyFiles(1 To FNum)
        MyFiles(FNum) = FilesInPath
        FilesInPath = Dir()
    Loop

    ' Change the application properties.
    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    ' Add a new workbook with one sheet.
    Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
    Cnum = 1

    ' Loop through all of the files in the myFiles array.
    If FNum > 0 Then
        For FNum = LBound(MyFiles) To UBound(MyFiles)
            Set mybook = Nothing
            On Error Resume Next
            Set mybook = Workbooks.Open(MyPath & MyFiles(FNum))
            On Error GoTo 0

            If Not mybook Is Nothing Then

                On Error Resume Next
                Set sourceRange = mybook.Worksheets(1).Range("A1:A10")

                If Err.Number > 0 Then
                    Err.Clear
                    Set sourceRange = Nothing
                Else
                    ' If the source range uses all of the rows 
                    ' then skip this file.
                    If sourceRange.Rows.Count >= BaseWks.Rows.Count Then
                        Set sourceRange = Nothing
                    End If
                End If
                On Error GoTo 0

                If Not sourceRange Is Nothing Then

                    SourceCcount = sourceRange.Columns.Count

                    If Cnum + SourceCcount >= BaseWks.Columns.Count Then
                        MsgBox "There are not enough columns in the sheet."
                        BaseWks.Columns.AutoFit
                        mybook.Close savechanges:=False
                        GoTo ExitTheSub
                    Else

                        ' Copy the file name in the first row.
                        With sourceRange
                            BaseWks.Cells(1, Cnum). _
                                    Resize(, .Columns.Count).Value = MyFiles(FNum)
                        End With

                        ' Set the destination range.
                        Set destrange = BaseWks.Cells(2, Cnum)

                        ' Copy the values from the source range 
                        ' to the destination range.
                        With sourceRange
                            Set destrange = destrange. _
                                            Resize(.Rows.Count, .Columns.Count)
                        End With
                        destrange.Value = sourceRange.Value

                        Cnum = Cnum + SourceCcount
                    End If
                End If
                mybook.Close savechanges:=False
            End If

        Next FNum
        BaseWks.Columns.AutoFit
    End If

ExitTheSub:
    'Restore ScreenUpdating, Calculation and EnableEvents
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With

End Sub

The following line is where columns are specified as the target as opposed to rows.

VB

Set destrange = BaseWks.Cells(2, Cnum)

Merging a Range from Multiple Workbooks in a Folder with a Filter

To merge data retrieved based on a filter, type or paste the following code in the module code window.

VB

Sub MergewithAutoFilter()
    Dim MyPath As String, FilesInPath As String
    Dim MyFiles() As String
    Dim SourceRcount As Long, FNum As Long
    Dim mybook As Workbook, BaseWks As Worksheet
    Dim sourceRange As Range, destrange As Range
    Dim rnum As Long, CalcMode As Long
    Dim rng As Range, SearchValue As String
    Dim FilterField As Integer, RangeAddress As String
    Dim ShName As Variant, RwCount As Long

    '**************************************************************
    '***Change these five lines of code before you run the macro***
    '**************************************************************

    ' Change this to the path\folder location of the files.
    MyPath = "C:\Users\Ron\test"

    ' Fill in the name of the sheet containing the data.
    ' Use ShName = "Sheet Name" to use a sheet name instead if its 
    ' index. This example uses the index of the first sheet in 
    ' every workbook.
    ShName = 1

    ' Fill in the filter range: A1 is the header of the first 
    ' column and G is the last column in the range and will
    ' filter on all rows on the sheet.
    ' You can also use a fixed range such as A1:G2500.
    RangeAddress = Range("A1:G" & Rows.Count).Address

    ' Set the field that you want to filter in the range 
    ' "1 = column A" in this example because the filter range 
    ' starts in column A.
    FilterField = 1

    ' Fill in the filter value. Use the "<>" if you want to 
    ' filter on the absence of a term. Or use wildcards such
    ' as "ron*" for cells that start with ron, or use
    ' "*ron*" if you look for cells where ron is a part of the
    ' cell value.
    SearchValue = "ron"

    '**********************************************************
    '**********************************************************


    ' Add a slash after MyPath if needed.
    If Right(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If

    ' If there are no Excel files in the folder, exit.
    FilesInPath = Dir(MyPath & "*.xl*")
    If FilesInPath = "" Then
        MsgBox "No files found"
        Exit Sub
    End If

    ' Fill the myFiles array with the list of Excel files in the
    ' folder.
    FNum = 0
    Do While FilesInPath <> ""
        FNum = FNum + 1
        ReDim Preserve MyFiles(1 To FNum)
        MyFiles(FNum) = FilesInPath
        FilesInPath = Dir()
    Loop

    ' Change application properties.
    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    ' Add a new workbook with one sheet.
    Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
    rnum = 1

    ' Loop through all files in the myFiles array.
    If FNum > 0 Then
        For FNum = LBound(MyFiles) To UBound(MyFiles)
            Set mybook = Nothing
            On Error Resume Next
            Set mybook = Workbooks.Open(MyPath & MyFiles(FNum))
            On Error GoTo 0

            If Not mybook Is Nothing Then

                On Error Resume Next
                ' Set the filter range.
                With mybook.Worksheets(ShName)
                    Set sourceRange = .Range(RangeAddress)
                End With

                If Err.Number > 0 Then
                    Err.Clear
                    Set sourceRange = Nothing
                End If
                On Error GoTo 0

                If Not sourceRange Is Nothing Then
                    ' Find the last row in target worksheet.
                    rnum = RDB_Last(1, BaseWks.Cells) + 1

                    With sourceRange.Parent
                        Set rng = Nothing

                        ' Remove the AutoFilter.
                        .AutoFilterMode = False

                        ' Filter the range on the 
                        ' value in filter column.
                        sourceRange.AutoFilter Field:=FilterField, _
                                               Criteria1:=SearchValue

                        With .AutoFilter.Range

                            ' Check to see if there are results
                            ' after after applying the filter.
                            RwCount = .Columns(1).Cells. _
                                      SpecialCells(xlCellTypeVisible).Cells.Count - 1

                            If RwCount = 0 Then
                                ' There is no data, only the 
                                ' header.
                            Else
                                ' Set a range without the 
                                ' header row.
                                Set rng = .Resize(.Rows.Count - 1, .Columns.Count). _
                                          Offset(1, 0).SpecialCells(xlCellTypeVisible)


                                ' Copy the range and the file name
                                ' in column A.
                                If rnum + RwCount < BaseWks.Rows.Count Then
                                    BaseWks.Cells(rnum, "A").Resize(RwCount).Value _
                                          = mybook.Name
                                    rng.Copy BaseWks.Cells(rnum, "B")
                                End If
                            End If

                        End With

                        'Remove the AutoFilter
                        .AutoFilterMode = False

                    End With
                End If

                ' Close the workbook without saving.
                mybook.Close savechanges:=False
            End If

            ' Open the next workbook.
        Next FNum

        ' Set the column width in the new workbook.
        BaseWks.Columns.AutoFit
        MsgBox "Look at the merge results in the new workbook " & _
           "after you click on OK."
    End If

    ' Restore the application properties.
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

In this example, the following line of code is used to search for data matching the search term.

VB

sourceRange.AutoFilter Field:=FilterField, Criteria1:=SearchValue

More Options for Working with Workbooks

In the previous paragraphs, four code examples for working for files in one folder were discussed. Minor changes to these examples can make them even more useful. For example, if your workbooks are password protected, you can replace the Workbooks.Open arguments with the following code to open them.

VB

Set mybook = Workbooks.Open(MyPath & MyFiles(Fnum), _
   Password:="ron", WriteResPassword:="ron", UpdateLinks:=0)

If you have links in your workbook to other workbooks, the setting UpdateLinks:=0 will avoid the message of whether you want to update the links. Use the value 3 if you do want to update the links.

Another change you can make is to merge from all files with a name that starts with a specific name. For example, you can use the following statement to find all workbooks that start with week.

VB

FilesInPath = Dir(MyPath & "week*.xl*")

You can find more information and code sample for merging the data in the subfolders and looping through all worksheets in every workbook at the following location on Ron de Bruin's Web site.

The RDBMerge Utility

The RDBMerge utility provides a user friendly way to merge data from workbooks in a folder into one worksheet in a new workbook. Working with the add-in is very easy; however, for more information, see the page on Ron de Bruin's Web site.

To install the RDBMerge utility

1. Navigate to the RDBMerge utility page.
2. Download and extract the zip file to a local directory on your computer.
3. Copy either RDBMerge.xlam or RDBMerge.xla, depending on whether you are using the 2007 release of Microsoft Office or a previous version of Microsoft Office, respectively, to the following directory:
   local_drive:\Program Files\Microsoft Office\Version_Number\Library

   Note
   Depending on the version of Excel you are using, the Version_Number directory may be named just Office or may include a version number. For example: local_drive:\Program Files\Microsoft Office\Office\Library or local_drive:\Program Files\Microsoft Office\Office11\Library.

   Once the utility is installed, do the following to access it:
4. Start Excel and open a workbook.
5. (Excel 2007 only) Click the Microsoft Office button, click Excel Options, and then click the Add-Ins tab. In the Manage drop-down list, click Excel Add-ins, and then click Go. Verify that RDBMerge is selected in this list and then click OK.
6. (Excel 2000-2003 only) Click Tools, click Add-Ins, verify RDBMerge is selected in the list, and then click OK.

Conclusion

In this article, you explored several code samples that you can use to merge data from all workbooks in a folder into a master workbook. Additionally, the RDBMerge add-in can assist you to do this task very easy. Exploring and implementing these tools in your own applications can help make your job as a developer easier and make your solutions more versatile.

Additional Resources

You can find more information on the concepts and techniques discussed in this article at the following locations.

• Create a summary worksheet from all worksheets (with formulas)
• Copy a range from closed workbooks by using ADO
• Microsoft Office Developer Center
• Excel Developer Portal

About the Authors

Ron de Bruin is an Excel Most Valuable Professional (MVP) and a frequent contributor to the newsgroups. For more information, see Ron's Excel Web page.

Frank Rice is a programming writer and frequent contributor to the Microsoft Office Developer Center.

Read More