我有如下VFP9的一段代码
LOCAL lOldSetOpt,mChanNum
lOldSetOpt = DDESetOption("SAFETY")
= DDESetOption("SAFETY",.F.)
mChanNum = DDEInitiate('Excel','SYSTEM') &&EXCEL是否已经打开
IF mChanNum <> -1
= messagebox('EXCEL程序已经打开，请先将其关闭！',64,'系统提示！')
= DDETerminate(mChanNum)
= DDESetOption("SAFETY",lOldSetOpt)
RETURN
ENDIF
IF FILE("c:\ncvoucher.xls")
DELETE FILE c:\ncvoucher.xls
ENDIF
COPY TO c:\ncvoucher.xls TYPE xl5
OleApp=CREATEOBJECT("Excel.Application")
OleApp.Application.Visible=.F.
OleApp.Application.WorkBooks.open("c:\ncvoucher.xls")
OleApp.Worksheets("ncvoucher").Activate
Myrs=OleApp.SHEETS(1).UsedRange.Rows.Count &&有数据的总行数
Myrq=OleApp.cells(2,6).Value
OleApp.cells(1,8).Value='核算类别A'
OleApp.cells(1,9).Value='核算值A'
OleApp.cells(1,10).Value='核算类别B'
OleApp.cells(1,11).Value='核算值B'
OleApp.cells(1,12).Value='核算类别C'
OleApp.cells(1,13).Value='核算值C'
OleApp.range('F:F').NumberFormatLocal = "@"
OleApp.range('F:F').value='20'+DTOC(Myrq)
OleApp.cells(1,6).Value='制单日期'
OleApp.ActiveSheet.Range("A1"&":"&"T"&CStr(Myrs)).Copy &&有效数据COPY range变量的写法
OleApp.worksheets.Add
OleApp.worksheets("sheet1").Activate
OleApp.ActiveSheet.Name=1101
OleApp.ActiveSheet.Paste &&把有效数据COPY至新的工作表1101
OleApp.Columns.AutoFit
OleApp.ActiveWorkbook.Save
OleApp.Quit
RELEASE OleApp
以上代码中的OleApp.ActiveSheet.Range("A1"&":"&"T"&CStr(Myrs)).Copy 中的RANGE部分引用了变量Myrs 如果把Range("A1"&":"&"T"&CStr(Myrs))中变量部分设置为固定值，如Range('A1:T100'))则程序完全可以执行，但引用变量后则执行错误。
我也在网上找了下变量写法文章，但程序执行到此始终提示“不能识别的命令”。
请教各位师兄该如何调整？？
------解决方案--------------------------------------------------------
*--- 将引用的区域事先赋予变量，然后再调用
DLINE_S = "A"+TRANSFORM(ROW)+":"+CHR(ASC("A")+FCOUNT()-1)+TRANSFORM(ROW)
*--- 上面红字部分即为起始单元格与终止单元格，下面代码红字部分为引用变量
OEXCEL.ACTIVESHEET.RANGE(DLINE_S).BORDERS(3).LINESTYLE = 9
------解决方案--------------------------------------------------------
程序中最好用cells，而不用Range
单个单元格：cells(行,列)
多个单元格：cells(左上角行,左上角列).Resize(行数,列数)
用Range要凑成字母列号，与行号，太麻烦了。