Importing Multiple Files to a Single Workbook

press alt+F8 in excel
or Tools -> Macro -> Macros
Macro name : CombineTextFiles
Create
Sub CombineTextFiles() Dim FilesToOpen Dim x As Integer Dim wkbAll As Workbook Dim wkbTemp As Workbook Dim sDelimiter As String On Error GoTo ErrHandler Application.ScreenUpdating = False sDelimiter = "|" FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Text Files (*.txt), *.txt", _ MultiSelect:=True, Title:="Text Files to Open") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "No Files were selected" GoTo ExitHandler End If x = 1 Set wkbTemp = Workbooks.Open(FileName:=FilesToOpen(x)) wkbTemp.Sheets(1).Copy Set wkbAll = ActiveWorkbook wkbTemp.Close (False) wkbAll.Worksheets(x).Columns("A:A").TextToColumns _ Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=False, Semicolon:=False, _ Comma:=False, Space:=False, _ Other:=True, OtherChar:="|" x = x + 1 While x <= UBound(FilesToOpen) Set wkbTemp = Workbooks.Open(FileName:=FilesToOpen(x)) With wkbAll wkbTemp.Sheets(1).Move After:=.Sheets(.Sheets.Count) .Worksheets(x).Columns("A:A").TextToColumns _ Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=False, Semicolon:=False, _ Comma:=False, Space:=False, _ Other:=True, OtherChar:=sDelimiter End With x = x + 1 Wend ExitHandler: Application.ScreenUpdating = True Set wkbAll = Nothing Set wkbTemp = Nothing Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub
then save and goto excel and insert button from form for macro
then choose CombineTextFiles
after press button you can select files to import to excel refer: http://excel.tips.net
http://support.microsoft.com/kb/141689

stuck at runonce with IE7

easily and simple direction
file:disable runonce.reg Windows Registry Editor Version 5.00 [HKCU\Software\Microsoft\Internet Explorer\Main] "RunOnceComplete"=dword:00000001 "RunOnceHasShown"=dword:00000001 and just run it OR
file:disable runonce.bat REG ADD "HKCU\Software\Microsoft\Internet Explorer\Main" /V "RunOnceComplete" /T REG_DWORD /D 1 /F REG ADD "HKCU\Software\Microsoft\Internet Explorer\Main" /V "RunOnceHasShown" /T REG_DWORD /D 1 /F

javascript to show and hide element

for html you need to define ID name of an element

<input type="button" name="clickme1" id="clickme1" value="Click me !!" onclick="JavaScript:showbutton('clickme2')"><BR>
<input type="button" name="clickme2" id="clickme2" value="Click me !!" onclick="JavaScript:showbutton('clickme1')" style="visibility:hidden">

For javascript need this code

function showbutton(idName){
 Element = document.getElementById('clickme2');
 Element.disabled=true;
 Element.style.visibility = "hidden";
 Element = document.getElementById('clickme1');
 Element.disabled=true;
 Element.style.visibility = "hidden";
 clickme1Element = document.getElementById(idName);
 clickme1Element.disabled=false;
 clickme1Element.style.visibility = "visible";
}

multiply, power function with large number

function power($a,$b){
  if($b==1)return $a;
  return multiply($a,(power($a,$b-1)));
}
function multiply($a,$b){
  $a = ''.$a;
  $b = ''.$b;
  $b_length = strlen($b);
  $value = '';
  for($i=1;$i<=$b_length;$i++){
    $b2 = $b[$b_length-$i];
    $mul = $a*$b2+$temp;
    $temp = floor($mul/10);
    $value = ($mul%10).$value;
  }
  $value = $temp.$value;
  return $value;
}

with both $a and $b is string strlen($a) == 1

plus function for large number

function plus($a,$b){
  $b_length = strlen($b)+1;
  $a = sprintf("%0".$b_length."s",   $a);
  $b = '0'.$b;
  $a_length = strlen($a);
  $temp =0;
  for($i=0;$i<$a_length;$i++){
    $a1 = substr($a,-1,1);
    $b1 = substr($b,-1,1);
    $a = substr($a,0,-1);
    $b = substr($b,0,-1);
    $result = ($a1+$b1+$temp)%10;
    $ans = $result.$ans;
    $temp = floor(($a1+$b1+$temp)/10);
  }
  $ans = $b.$ans;
  return ltrim($ans,'0');
}

with both $a and $b if string and strlen($a) < strlen($a)