read & copy data from certain cell in excel to notepad

[232showtime]

as the title say, is it possible to do this? like read from A1 then if cell has value or not blank then copy and send the copied data to notepad?

[BrewManNH]

Look at the _Excel_XX functions in the help file to help you get the information from an excel spreadsheet.

I'm not sure what you're planning to do with this data afterwards, but I'm sure that notepad isn't necessary to do it. Maybe explain better what it is you're attempting to do and we can help you with it.

[232showtime]

what I want is read and copy data from excel sheet and paste it to any program like msword, wordpad or notepad. or read and copy data from msword, wordpad, or notepad then paste it to excel, I have lots of information to enter in documentation management program and need to automate copy and paste from excel to program, this program doesnt have eula or any agreement, so I think im not violating any rules and my company want to get the job done asap... I just use notepad for example. _Excel_XX functions, if this is a UDF what is the exact name of this function. I can do mouseclick mousemove send func to automate copy and paste, but sometimes its copying from wrong cell in excel thats my problem...

Edited August 19, 2014 by 232showtime

[232showtime]

got another problem,

controlclick not working,

If WinActivate("[CLASS:XLMAIN]") Then
    MouseClick("Left", 1038, 216, 1, 1)
    Send("^c")
    Sleep(10)
    If WinActivate("[CLASS:TFrmMain]") Then
        ControlSend("[CLASS:TFrmMain]", "", "[CLASS:TEdit;INSTANCE:1]", "^v")
        Sleep(10)
        If WinActive("[CLASS:TFrmMain]") Then
            Send("{BS}!re")
            Sleep(10)
            If WinActive("[CLASS:TFrmRevSpecific]") Then
;this will be clicked automatically and document will popup but its not working, 
;Tried mousemove func, not working as well in this line
                ControlClick("[CLASS:TFrmRevSpecific]", "", "[CLASS:TBitBtn;INSTANCE:2]") 
            EndIf
        EndIf
    EndIf


EndIf

whats wrong with my code???

Edited August 19, 2014 by 232showtime

[water]

To read one or more cells from Excel use function _Excel_RangeRead from the Excel UDF.

In the help file you'll find example scripts.

[232showtime]

water your excel UDF is great but how can i paste it to another program? I browsed your UDF seems there's no way to paste it to other program like word notepad, or some program that has input box 

[water]

Please have a look at ControlSend.

[232showtime]

hi water this is how I copy and paste data from excel to DMS.

Func CHECK()
    If WinActivate("[CLASS:XLMAIN]") Then
        MouseClick("Left", 1038, 216, 1, 1)
        Send("^c")
        Sleep(10)
        If WinActivate("[CLASS:TFrmMain]") Then
            ControlSend("[CLASS:TFrmMain]", "", "[CLASS:TEdit;INSTANCE:1]", "^v")
            Sleep(10)
            If WinActive("[CLASS:TFrmMain]") Then
                Sleep(100)
                Send("{BS}")
                Sleep(10)
                Send("!re")
                MouseClick("Left", 249, 749, 2, 1)
                WinActivate("[CLASS:XLMAIN]")
                MouseClick("Left", 1907, 1023, 1, 1);Still experimenting not yet finish here...
            EndIf
        EndIf
    EndIf
EndFunc   ;==>CHECK

but i dont have any Idea how to paste it into DMS,MSWORD,NOTEPAD, using your udf, got stuck here:

#include <Excel.au3>

Local $oAppl = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeCopy Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; Open Workbook 1
Local $oWorkbook1 = _Excel_BookOpen($oAppl,"C:\Book1.xlsx", True)

Local $oRange = $oWorkbook1.ActiveSheet.Range("A1")
_Excel_RangeCopyPaste($oWorkbook1.ActiveSheet, $oRange, "A2:B9"); im stuck here, no idea how to paste it to other program...

what im planning is like this:

#include <Excel.au3>

Local $oAppl = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeCopy Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; Open Workbook 1
Local $oWorkbook1 = _Excel_BookOpen($oAppl,"C:\Book1.xlsx", True)

Local $oRange = $oWorkbook1.ActiveSheet.Range("A1")
_Excel_RangeCopyPaste($oWorkbook1.ActiveSheet, $oRange, "program.exe") ;paste it to program like notepad, wordpad, DMS, or msword

:mad2:

Edited August 21, 2014 by 232showtime

[water]

My program does not provide a way to copy data to another program.

You can only copy data from Excel to the clipboard.

_Excel_RangeCopyPaste($oWorkbook1.ActiveSheet, $oRange)

[232showtime]

hey water I managed to copy it to notepad using your UDF thanks, your UDF is a big help for me..     

edit: :ILA:

Edited August 21, 2014 by 232showtime

[water]

[MrCheese]

Hey - sorry to be super annoying, but how did you get it working, I need to do the same thing.

THanks

[water]

Use _Excel_RangeRead to read cells into an Array and then use function ControlSend to send it to you application

or

With _Excel_RangeCopyPaste you copy tthe cells to the clipboard and then use AutoIt functions to read the clipboard and do whatever you need to do.