Excel To word

[santo]

Hi,

I am fairly new to autoit aswellas programming

#include <Excel.au3>

Global $i=1,$j

$path=@ScriptDir & "\Book1.csv"

$sFilePath1 = "C:\autoit\Book1.csv" ;This file should already exist

$oExcel = _ExcelBookOpen($path)

Sleep(5000)

If @error = 1 Then

MsgBox(0, "Error!", "Unable to Create the Excel Object")

Exit

ElseIf @error = 2 Then

MsgBox(0, "Error!", "File does not exist - Shame on you!")

Exit

EndIf

For $j=1 To 12 Step +1

$val=_ExcelReadCell($oExcel,$i,$j)

Sleep(5000)

$oExcel.visible=0

run("notepad.exe")

sleep(10000)

Send($val)

Send("{ENTER}")

Next

i use this code to read the datas stored in my csv file into notepad but the datas are written one by one on different notepads ,

I want to write all datas into one notepad ,Where i can modify the code for this purpose?please help.

[water]

You need something like this. Be sure to change variable $sWindowTitle to the title of your Notepad window!

#include <Excel.au3>

Global $i = 1, $j, $sWindowTitle = "Unbenannt - Editor"
$path = @ScriptDir & "\Book1.csv"
$sFilePath1 = "C:\autoit\Book1.csv" ;This file should already exist
$oExcel = _ExcelBookOpen($path, 0)
If @error = 1 Then
    MsgBox(0, "Error!", "Unable to Create the Excel Object")
    Exit
ElseIf @error = 2 Then
    MsgBox(0, "Error!", "File does not exist - Shame on you!")
    Exit
EndIf
Run("notepad.exe")
WinWait($sWindowTitle)
For $j = 1 To 12 Step +1
    $val = _ExcelReadCell($oExcel, $j, $i)
    WinActivate($sWindowTitle)
    Send($val & @LF)
Next