Paul The Programmer

This is what I have on the back of my business card, if it helps just one person keep their PC running then its done its job....My clients, friends and business associates can give my card to their contact, tell them to either follow my advice or refer me, so that I can do it for them - either way my card gets used.

Speed up and protect your PC

1. Free up disk space

The Disk Cleanup tool helps you free up space on your hard disk by helping you remove temporary and unwanted software and emptying your recycle bin.

2. Speed up access to data

Disk Defragmenter is a Windows utility that improves windows data access response time. Run Disk Defragmenter at regular intervals—monthly is optimal.

3. Detect and repair disk errors

Error Checking utility checks the integrity of the files stored on your hard disk. If you use your computer daily, you should run this utility once a week to help prevent data loss.

4. Protect your computer against spyware and viruses

Run anti-Spyware and anti-Virus software on your PCs to protect your confidential information. Windows Defender is included in Windows Vista, and is available as a free download for Microsoft XP. Also AVG (free anti-Virus software free.avg.com) and Ad-Aware (www.lavasoft.com)

"The highest compliment my clients can give me is the referral of their friends, family, and business associates!" – Thank you for your trust.

What does the back of your business card say about you?

Twitter user, v1p1n,  asked ...  "I have three csv files (comma seperated). I want to merge these csv files to a single xls files with 3 csv files in 3 tabs of the xls. Please let me know how i can do this..... "

Here's some code to get you started, this will merge 3 CSV files (FILE1,FILE2 and FILE3) into a single sheet. You'll need to modify strFilePath to the path the the CSV files...

Sub CSVFiles()
   MergeCSVFile "FILE1.CSV", "Sheet1"
   MergeCSVFile "FILE2.CSV", "Sheet2"
   MergeCSVFile "FILE3.CSV", "Sheet3"

End Sub

Sub MergeCSVFile(strCSVName As String, strSheetID As String)

   strFilePath = "c:\temp\"
    Workbooks.Open Filename:=strFilePath & strCSVName
    Windows(strCSVName).Activate
    Cells.Select
    Selection.Copy
    Windows("Book1").Activate
    Sheets(strSheetID).Select
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Ahhhh...

OK, so I've got a VBA form. It got an office web components spreadsheet (version 11 point something or other)on it. Tried for over an hour just to get access to cell A1. In case your also wrestling with this 'mamoth' topic, here's how you do it.

Spreadsheet1.Sheets("Data").Select
Spreadsheet1.ActiveSheet.Cells(1, 1).Value = "Bobs your uncle and Fannys your aunt"

No idea why that took me so long, hope it help someone else out there.