IpProfSave("", S_DDE) - set column
(Originally posted by Optiker on 12/27/2005)
In passing data to an Excel worksheet, I found the command IpProfSave("", S_DDE) by recording a macro. I didn't find that command in HELP/Macro Language.
I would like to reset the location of the upper-left corner of the data array to (1,1) in the worksheet each time I run the macro, but need to step one column at a time as the macro loops.
In the Profile File/DDE Options window, if I check "Append Data set to the right" I get the columns stepping as I loop. But, the next time I run the macro, it picks up in the column to the right of where it left off.
How do I reset the column number to 1 each time I run the macro? It must be documented some place, but I didn't find it, and I'm not understanding the HELP section on DDE enough to know what to do. Can anybody help with the lines of code I need to reset the column to 1 each time I run the macro?
Comments
-
(Originally posted by YuriG on 1/3/206)
You can set start row/column by the following commands:
ret = IpDde(DDE_SET, "row", "5")
ret = IpDde(DDE_SET, "col", "8")
...
ret = IpProfSave("", S_DDE+S_DATA)You can find more information on IpDde page of IPP macro help or just by recording a macro in DDE Options (Data Exchange Options) dialog.
0 -
Do you know how to use a variable as the row or column number in the above code? I have a for loop where the column number should be the index of the loop. Yet it simply pastes data sequentially when found. For example, I am counting and sizing objects found in an array of images. Suppose I have a 4x4 array. Image 1 has objects while images 2-8 do not, then image 9 does. The code that I have pastes into columns 1 & 2 the data where as I want it to be columns 1 & 9. The IpDde(DDE_Put...) command works fine, yet if the Else part is entered the code then overwrites the 0's that were written by the first Put command. It seems that the Put command doesn't actually select the cell defined as (1,cmeasure) and I can't figure out how to do that.
If numobj<1 Then
ret = IpDde(DDE_SET, "col", "cmeasure")
ret = IpDde(DDE_SET, "row", "1")
ret = IpDde(DDE_SET, "target", "excel")
ret = IpDde(DDE_SET, "topic", "[Book1]Sheet1")
ret = IpDde(DDE_PUT,"R1C" & cmeasure, "0.000")
Else
ret = IpDde(DDE_SET, "col", "cmeasure")
ret = IpDde(DDE_SET, "row", "1")
'ret = IpDde(DDE_SET, "append", "2")
ret = IpDde(DDE_SET, "target", "excel")
ret = IpDde(DDE_SET, "topic", "[Book1]Sheet1")
ret = IpBlbSaveData("", S_DATA+S_DDE)
End If
Any ideas are helpful!
Thanks.
0 -
2019-03-18-102234BCHARLES --The AUTO-PRO 7.0 HELP FILE (AUTO-PRO.CHM) contains some sample code on the page forIpDdethat addresses this.One section is similar to the code that you have.I do not know why this is not working properly.Another section of code (included below) uses another method to move data from IMAGE-PRO to EXCEL through the WINDOWS DDE MECHANISM.Perhaps this method will work for you and your app.I hope this information is helpful.-- MATT-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
q$ = chr$(34) ' ASCII code for quote.
' Open communication with sheet1 of Excel
ret = IpDde(DDE_OPEN, "excel", "sheet1")
' Put value 1.234 into cell on 2nd row and 3rd column.
ret = IpDde(DDE_PUT, "R2C3", "1.234")
'Get value back from Excel
Dim tmp$ as string * 100
Dim retval as single
ret = IpDde(DDE_GET, "R2C3", tmp$)
retval = val(tmp$)
' Execute commands in Excel:
' Open communication with Excel itself
ret = IpDde(DDE_OPEN, "excel", "system")
' Select sheet2
ret= IpDde(DDE_EXEC, "[ACTIVATE(" = q$ +"sheet2" + q$ + ")]", "")
Select cell in first row and 9th column
ret = IpDde(DDE_EXEC, "[SELECT(" + q$ + R1C9" + q$ + ")]", "")
'Paste contents of clipboard
ret = IpDde (DDE_EXEC, "[PASTE()]","")
' End communication
ret = IpDde (DDE_CLOSE, "", "")
0
Categories
- All Categories
- 961 Image-Pro v9 and higher
- 9 Image-Pro FAQs
- 18 Image-Pro Download & Install
- 448 Image-Pro General Discussions
- 486 Image-Pro Automation (Macros, Apps, Reports)
- 20 AutoQuant Deconvolution
- 2 AutoQuant Download & Install
- 18 AutoQuant General Discussions
- 195 Image-Pro Plus v7 and lower
- 3 Image-Pro Plus Download & Install
- 106 Image-Pro Plus General Discussions
- 86 Image-Pro Plus Automation with Macros
- 19 Legacy Products
- 16 Image-Pro Premier 3D General Discussions
- 26 Image-Pro Insight General Discussions