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:
Содержание -05W
Страница 1: ...TeemTalk 05W 07W 11W User s Guide...
Страница 38: ...2 24 Getting Started Notes...
Страница 58: ...3 20 Keyboard Configuration Notes...
Страница 152: ...8 20 File Transfer Notes...
Страница 162: ...9 10 ICL FTF File Transfer Notes...
Страница 324: ...13 32 Dynamic Data Exchange Text1 i 12 LinkItem 0 i 80 Text1 i 12 LinkMode 1 Next i End If End Sub...
Страница 336: ...C 6 Key Reference Numbers Notes...
Страница 360: ...E 16 Host Command Summary Notes...
Страница 370: ...Index 10 Index X XMODEM 8 1 XMODEM 1K 8 1 Y YMODEM Batch 8 2 Z ZMODEM 8 2 Zoom Button 2 17...