Filter
Top Products
12-8
Creating A Script File
if (errno)
goto lab1:
DDE initiate "Excel", "sheet1", channel2
if (errno)
goto lab2:
wrt "DDE initiation with Excel succeeded_n_r"
wrt "Excel Supports the following Clipboard formats:_n_r_t"
dde request "Formats" RequestedInformation, channel1
dde request "Selection" RequestedSelectInfo, channel1
wrt RequestedInformation"_n_r"
wrt RequestedSelectInfo"_n_r"
wrt "About to open the Excel Spreadsheet Expenses.xls_n_r"
dde execute '[open("h:\excel\excelcbt\expenses.xls")]', channel1
if (errno)
{
wrt "Open spreadsheet failed_n_r"
goto lab2:
}
dde poke RequestedInformation, "R1C1:R1C6", channel2
dde cancel channel2
lab2:
dde cancel channel1
goto lab3:
lab1:
if (channel1 < 0)
goto lab4:
if (int == 1)
goto lab4:
launch "h:\excel\excel.exe", "min"
if (errno == 0)
{
inc int
goto lab5:
}
wrt "Unable to launch Excel"
lab3:
inp "_n_rHit Enter to Exit" dummy
exit
lab4:
wrt "Unable to establish dde link with Excel_n_r"
if (channel1 < 0)
{
channel1 = - channel1
wrt "Had "channel1" multiple sessions_n_r"
wrt ddelist
}
goto lab3: