Spreadsheet-ParseExcel

http://search.cpan.org/~jmcnamara/Spreadsheet-ParseExcel-0.59/lib/Spreadsheet/ParseExcel.pm

contain many functions

install Spreadsheet::WriteExcel Spreadsheet::ParseExcel

http://cpan.uwinnipeg.ca/htdocs/Spreadsheet-WriteExcel/INSTALL.html

http://www.thegeekstuff.com/2011/12/perl-and-excel/

install manually

http://www.thegeekstuff.com/2008/09/how-to-install-perl-modules-manually-and-using-cpan-command/

verify whether variable is defined in perl

my $variable;

if (defined($variable))

{

print "defined";

}

else

{

print "not defined";

}

#---------------

unless (defined($variable)) {

print " not defined";

}

else

{

print" defined";

}

verify whether array is empty perl

use strict; use warnings;

my @array;

if (@array)

{

print "array not empty";

}

else

{ print "array empty";

}

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

unless (@array)

{

print "There is element inside array.";

exit(1);

}

Disable Copy, Cut,Paste, Paste Special Menu in excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

With Application

.CellDragAndDrop = True

.OnKey "^c"

.OnKey "^v"

.OnKey "^x"

.OnKey "+{DEL}"

.OnKey "^{INSERT}"

.CutCopyMode = False

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'copy

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = True

Next Ctrl

End Sub

Private Sub Workbook_Open()

On Error Resume Next

With Application

.CutCopyMode = False

.CellDragAndDrop = False

.OnKey "^c", ""

.OnKey "^v", ""

.OnKey "^x", ""

.OnKey "+{DEL}", ""

.OnKey "^{INSERT}", ""

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = False

Next Ctrl

End Sub

Private Sub Workbook_Activate()

On Error Resume Next

With Application

.CutCopyMode = False

.CellDragAndDrop = False

.OnKey "^c", ""

.OnKey "^v", ""

.OnKey "^x", ""

.OnKey "+{DEL}", ""

.OnKey "^{INSERT}", ""

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = False

Next Ctrl

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Cancel = True

MsgBox "Right click menu deactivated." & vbCrLf & _

"For this file:", 16, ""

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Application.CutCopyMode = False

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

On Error Resume Next

With Application

.CutCopyMode = False

.CellDragAndDrop = False

.OnKey "^c", ""

.OnKey "^v", ""

.OnKey "^x", ""

.OnKey "+{DEL}", ""

.OnKey "^{INSERT}", ""

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = False

Next Ctrl

End Sub

Private Sub Workbook_Deactivate()

On Error Resume Next

With Application

.CellDragAndDrop = True

.OnKey "^c"

.OnKey "^v"

.OnKey "^x"

.OnKey "+{DEL}"

.OnKey "^{INSERT}"

.CutCopyMode = False

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = True

Next Ctrl

End Sub

sample paste value only

http://www.jkp-ads.com/Download.asp#CatchPaste

split string by using regular expression

http://perlmeme.org/howtos/perlfunc/split_function.html