EXCEL中如何求得单元格所在列的标题字母 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → EXCEL中如何求得单元格所在列的标题字母

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 4800 人关注过本帖

标题：EXCEL中如何求得单元格所在列的标题字母

只看楼主加入收藏

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 21 楼

得分:0

以下是引用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
    ……

EXCEL中相获取指定区域的代码：
多个单元格：cells(左上角行,左上角列).Resize(行数,列数)

坚守VFP最后的阵地

2021-03-20 21:59

wengjl

等　级：贵宾
威　望：109
帖　子：2214
专家分：3882
注　册：2007-4-27

第 22 楼

得分:0

谢谢！又学一招

只求每天有一丁点儿的进步就可以了

2021-03-22 15:18

sxcl7899

等　级：新手上路
帖　子：3
专家分：4
注　册：2022-6-30

第 23 楼

得分:0

前几天使用一款小众软件操作数据库，希望在导入数据前先调用vfp对excel进行拆分或合并，也是遇到了楼主这个问题，我把自己的代码放上来，请各位前辈指正：
clear
mycm=16384
c0=""
c1="A"
c2="B"
c3="C"
c4="D"
c5="E"
c6="F"
c7="G"
c8="H"
c9="I"
c10="J"
c11="K"
c12="L"
c13="M"
c14="N"
c15="O"
c16="P"
c17="Q"
c18="R"
c19="S"
c20="T"
c21="U"
c22="V"
c23="W"
c24="X"
c25="Y"
c26="Z"

qz1=INT(mycm/676)
qy1=mycm%676

IF qz1>0
    IF qy1=0
        qz1=qz1-1
        qy1=qy1+676
    ENDIF
ENDIF
qz2=INT(qy1/26)
qy2=qy1%26
IF qz2>0
    IF qy2=0
        qz2=qz2-1
        qy2=qy2+26
    ENDIF
ENDIF
cm1="c"+ALLTRIM(STR(qz1))
cm2="c"+ALLTRIM(STR(qz2))
cm3="c"+ALLTRIM(STR(qy2))
cm=&cm1+&cm2+&cm3
?cm

2024-06-17 15:16

快速回复：EXCEL中如何求得单元格所在列的标题字母