以下是引用wengjl在2020-11-23 09:24:05的发言:
发这个帖子最后实现的目标如下,是为了动态复制有数据的区域(win7.0+vfp8.0+office2007通过)
……
Mx_UsedRange =Mx_excel.worksheets(Mx_SheetName).UsedRange
Mx_rows=Mx_UsedRange.rows.count
Mx_cols=Mx_UsedRange.columns.count
IF Mx_cols<=26
dygz=CHR(Mx_cols+64)+ALLTRIM(STR(Mx_rows))
ELSE
IF MOD(Mx_cols,26)=0
dygz=CHR(64+INT(Mx_cols/26)-1)+CHR(64+MOD(Mx_cols,26)+26)+ALLTRIM(STR(Mx_rows))
ELSE
dygz=CHR(64+INT(Mx_cols/26))+CHR(64+MOD(Mx_cols,26))+ALLTRIM(STR(Mx_rows))
ENDIF
ENDIF
Mx_excel.ActiveSheet.Range("A2:"+dygz).Copy
……
发这个帖子最后实现的目标如下,是为了动态复制有数据的区域(win7.0+vfp8.0+office2007通过)
……
Mx_UsedRange =Mx_excel.worksheets(Mx_SheetName).UsedRange
Mx_rows=Mx_UsedRange.rows.count
Mx_cols=Mx_UsedRange.columns.count
IF Mx_cols<=26
dygz=CHR(Mx_cols+64)+ALLTRIM(STR(Mx_rows))
ELSE
IF MOD(Mx_cols,26)=0
dygz=CHR(64+INT(Mx_cols/26)-1)+CHR(64+MOD(Mx_cols,26)+26)+ALLTRIM(STR(Mx_rows))
ELSE
dygz=CHR(64+INT(Mx_cols/26))+CHR(64+MOD(Mx_cols,26))+ALLTRIM(STR(Mx_rows))
ENDIF
ENDIF
Mx_excel.ActiveSheet.Range("A2:"+dygz).Copy
……
EXCEL中相获取指定区域的代码:
多个单元格:cells(左上角行,左上角列).Resize(行数,列数)
坚守VFP最后的阵地