http://www.excelguru.ca/content.php?162
Thursday, February 9, 2012
Force user to enable macro in Excel
Posted by AG at 1:30 AM 0 comments
Labels: Excel, Force user to enable macro in Excel, Macro, Microsoft Visual Basic
Tuesday, January 31, 2012
Create an EXE or Setup File in .NET Windows Application
http://balanagaraj.wordpress.com/2007/05/29/create-exe-or-setup-file-in-net-windows-application/
Posted by AG at 10:15 PM 0 comments
Labels: Create an EXE or Setup File
Thursday, November 10, 2011
Array Perl
for my $i (0 .. $#x) {
print "$i: $x[$i]\n";}
. $array[$#array] .
. scalar @array .
$#array
foreach (@array){$element = $_;print " $element\n"}
Friday, November 4, 2011
音乐分享 Bruno Mars -《Doo Wops & Hooligans (Deluxe Version)》
Tracklist:
01. Grenade
02. Just the Way You Are
03. Our First Time
04. Runaway Baby
05. The Lazy Song
06. Marry You
07. Talking to the Moon
08. Liquor Store Blues (feat. Damian Marley)
09. Count On Me
10. The Other Side (feat. Cee Lo Green & B.o.B)
Bonus Tracks (Deluxe Version):
11. Just the Way You Are (feat. Lupe Fiasco) [Remix]
12. Somewhere In Brooklyn Digital Booklet - Doo-Wops & Hooligans (Deluxe)
115 download http://u.115.com/file/f976fc6a20
Posted by AG at 6:35 PM 0 comments
Labels: Bruno Mars, Bruno Mars 115 download, Count on you, Doo Wops and Hooligans, Grenade, Just the way you are, Marry you
Thursday, November 3, 2011
离开我你会幸福吗
喝了一点酒觉得头好痛
爱了那么久结果人去楼空
幻想的天空已不知去了影踪
编织的美梦却已化成冰冷与空洞
眼泪已无济于事 那爱已变成往事
骗自己不爱了忘记伤心事
离开我你会幸福吗
为什么听不到你回答
那段感情难道已不在牵挂
怪我当初爱你爱的那么傻
离开我你会幸福吗 我在等待你的回答
说好牵手到永久谁也不放下
难道你都忘了吗
离开我你会幸福吗
Posted by AG at 7:49 PM 0 comments
Monday, October 17, 2011
Extract Excel contents from perl
This code is used to calculate no. of w/s in excel file and read the worksheets' name.
my $sheetcnt = $Book->Worksheets->Count();
foreach (1..$sheetcnt){
print "\t" .$Book->Worksheets($_)->{Name} ."\n";
}
While last row and column can be read by using this:-
Finding the last Column and Row
my $LastRow = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByRows})->{Row};
my $LastCol = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByColumns})->{Column};
All of above code are use Win32::OLE without using complicated spreadsheet perl module.
Reference
1. http://www.perlmonks.org/?node_id=153486
2. http://www.ngbdigital.com/perl_ole_excel.html
3. http://perlguru.com/
Posted by AG at 7:56 PM 0 comments
Labels: Codes, Excel, Perl, Win32::OLE